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 = “值大于 10“Case ElseText2.Text = “值小于 0“End SelectEn
3、d Sub(答案 1) 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(“输
4、入口令“)和一个命令按钮 Command1(“检查“)。 判断密码是否正确，并显示相应提示 在加载窗体时设置密码框最大长度为 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.【?】 =
5、 8 *SPACE*Text1.【?】 = “*“ 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
6、Timer1_Timer()*SPACE*Label1.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 I
7、End SubPrivate Function sum(n As Integer)Static j As Integer*SPACE*【?】 j + n sum = jEnd Function(答案) 5 Next jPrintNext iMax = mat(1, 1)For i = 1 To nFor j = 1 To m*SPACE*If 【?】 ThenMax = mat(i, j)col = j*SPACE*【?】End IfNext jNext iPrintPrint “矩阵最大的元素的值为：“; mat(row, col)Print “它所在的行号为：“; row; “列号为：“;
8、 colEnd Sub(答案) ReDim mat(n, m) As Integer mat(i, j) Max row = I-功能：本程序利用二分法查找某数字 n 是否在已排序的数列当中， 若在其中则输出其在数列中的位置，否则输出-1 。-Option Base 1Sub birsearch(a(), ByVal low%, ByVal high%, ByVal key, index%)Dim mid As Integermid = (low + high) 2If a(mid) = key Then*SPACE*【?】Exit SubElseIf low high Thenindex =
9、 -1Exit SubEnd IfIf key 1 Then*SPACE*Power = Power(x,【?】) * x Else*SPACE*Power = 【? 】 End IfEnd Function(答案) x, n n 1 x-题目(题号:535)：有 12 个文本框代表 12 个位置。程序为 A-J 10 个字母分配十个位置，并显示座位分配。-Option ExplicitPrivate Sub Form_Load()Dim k, h, p As IntegerDim t(12) As StringRandomize*SPACE*For k = 1 To 【?】t(k) = “Empty“Next k*SPACE*For 【?】 = 65 To 74Do While Truep = Int(1 + 12 * Rnd)*SPACE*If t(p) = 【?】 Thent(p) = Chr(h)Exit DoEnd IfLoopNext hFor k = 1 To 12Text1(k - 1).Text = t(k)Next kEnd Sub(答案) 12 H “Empty“
