中国大学MOOC: 在窗体上添加一个命令按钮Command1和两个文本框Text1和Text2,然后编写如下事件过程:Private Sub Command1_Click() n = Text1.Text Select Case n Case 1 To 20 x = 10 Case 2, 4, 6 x = 20 Case Is < 10 x = 30 Case 10 x = 40 End Select Text2.Text = xEnd Sub程序运行后,如果在文本框Text1中输入10,然后单击命令按钮,则在Text2中显示的内容是( )。
举一反三
- 在窗体上添加两个文本框Text1、Text2和一个命令按钮Command1,编写如下事件过程: Private Sub Command1_Click() x = 0 Do While x < 50 x = (x + 2) * (x + 4) n = n + 1 Loop Text1.Text = CStr(n) Text2.Text = CStr(x) End Sub 运行时,单击命令按钮,Text1和Text2分别显示( )。
- 中国大学MOOC: 在窗体上添加一个命令按钮Command1,然后编写如下事件过程:Private Sub Command1_Click() x = InputBox(Input) Select Case x Case 1, 3 Print 分支 1 Case Is > 4 Print 分支 2 Case Else Print Else 分支 End SelectEnd Sub程序运行后,如果在输入对话框中输入2,则窗体上显示的是( )。
- 编写如下程序: Private Sub Command1_Click; Dim m As Integer, n As Integer m = 2 : n = 1 Select Case m Case 1 Select Case n Case 1 Print "AAA" Case 2 Print "BBB" End Select Case 2 Print "CCC" End Select End Sub 程序运行后,单击命令按钮Command1,输出结果为 A: BBB B: CCC C: AAA D: 1
- 中国大学MOOC: 在窗体上添加一个命令按钮Command1和一个文本框Text1,把文本框的Text属性设置为空白,然后编写如下事件过程: Private Sub Command1_Click() a = InputBox(Enter an Integer) b = InputBox(Enter an Integer) Text1.Text = b + aEnd Sub程序运行后,单击命令按钮,如果在输入对话框中分别输入8和10,则文本框中显示的内容是( )。
- 在窗体上画一个文本框、一个标签和一个命令按钮,其名称分别为Text1、text2、Label1和Command1,然后编写如下事件过程: Private Sub Command1_Click() Label1.Caption =Text1.Text + text2.text End Sub 程序运行后,单击命令按钮,如果在Text1中输入12,在Text2中输入5,则在标签中显示的内容是