第一套
1、'填空完成程序,使得当单击窗体后,Label1上显示100以内(含100)偶数之和。
Private Sub Form_Click()
Dim i As Integer '定义变量i End Sub 第二套
'填空完成程序,计算s=1!+2!+3!+…+8!的值并在窗体上打印出结果。 Private Sub Form_Click()
Dim s As Single ' s变量用于存 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
放计算结果
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 \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 Do
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 = \超重!不能参赛!\ Else
Label1.Caption = \合格,可以参赛!\ End if End Sub
'填空完成程序,使得单击窗体后,计算出1+2+3+…+N<500的N的最大值,并在文本框Text1中显示出来。 Private Sub Form_Click()
Dim s As Integer '变量s存放和 Dim n As Integer '为n赋初值 n = 0 '为s赋初值 s = 0
Do While s < 500 n = n + 1 s =s+n Loop
Text1.Text = Str(n - 1) End Sub 第四套
'这是一个简单的显示评语程序,填空完成程序,在文本框Text1中输入一个数后,单击\评语\按钮,在标签Label1显示评语。 '当输入一个小于60的数时,显示\不及格\;
'当输入一个大于等于60且小于85的数时,显示\良好\;
'当输入一个大于等于85的数时,显示\优秀\。
Private Sub Command1_Click()
Dim Cj As Single '定义变量Cj,值由文本框Text1读入
Cj = Val( text1.text ) If Cj < 60 then
Label1.Caption = \不及格\ End If
If Cj >= 60 And Cj < 85 Then Label1.Caption = \良好\ End If
If Cj >= 85 Then
Label1.Caption = \优秀\ End If End Sub
'某公司2005年的总产值为2000万元,若总产值以每年5%的速度增长,多少年后总产值翻一倍?
'填空完成程序,使得当单击窗体后,在窗体上输出问题答案。 Private Sub Form_Click()
Dim p As Single ' 变量p保存年产值
Dim n As Integer ' 整型变量n为所求年数 P=2000 n = 0
Do While p < 4000 p = p *1.05 n = n+1 Loop
Print \End Sub 第五套
'填空完成程序,使得当单击\计算7!\按钮后,Text1显示7!的值。 Private Sub Command1_Click() Dim a As Integer Dim i As Integer a = 1
For i = 1 To 7 Step 1 a = a*i Next i
Text1.Text = Str((3)) End Sub
'填空完成程序,编程计算1-1/2+1/3-1/4+...+1/99-1/100,单击窗体后,在窗体上显示结果。
Private Sub Form_Click()
Dim s As Single Dim i As Integer s =0
For i = 1 To 100 Step 1 If i Mod 2 <> 0 Then s = s + 1 / i Else s = s-1/i End If Next i Print \End Sub 第六套
'填空完成程序,编程计算
1+1/2+1/3+1/4...+1/99+1/100,单击窗体后,在窗体上显示结果。
Private Sub Form_Click()
Dim s As Single '定义变量s为单
精度型
Dim i As Integer '定义循环变
量
s = 0
For i = 1 To 100 Step 1 s = s +1/ i Next i Print \
End Sub
'填空完成程序,使得当单击\计算
1+2+3+…+100\按钮后,文本框Text1显示1+2+3+…+100的值。
Private Sub Command1_Click() Dim a As Integer Dim i As Integer a =0
For i = 1 To 100 Step 1 a = a+i Next i
Text1.Text = Str((4)) End Sub 第七套
'填空完成程序,使得单击\显示\按钮后,随机产生10个属于区间[0,100)的自然数,并保存于数组a中。
'然后在窗体上显示这10个数的平均值。 '注:学生运算结果有可能跟样图中数值不一致。
Private Sub Command1_Click() Dim a(9) As Integer Dim s As Single Dim i As Integer Me.Cls s = 0
Randomize
For i = 0 To 9 Step 1 a(i) = Int(Rnd * 100) Print a(i) Next i For i = 0 To 9 s = s+a(i) Next i
Print \这10个自然数的平均值=\s / 10
End Sub
'填空完成程序,左键单击窗体时打印下面所示的图案。 ' **** ' *** ' ** ' *
Private Sub Form_Click() Dim i As Integer Dim j As Integer For i = 4 To 1 Step -1 For j = 1 To i Step 1 Print \ Next j print Next i
End Sub 第八套
'填空完成程序,问:鸡兔同笼,共有100条腿,40个头,问鸡有几只,兔有几只? '单击窗体后,在窗体上显示结果。 Private Sub Form_Click()
Dim Ji As Integer 'Ji变量表
示鸡的个数
Dim Tu As Integer 'Tu变量表示
兔的个数
Dim Leg As Integer 'Leg变量
表示腿数
For Ji = 1 To 40 Tu = 40-ji '计算腿数 Leg = ji*2 + Tu * 4
'如果腿正好100只,则
打印。
If Leg = 100 Then
Print \鸡=\
只\兔=\只\
End If Next Ji End Sub
'填空完成程序,使得单击\显示\按钮后,显示下面的图形:
高中信息技术考试vb程序题及答案
![](/skin/haowen/images/icon_star.png)
![](/skin/haowen/images/icon_star.png)
![](/skin/haowen/images/icon_star.png)
![](/skin/haowen/images/icon_star.png)