《VB_填空练习答案》由会员分享，可在线阅读，更多相关《VB_填空练习答案（15页珍藏版）》请在金锄头文库上搜索。
1、一.选择结构-功能：用输入对话框输入 x，根据如图公式计算对应的 y，在窗体上输出 y 的值。-Private Sub Command1_Click()*SPACE*Dim x As Single, 【?】 As Single *SPACE*x = Val(【?】(Please input x :, 输入 X 的值) If x = 10 Then*SPACE*【?】ElseIf x 10 Then*SPACE*y = Sqr(x) 【? 】 Elsey = 2 * x 3 + 6End IfPrint yEnd Sub(答案) Y InputBox y = 0 + Sin(x)-功能：下面的事
2、件过程判断文本框 Text1 中输入的数所在区间，并在文本框 Text2 中输出判断结果-Private Sub Command1_Click()Dim int1 As Integer*SPACE*【?】 = Val(Text1.Text) Select Case int1Case 0Text2.Text = 值为 0*SPACE*Case 【? 】Text2.Text = 值在 1 和 10 之间（包括 1 和 10）*SPACE*Case Is 【?】Text2.Text = 值大于 10Case ElseText2.Text = 值小于 0End SelectEnd Sub(答案 1)
3、int1 1 To 10 10二.一般-功能：本程序功能为，第一次单击窗体，Form1 的输出结果为 2 5 9-Private Function sum(n As Integer)*SPACE*【?】 j As Integerj = j + n + 1sum = jEnd FunctionPrivate Sub Form_Click()Dim i%, s%*SPACE*For 【?】 = 1 To 3*SPACE*s = 【?】Form1.Print s;Next iEnd Sub(答案) Static I sum(i)-功能：窗体上建立了一个文本框 Text1(输入口令)和一个命令按钮 C
4、ommand1(检查)。 判断密码是否正确，并显示相应提示 在加载窗体时设置密码框最大长度为 8，密码显示字符为“*”-dim x as stringPrivate Sub Command1_Click()x = Text1.Text*SPACE*If x 【?】 12345678 Then MsgBox (欢迎你用机!)ElseMsgBox (对不起，口令错)End IfText1.Text = Text1.SetFocusEnd SubPrivate Sub Form_Load()Text1.Text = *SPACE*Text1.【?】 = 8 *SPACE*Text1.【?】 = *
5、End Sub(答案) = MaxLength PasswordChar-功能：在窗体上画一个标签（名称为 Label1 ）和一个计时器（名称为 Timer1 ） ，然后编写如下几个事件过程：要求：每一秒钟 Label1 更新显示一次系统时间-Private Sub Form_Load()Timer1.Enabled = False*SPACE*Timer1.Interval = 【?】End SubPrivate Sub Form_Click()*SPACE*Timer1.Enabled = 【? 】 End SubPrivate Sub Timer1_Timer()*SPACE*Label
6、1.Caption = 【?】 End Sub(答案) 1000 True Now 或 Time -功能：写出程序运行后，单击窗体，Form1 上显示的内容 sum 函数的功能为累加求和 isum = 1 isum = 3 isum = 6 isum = 10 isum = 15-Private Sub Form_Click()Dim I As Integer, isum As Integer*SPACE*For I = 1 To 【? 】 isum = sum(I)*SPACE*Form1.Print isum 【? 】 Next IEnd SubPrivate Function sum(n
7、 As Integer)Static j As Integer*SPACE*【?】 j + n sum = jEnd Function(答案) 5 & isum j =三.级数-功能：以下程序段用于求n!-Private Sub Form_Click()Dim sum As Integer, n As Integern = InputBox(请输入一个正整数 )sum = 0For i = 1 To n*SPACE*sum =【? 】Next iPrint sumEnd SubPrivate Function mul(ByVal x As Integer)Dim s As Integer, i
8、 As Integers = 1*SPACE*For i = 1 To 【? 】s = s * iNext i*SPACE*【?】End Function(答案) sum + mul(i) x mul = s-功能：由输入对话框输入 n（n 必须为大于零且小于 30 的自然数） ，计算下列表达式的值，并在标签框 Label1 上显示。 sum=1/2+1/6+ . +1/(k*(k+1) (k0 且 n= 30 n = Val(InputBox(n=, 请重输入)Loopsum = 0k = 0Do*SPACE*k =【?】 sum = sum + 1 / (k * (k + 1)*SPACE
9、*Loop Until 【? 】 Label1.Caption = Sum= + Str(sum)End Sub(答案) Or k + 1 k = n四.数字关系-功能：过程 suixian 可以判断某一个数字是否是水仙花数，利用该过程找出三位数中所有水仙花数。 所谓 水仙花数 是指一个 3 位数，其各位数字立方和等于该数本身。 -Private Sub Form_Click()Dim i As IntegerFor i = 100 To 999*SPACE*【?】Next iEnd SubPublic Sub suixian(x As Integer)Dim i%, j%, k%*SPACE
10、*i =【?】j = (x - i * 100) 10k = x - i * 100 - j * 10*SPACE*If 【?】 Then Print xEnd Sub(答案) call suixian (i) x 100 x = i 3 + j 3 + k 3五.数组-功能：下面的程序段，用于实现在一个 nXm 的矩阵中，找出值最大的元素所在的行和列，并输出其值及行号和列号。-Private Sub Form_Click()Dim mat() As IntegerDim n as integer, m As Integern = Val(InputBox(请输入矩阵的行数 )m = Val(InputBox(请输入矩阵的列数)*SPACE*【?】For i = 1 To nFor j = 1 To mmat
