超星 - 分支循环结构测试 - 查题吧

填空题

在窗体上画一个命令按钮和一个文本框，名称分别为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

填空题

编写如下程序Private Sub Command1_Click()Dim x As String, y As Stringx = Right("abcdef", 2)y = Mid("dcbaef", 3, 3)If x > y ThenPrint x + yElsePrint y + xEnd IfEnd Sub程序运行后，单击命令按钮Command1，输出结果为______。

填空题

执行下面程序段，如果运行时输入6，则在窗体上输出结果是______。Dim x As Integerx = InputBox("input x")If x > 1 Theny = x + 2ElseIf x < 10 Theny = x + 3ElseIf x = 6 Theny = xEnd IfPrint y

填空题

Private Sub Command1_Click()m = -5.4If Sgn(m) Thenn = Int(m)Elsen = Abs(m)End IfPrint nEnd Sub

填空题

运行如下程序段，输出结果为________。Private Sub command1_click()a = 2: b = 3: c = 4a= a + b: b = b + a: c = b + aIf a <> 3 Or b <> 3 Thena = b - a: b = c - a: c = b + aEnd IfPrint a + b + cEnd Sub

填空题

运行下列程序，单击窗体后在窗体上显示的结果是_______ 。Private SubForm_Click()Dimx As Integer ,y AsIntegerx = -5y = -4If Not x > 0 Thenx=y - 1Elsey=x + 4End IfPrintx - yEnd sub

1