《VB填空(答案).doc》由会员分享，可在线阅读，更多相关《VB填空(答案).doc（5页珍藏版）》请在金锄头文库上搜索。
1、1. 程序功能是产生30个30,50之间的随机整数，放入一个数组中，然后输出这30个整数的平均值,结果保留两位小数。例如：平均值为28.3时，应在窗体上显示28.30。程序运行后，单击命令按钮（名称为Command1，标题为输出平均值），即可求出其平均值，并在窗体上显示出来。这个程序不完整，请把它补充完整，并能正确运行。第1个填空位置：arrN(i)=int(rnd*21)+30第2个填空位置：Print Format(aver,#.00)Private Sub Command1_Click() Dim arrN(30) As Integer Dim Aver As Single Dim Su
2、m As Integer, i Randomize For i = 1 To 30*found* 请不要删除该行,只在下一行中填空 _(1)_ = Int(Rnd*21)+30 arrN(i)=int(rnd*21)+30 Next i Sum = 0 For i = 1 To 30 Sum = Sum + arrN(i) Print arrN(i); Next i Print Aver = Sum / 30*found* 请不要删除该行,只在下一行中填空 Print Format(_(2)_, #.00) Print Format(aver,#.00)End Sub2. 程序的功能是：在文本
3、框中输出100-1000之间的所有的水仙花数。水仙花数是指一个三位数，其各位数的立方和等于该数，如：153=13 + 53 +33 。程序中有两处不完整，请把它补充完整，并能正确运行。第1个填空位置：a=i100第2个填空位置：Text1.Text = Text1.Text & Str(i)text1.text=text1.text&iPrivate Sub Command1_Click() Dim i As Integer, a As Integer, b As Integer, c As Integer For i = 100 To 999 *found* 请不要删除该行 a = _(1)
4、_ a=i100 b = (i Mod 100) 10 c = i Mod 10 If i = a 3 + b 3 + c 3 Then *found* 请不要删除该行 Text1.Text = _(2)_ Text1.Text = Text1.Text & Str(i) End If Next iEnd Sub3. 程序的功能是：求分数序列 2 3 5 8- - - - 1 ， 2 ， 3 ， 5前20项的和。第1个填空位置：sum=sum+term第2个填空位置：a=a+bPrivate Sub Command1_Click() Dim i As Integer, a As Integer
5、, b As Integer Dim sum As Single, term As Single Text1.Text = a = 2: b = 1 sum = 0 For i = 1 To 20 term = a / b *found* 请不要删除该行 sum = _(1)_ sum=sum+term *found* 请不要删除该行 _(2)_ a=a+b b = a - b Next i Text1.Text = Format(sum, 0.000000)End Sub4. 在窗体上有一个命令按钮Command1,程序运行后,单击该命令按钮,在窗体上显示出一个7行的双三角形。 * * *
6、* * * * * * * * * * *程序中有两处不完整，请把它补充完整，并能正确运行。第1个填空位置：for j=1 to 2*(7-i)+1 ( 形成 13、11、9、7、5、3、1)第2个填空位置：for k=1 to 2*i-1Private Sub Command1_Click() Dim i As Integer, j As Integer, k As Integer Cls For i = 1 To 7 Print Tab(i); *found* 请不要删除该行 For j = 1 To _(1)_ for j=1 to 2*(7-i)+1( 形成 1、3、5、7、9、11、
7、13) Print *; Next j Print Spc(2); *found* 请不要删除该行 For k = 1 To _(2)_ for k=1 to 2*i-1 Print *; Next k Print Next iEnd Sub5.窗体上有三个选项按钮（即单选按钮），一个标题为显示的命令按钮。程序的功能是，在运行时，如果选中一个单选按钮并单击显示按钮，则在文本框中显示相应的信息，例如若选中小学生，则在文本框中显示我是小学生。程序中有两处不完整，请把它补充完整（不要改动单选按钮的Caption属性值），并能正确运行。第1个填空位置：Text1.Text = 我是第2个填空位置：En
8、d IfPrivate Sub Command1_Click()*found* 请不要删除该行，只在下一行中填空 Text1.Text = _(1)_ Text1.Text = 我是 If Option1.Value = True Then Text1.Text = Text1.Text & Option1.Caption ElseIf Option2.Value = True Then Text1.Text = Text1.Text & Option2.Caption ElseIf Option3.Value = True Then Text1.Text = Text1.Text & Opt
9、ion3.Caption Else MsgBox 请选择一个选项*found* 请不要删除该行，只在下一行中填空 _(2)_ End If End SubPrivate Sub Form_Load() Text1.Text = End Sub6. 程序运行后,单击窗体,出现一个输入框，提示输入要打印输出的行数，接着在窗体上按照指定的行数显示出杨辉三角。如：输入5，窗体上显示内容为：11 11 2 11 3 3 11 4 6 4 1程序中有两处不完整，请把它补充完整，并能正确运行。第1个填空位置：ReDim a(n, n)第2个填空位置：a(i,j)=a(i-1,j)+a(i-1,j-1)Opt
10、ion Base 1Private Sub Form_click() Dim n As Integer, i As Integer, j As Integer Dim a() As Integer Form1.Cls n = Val(InputBox(请输入打印的行数, 输出杨辉三角) *found* 请不要删除该行 ReDim a() ReDim a(n, n) For i = 1 To n CurrentY = i * 500 For j = 1 To i CurrentX = j * 500 If j = 1 Or j = i Then a(i, j) = 1 Else *found*
11、请不要删除该行 a(i, j) = _(i,j) a(i,j)=a(i-1,j)+a(i-1,j-1) _ End If Print a(i, j); Next j Print Next iEnd Sub7在窗体上有一个命令按钮Command1和三个文本框Text1、Text2、Text3,程序运行后,在Text1和Text2中分别输入两个整数赋给变量n和k，单击该命令按钮，计算函数sum(k,n)=1k + 2k + 3k + + nk 的值。第1个填空位置：s=s+ki 、 s=s+power(k,i)第2个填空位置：power=tPrivate Function sum(k As Int
12、eger, n As Integer) As Long Dim i As Integer, s As Long For i = 1 To n *found* 请不要删除该行 s = _(1)_ s=s+ki s=s+power(k,i) Next i sum = sEnd FunctionPrivate Function power(a As Integer, b As Integer) As Long Dim i As Integer, t As Long t = 1 For i = 1 To a t = t * b Next i *found* 请不要删除该行 _(2)_ power=tEnd FunctionPrivate Sub Command1_Click() Dim n As Integer, k As Integer n = Val(Text1.Text
