【VB开源代码栏目提醒】：本文主要为网学会员提供“高中信息技术考试vb程序题及答案 - 其他考试资料”，希望对需要高中信息技术考试vb程序题及答案 - 其他考试资料网友有所帮助，学习一下!

1 第一套 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 si Next i Label1.Caption Strs End Sub 2、填空完成程序使得当在Text1中输入圆的半径后单击计算按钮计算圆的周长并在Text2中显示出来。

     Private Sub Command1_Click Const pi 3.14 定义符号常量 Dim c As Single 定义周长c为单精度型 Dim r As Single 定义半径r为单精度型 r Valtext1.text c pi 2r text2.text c End Sub 第二套 填空完成程序计算s123…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 sp Next i Print s s End Sub 2 填空完成程序使得当单击窗体后计算123…N500的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 Then Label1.Caption 超重不能参赛 Else Label1.Caption 合格可以参赛 End if End Sub 填空完成程序使得单击窗体后计算出123…N 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为所求年数 P2000 n 0 Do While p 4000 p p 1.05 n n1 Loop Print n n End Sub 4 第五套 填空完成程序使得当单击计算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 ai Next i Text1.Text Str3 End Sub 填空完成程序编程计算1-1/21/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 第六套 填空完成程序编程计算11/21/31/4...1/991/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 填空完成程序使得当单击计算123…100按钮后文本框Text1显示123…100的值。

     Private Sub Command1_Click Dim a As Integer Dim i As Integer a 0 For i 1 To 100 Step 1 a ai Next i Text1.Text Str4 5 End Sub 第七套 填空完成程序使得单击显示按钮后随机产生10个属于区间0100的自然数并保存于数组a中。

     然后在窗体上显示这10个数的平均值。

     注学生运算结果有可能跟样图中数值不一致。

     Private Sub Command1_Click Dim a9 As Integer Dim s As Single Dim i As Integer Me.Cls s 0 Randomize For i 0 To 9 Step 1 ai IntRnd 100 Print ai Next i For i 0 To 9 s sai 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变量表示鸡的个数 6 Dim Tu As Integer Tu变量表示兔的个数 Dim Leg As Integer Leg变量表示腿数 For Ji 1 To 40 Tu 40-ji 计算腿数 Leg ji2 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 以下三条语句交换xy的值 t x x y y t End If Text1.Text Strx 7