在窗体上画一个命令按钮和一个文本框,名称分别为Command1和Text1,然后编写如下程序: Private Sub Command1_Click() A = InputBox("请输入日期(1~31)") T = "旅游景点:" & IIf(A > 0 And A<= 10, "长城", "") & IIf(A > 10 And A <= 20,"故宫", "") & IIf(A > 20 And A <= 30, "颐和园", "") Text1.Text = T End Sub 程序运行后,单击命令按钮,如果从键盘输入26,则在文本框中显示的内容是______。
举一反三
- 在窗体上画一个文本框、一个标签和一个命令按钮,其名称分别为Text1、text2、Label1和Command1,然后编写如下事件过程: Private Sub Command1_Click() Label1.Caption =Text1.Text + text2.text End Sub 程序运行后,单击命令按钮,如果在Text1中输入12,在Text2中输入5,则在标签中显示的内容是
- 中国大学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中显示的内容是( )。
- 中国大学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,则文本框中显示的内容是( )。
- 在窗体上画一个命令按钮和一个文本框,名称分别为Command1和Text1,然后编写如下程序: Private Sub
- 中国大学MOOC: 在窗体上添加一个命令按钮Command1和一个文本框Text1,并在命令按钮的Click事件过程中编写如下代码:Private Sub Command1_Click() A = 1.2 C = Len(Str$(A) + Space(10)) Text1.Text = CEnd Sub程序运行后,单击命令按钮,在文本框中显示( )。