题目内容

在窗体上画一个命令按钮和一个文本框，名称分别为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 = TEnd Sub程序运行后，单击命令按钮，如果从键盘输入26，则在文本框中显示的内容是______。

查看答案

搜索结果不匹配？点我反馈

更多问题

下列程序段的执行结果是______。X = 2Y = 1If X * Y < 1 Then Y = Y - 1 Else Y = -1Print Y - X > 0

在窗体上画一个名称为Command1的命令按钮和两个名称分别为Text1、Text2的文本框，然后编写如下事件过程：Private Sub Command1_Click()N = Text1.TextSelect Case NCase 1 To 10X = 5Case 2, 4, 6X = 10Case Is < 10X = 2Case 10X = 30End SelectText2.Text = XEnd Sub程序运行后，如果在文本框Text1中输入6，然后单击命令按钮，则在Text2中显示的内容是______。

窗体上有1个名称为Command1的命令按钮，事件过程如下：Private Sub Command1_Click()Dim num As Integer, x As Integernum = Val(InputBox("请输入一个正整数"))Select Case numCase Is > 100x = x + numCase Is < 90x = numCase Elsex = x * numEnd SelectPrint x;End Sub运行程序，并在三次单击命令按钮时，分别输入正整数60、80和100，则在窗体上显示的内容为______。

运行下面程序，如果输入80，则输出结果是_____。Dim a As Integer, i As Integera = InputBox("input a:")If a > 60 Then i = 1If a > 70 Then i = 2If a > 80 Then i = 3If a > 90 Then i = 4Print "i="; i