高中信息技术考试vb程序题及答案

高中信息技术考试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 "s="; s End Sub ' 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 Print "n="; n End Sub 3 第五套 "按钮后，Text1显示7～的值。 '填空完成程序，使得当单击"计算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 "s="; s 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 "s="; s 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)) 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变量 表 关于同志近三年现实表现材料材料类招标技术评分表图表与交易pdf视力表打印pdf用图表说话 pdf 示鸡的个数 5 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 "鸡="; Ji; "只", "兔="; Tu; "只" End If Next Ji End Sub '填空完成程序，使得单击"显示"按钮后，显示下面的图形: '@ '@@ '@@@ '@@@@ '@@@@@ '@@@@@@ Private Sub Command1_Click() Dim i As Integer '定义i为整型变量 Dim j As Integer '定义j为整型变量 For i = 1 To 6 Step 1 For j = 1 To I Step 1 Print "@" ; Next j Print Next i End Sub 第九套 '填空完成程序，使得单击"显示"按钮时，Text1、Text2分别显示变量x、y的值。 Private Sub Command1_Click() Dim x, y As Integer x = 10 y = 100 If x < y Then '以下三条语句交换x,y的值 t = x x = y y = t End If Text1.Text = Str(x) 6 Text2.Text = Str(y) End Sub '填空完成程序，使得单击"显示"按钮后，在窗体上显示如图99乘法表。 Private Sub Command1_Click() Dim i As Integer Dim j As Integer For i = 1 To 9 Step 1 Print " "; For j = 1 To 9 Print i*j Print vbTab; Next j print Next i End Sub 第十套 '填空完成程序，使得在Text1中输入一个数，单击"判断"按钮后，判断这个数是奇数还是偶数 '并在Label1中显示"奇数"或"偶数"出来。 Private Sub Command1_Click() Dim a As Single Dim b As Single '从Text1中读入这个数,并保存在变量a中 a = Val(text1.text) b = a Mod 2 If b = 0 Then Label1.Caption = "偶数" Else Label1.Caption = "奇数" endif End Sub '填空完成程序，使得单击"显示"按钮后，随机产生10个属于区间[0，100)的自然数， '并保存于数组a中，然后在窗体上显示这10个数中的最大值。 Private Sub Command1_Click() Dim a(9) As Integer Dim max As Integer Dim I As Integer Me.Cls Print Randomize For i = 0 To 9 Step 1 a(i) = Int(Rnd * 100) Print a(i) Next i 7 max = a(0) For i = 1 To 9 If max < a(i) Then max = a(i) End If Next i Print "这10个自然数中的最大值="; Str((3)) End Sub '填空完成程序:单击"计算5!"按钮后，Text1显示5!的值。 Private Sub Command1_Click() Dim a As Integer Dim i As Integer a = 1 For i = 2 To 5 a = a*i Next __i___ Text1.Text = Str(a) End Sub 第十四套 '某公司每年的销售收入均比前一年增长10个百分点，按此速度，需要多少年可以实现销售收入翻两番 (即4倍)的目标。 '填空完成程序，使得当单击窗体后，在窗体上输出问题答案。 Private Sub Form_Click() Dim i As Single Dim s As Integer '设s为所求年数,定义为整型,结果由窗体输出 i = 1 s = 0 Do While ___i<=4_____ i = _i*1.1_______ s=s+1 Loop Print "s="; s End Sub '在横线处添加代码实现单击该按钮，窗体的背景色由原来的默认色变为红色(红:&HFF&) Private Sub Command1_Click() backcolor= &HFF& End Sub 第十五套 '已知一元二次方程的二次项系数、一次项系数、常数项分别为a、b、c，其中a不等于0。 '填空完成程序，求方程的根。要求:如果方程无实数根，则输出"无实数根"，否则输出两个实数根。 Private Sub Command1_Click() Dim a, b, c, d As Single 8 Dim x1, x2 As Single a = Val(Text1.Text) b = Val(Text2.Text) c = Val(Text3.Text) If a < > 0 Then '判断a是否等于0 d =b^2-4*a*c If d >= 0 Then '判断是否有实数根 x1 = (-b + Sqr(d)) / (2 * a) x2 = (-b - Sqr(d)) / (2 * a) Label1.Caption = Str(x1) Label2.Caption = Str(x2) Else Label3.Caption = ”无实数根” End If End If End Sub '填空完成程序，打印如图所示的图案。 ' * '** ' *** '** '* Private Sub Form_Click() Dim i As Integer '定义i为整型变量 Dim j As Integer '定义j为整型变量 For i = -2 To 2 For j = 1 To 3 - abs(i) Print “*”; Next j Print '换行 Next i 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赋初值 9 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+…+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(a) End Sub 10