题目内容

下列程序执行后，变量x的值为（）。Private Sub command1_click()Dim a, b, c, d As SingleDim x As Singlea = 100: b = 20: c = 1000If b > a Thend = a: a = b: b = dEnd IfIf b > c Thenx = bElseIf a > c Thenx = cElsex = aEnd IfEnd Sub

A. 0
B. 100
C. 1000
D. 20

查看答案

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

更多问题

有如下程序：Private Sub Command1_Click()xcase = 1t = InputBox("请输入一个数：")Select Case tCase Is > 0y = xcase + 1Case Is = 0y = xcase + 2Case Elsey = xcase + 3End SelectPrint xcase; yEnd Sub程序运行时，在对话框中输入-1，则显示的结果为（）。

A. 1 1
B. 1 2
C. 1 3
D. 1 4

在窗体上添加一个命令按钮Command1和两个文本框Text1和Text2，然后编写如下事件过程：Private Sub Command1_Click()n = Text1.TextSelect Case nCase 1 To 20x = 10Case 2, 4, 6x = 20Case Is < 10x = 30Case 10x = 40End SelectText2.Text = xEnd Sub程序运行后，如果在文本框Text1中输入10，然后单击命令按钮，则在Text2中显示的内容是（）。

A. 20
B. 10
C. 30
D. 40

下列没有Caption属性的控件是（）。

A. 框架
B. 单选按钮
C. 文本框
D. 复选框

在窗体中添加一个命令按钮Command1，并编写如下程序：Private Sub Command1_Click()x = InputBox(x)If x ^ 2 = 9 Then y = xIf x ^ 2 < 9 Then y = 1 / xIf x ^ 2 > 9 Then y = x ^ 2 + 1Print yEnd Sub程序运行时，单击命令按钮，在InputBox中输入3，然后单击“确定”按钮，程序的运行结果为（）。

A. 3
B. 0.33
C. 17
D. 0.25