《高中信息技术考试vb程序题及答案》由会员分享，可在线阅读，更多相关《高中信息技术考试vb程序题及答案（6页珍藏版）》请在金锄头文库上搜索。
1、1第一套1、填空完成程序，使得当单击窗体后，Label1 上显示 100 以内（含 100）偶数之和。Private Sub Form_Click()Dim i As Integer 定义变量 i Dim s As Integer 定义变量 s，用于存放100 以内（含 100）偶数的和s = 0For i = 2 To 100 Step 2s = s+iNext iLabel1.Caption = Str(s)End Sub2、填空完成程序，使得当在 Text1 中输入圆的半径后，单击计算 按钮，计算圆的周长，并在Text2 中显示出来。Private Sub Command1_Click(
2、)Const pi = 3.14 定义符号常量Dim c As Single 定义周长 c 为单精度型Dim r As Single 定义半径 r 为单精度型r = Val(text1.text)c = pi *2*rtext2.text = cEnd Sub第二套填空完成程序，计算 s=1!+2!+3!+8!的值并在窗体上打印出结果。Private Sub Form_Click()Dim s As Single s 变量用于存放计算结果Dim p As SingleDim i As Integer 定义一个循环变量给 s 赋初值s = 0给 p 赋初值p = 1For i = 1 To 8p
3、 = p * is =s+pNext iPrint s=; sEnd Sub填空完成程序，使得当单击窗体后，计算1+2+3+N500 的 N 的最小值，并在文本框Text1 中显示出来。Private Sub Form_Click()Dim s As Integer 变量 s 存放和Dim n As Integer为 s 赋初值s = 0为 n 赋初值n =0Don = n + 1s = s + nLoop While s ThenLabel1.Caption = 超重！不能参赛！2ElseLabel1.Caption = 合格，可以参赛！ End ifEnd Sub填空完成程序，使得单击窗体
4、后，计算出1+2+3+N= 60 And Cj = 85 ThenLabel1.Caption = 优秀End IfEnd Sub某公司 2005 年的总产值为 2000 万元，若总产值以每年 5%的速度增长，多少年后总产值翻一倍？填空完成程序，使得当单击窗体后，在窗体上输出问题答案。Private Sub Form_Click()Dim p As Single 变量 p 保存年产值Dim n As Integer 整型变量 n 为所求年数P=2000n = 0Do While p 0 Thens = s + 1 / iElses = s-1/iEnd IfNext iPrint s=; sE
5、nd 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 = 0For i = 1 To 100 Step 1s = s +1/ iNext iPrint s=; sEnd Sub填空完成程序，使得当单击计算 1+2+3+100按钮后，文本框 Text1 显示1+2+3+100 的值。Private Sub Command1_Click()Dim a As IntegerDim
6、i As Integera =0For i = 1 To 100 Step 1a = a+iNext iText1.Text = Str(4)End Sub第七套填空完成程序，使得单击显示按钮后，随机产生 10 个属于区间0，100)的自然数，并保存于数组 a 中。然后在窗体上显示这 10 个数的平均值。注：学生运算结果有可能跟样图中数值不一致。Private Sub Command1_Click()Dim a(9) As IntegerDim s As SingleDim i As IntegerMe.Clss = 0RandomizeFor i = 0 To 9 Step 1a(i) =
7、Int(Rnd * 100)Print a(i)Next iFor i = 0 To 9s = s+a(i)Next iPrint 这 10 个自然数的平均值=; s / 10End Sub填空完成程序，左键单击窗体时打印下面所示的图案。 * * * *Private Sub Form_Click()Dim i As IntegerDim j As IntegerFor i = 4 To 1 Step -1For j = 1 To i Step 1Print *;Next jprintNext iEnd Sub第八套填空完成程序，问：鸡兔同笼，共有 100 条腿，40 个头，问鸡有几只，兔有几
8、只?单击窗体后，在窗体上显示结果。Private Sub Form_Click()Dim Ji As Integer Ji 变量表示鸡的个数Dim Tu As Integer Tu 变量表示兔的个数Dim Leg As Integer Leg 变量表示腿数For Ji = 1 To 404Tu = 40-ji计算腿数Leg = ji*2 + Tu * 4如果腿正好 100 只，则打印。If Leg = 100 ThenPrint 鸡=; Ji; 只, 兔=; Tu; 只End IfNext JiEnd Sub填空完成程序，使得单击显示按钮后，显示下面的图形：Private Sub Comman
9、d1_Click()Dim i As Integer 定义 i 为整型变量Dim j As Integer 定义 j 为整型变量For i = 1 To 6 Step 1For j = 1 To I Step 1Print ;Next jPrintNext iEnd Sub第九套填空完成程序，使得单击显示按钮时，Text1、 Text2 分别显示变量 x、y 的值。Private Sub Command1_Click()Dim x, y As Integerx = 10y = 100If x 0 Then 判断 a 是否等于 0d =b2-4*a*c If d = 0 Then 判断是否有实数
10、根x1 = (-b + Sqr(d) / (2 * a)x2 = (-b - Sqr(d) / (2 * a)Label1.Caption = Str(x1)Label2.Caption = Str(x2)ElseLabel3.Caption = ”无实数根”End IfEnd IfEnd Sub填空完成程序，打印如图所示的图案。*6*Private Sub Form_Click()Dim i As Integer 定义 i 为整型变量Dim j As Integer 定义 j 为整型变量For i = -2 To 2For j = 1 To 3 - abs(i)Print “*”;Next
11、jPrint 换行Next iEnd Sub第十八套填空完成程序，计算 s=1!+2!+3!+8!的值并在窗体上打印出结果。Private Sub Form_Click()Dim s As Single s 变量用于存放计算结果Dim p As SingleDim i As Integer 定义一个循环变量给 s 赋初值s =0给 p 赋初值p =1For i = 1 To 8p = p * is =s+pNext iPrint s=; sEnd Sub第十九套填空完成程序，使得当单击计算 1+2+3+100按钮后，文本框 Text1 显示 1+2+3+100 的值。Private Sub Command1_Click()Dim a As IntegerDim i As Integera = 0For i = 1 To 100 Step 1a = a+iNext iText1.Text = Str(a)End Sub
