高中信息技术考试vb程序题及答案
第一套
'填空完成程序，使得当单击窗体后，Label1上显示100以内(含100)偶数之和。 1、
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 \' 1
填空完成程序，使得当单击窗体后，计算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赋初值 2 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
高中信息技术考试vb程序题及答案
