高中计算机会考vb试题,高中信息技术考试vb程序题及答案

第一套

1、'填空完成程序，使得当单击窗体后，Label1上显示100以内(含100)偶数之和。

Private Sub Form_Click()

Dim i As Integer '定义变量i

Dim s As Integer '定义变量s，用于存放100以内(含100)偶数的和

s = 0

For i = 2 To 100 Step 2

s = s+i

Next i

Label1.Caption = Str(s)

End Sub

2、'填空完成程序，使得当在Text1中输入圆的半径后，单击"计算"按钮，计算圆的周长，并在Text2中显示出来。

Private Sub Command1_Click()

Const pi = 3.14 '定义符号常量

Dim c As Single '定义周长c为单精度型

Dim r As Single '定义半径r为单精度型r = Val(text1.text)

c = pi *2*r

text2.text = c

End Sub

第二套

'填空完成程序，计算s=1!+2!+3!+…+8!的值并在窗体上打印出结果。

Private Sub Form_Click()

Dim s As Single ' s变量用于存放计算结果Dim p As Single

Dim i As Integer '定义一个循环变量

'给s赋初值

s = 0

'给p赋初值

p = 1

For i = 1 To 8

p = p * i

s =s+p

Next i

Print "s="; s

End Sub

'填空完成程序，使得当单击窗体后，计算1+2+3+…+N>500的N的最小值，并在文本框Text1中显示出来。

Private Sub Form_Click()

Dim s As Integer '变量s存放和

Dim n As Integer

'为s赋初值

s = 0

'为n赋初值

n =0

n = n + 1

s = s + n

Loop While s <= 500

Text1.Text = Str(n)

End Sub

第三套

'举重比赛中，60公斤级选手体重不能超过60公斤。

'填空完成程序，使得在文本Text1中输入一个大于60的数时，标签Label1显示"超重！不能参赛！"；

'当输入一个小于等于60的数时，标签Label1显示"合格，可以参赛！"。

Private Sub Command1_Click()

Dim t As Single '定义变量t，值由文本框Text1读入

t = Val(text1.text)

If > Then

Label1.Caption = "超重！不能参赛！"

高中计算机会考vb试题,高中信息技术考试vb程序题及答案相关推荐

初中计算机上机操作试题,初中信息技术考试word操作题
一.word 操作题(20 分) 春(节选) 盼望着,盼望着,东风来了,春天的脚步近了. 一切都像刚睡醒的样子,欣欣然张开了眼.山朗润起来了,水涨起来了,太阳的脸红起来了. 小草偷偷地从土里钻出来,嫩 ...
高中计算机会考知识点选择题,高中计算机会考的试题及答案.doc
高中计算机会考的试题及答案高中计算机会考试题及答案(2) 2007-11-16 23:20 在默认方式下,Excel 2000工作表的列以(??? C???? )标记. A.数字+字母B.字母+数字 ...
安徽高中计算机会考知识点,安徽高中会考语文知识点
高中语文会考复习要研读考纲,理清考试要求掌握的知识点.下面是小编为大家整理的安徽高中会考语文知识点,希望对大家有所帮助! 安徽高中会考语文知识点1:基础知识(词语.成语.病句) 复习要点: ①落实近义 ...
八年级计算机考操作试题,初二信息技术考试试题及答案
初二信息技术考试试题及答案在Word中,利用( C )工具栏,可以插入艺术字.文本框.剪贴画和自选图形. A.图片 B.常用 C.绘图 D.格式在Word中,如果无意中误删除了某段文字内容,可以使 ...
2018高中计算机会考知识点,2018高中物理会考知识点总结
[导语]会考是高考的一个重要组成部分.在会考之前,高中生需要做好物理知识点的复习.下面无忧考网为大家整理高中物理会考知识点,希望对大家有所帮助! 第1章力一.力:力是物体间的相互作用. 1.力的国际 ...
高中计算机会考作弊,贵州高中信息技术会考考生违纪舞弊处理规定
贵州省普通高中信息技术学科学业水平考试考生违纪舞弊处理规定一.考生有下列行为之一的,属考试舞弊,取消考试成绩.由监考当场宣布,并记入考场情况记录表. (一)交头接耳.互打暗号.手势: (二)使用夹 ...
高中计算机会考教案,浙江省高中信息技术会考复习纲要教案
信息技术基础复习纲要操作题是信息技术的一大特色,也是今后这门课程的精要所在,能运用计算机等信息技术工具进行获取.传输.处理信息的能力,是本学科对考生的一种基本能力要求.信息技术学科在很大篇幅上讲述如 ...
高中计算机会考梧州试题,广西梧州市第七中学2018级2019-2020学年高二上学期段考试题英语（无答案）...
ID:12192987 资源大小:28KB 资料简介: 广西梧州市,第七中学,高二年级,期中考试,英语,人教版梧州市第七中学2018级高二上学期段考试题英语第一部分听力(略) 第二部分阅读理解 ...
河南省高中计算机会考难不难,高中会考难不难
高中会考难不难对于现在的学生来说,学业水平考试也是很重要的一个考试.接下来由小编为大家整理出高中会考难不难,希望大家喜欢. 高中会考难不难 1.一般情况下都会过的,但是每个地区都会有一些同学不过,所 ...
福建高中计算机会考知识点,福建高中物理会考知识点总结(2)
第7章分子动理论能量守恒气体一.物质是由分子组成的; 1.在物理上我们把所有够成物质的微粒(分子.原子.离子)统称分子; 2.测量分子大小的方法:单分子油膜法:取一滴油滴,让其在水面上尽可能的散 ...

高中计算机会考vb试题,高中信息技术考试vb程序题及答案

高中计算机会考vb试题,高中信息技术考试vb程序题及答案相关推荐

最新文章

热门文章