题目内容

编写如下程序：Private Sub Command1_Click()Dim score As Integerscore = 90If score > 80 Thenr = 5ElseIf score > 60 Thenr = 3Elser = 1End IfPrint rEnd Sub程序运行后，单击命令按钮Command1，输出结果为（______）。

查看答案

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

更多问题

有如下程序：Private Sub Command1_Click()x = InputBox("input value")Select Case xCase Is > 0y = x + 3Case Is = 0y = x + 2Case Elsey = x + 1End SelectPrint x; y End Sub假设运行时从键盘上输入-8，输出结果是（______）。

在窗体上画一个命令按钮和一个文本框，名称分别为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中显示的内容是______。