计算机二级

单击命令按钮，并在对话框内输入6，下列程序段的执行结果为______。 Private Sub Command1_Click() Dim n As Integer n=InputBox ("请输入日期") Select Case n Case Is ＜= 0 n=InputBox("错误!请重新输入日期!") Case Is＞7 n=InputBox("错误!请重新输入日期!") Case 1 To 3 Print "江苏" Case 4 To 5 Print "浙江" Case 6 To 7 Print

题目

单击命令按钮，并在对话框内输入6，下列程序段的执行结果为______。 Private Sub Command1_Click() Dim n As Integer n=InputBox ("请输入日期") Select Case n Case Is ＜= 0 n=InputBox("错误!请重新输入日期!") Case Is＞7 n=InputBox("错误!请重新输入日期!") Case 1 To 3 Print "江苏" Case 4 To 5 Print "浙江" Case 6 To 7 Print "双休日" End Select End Sub

A．错误!请重新输入日期!

B．江苏

C．浙江

D．双休日

参考答案和解析
正确答案：D
如果没有搜索结果，请直接 联系老师 获取答案。
相似问题和答案

第1题：

在窗体上画一个命令按钮，然后编写如下程序： Option Base 1 Private Sub Command1_Click（) Dim Arr（10) As Integer For i = 1 To 10 Arr（i) = 11 - i Next i x = InputBox（"输入一个整数（3～10）") Print Arr（2 + Arr（x)) End Sub 程序运行后，单击命令按钮，在输入对话框中输入7，则输出结果为_______________。

A．3

B．4

C．5

D．6


C 因为X重新赋值，所以每次循环结果一样。计算一次即可，结果为l5。对于y，内层循环一次，其值为3。共循环12次，所以其值为36。当多次单击命令按钮时，x是普通变量，每次单击只是重新计算一次，执行结果一样，仍然为15。但Y是静态变量，程序没有结束运行之前，仍然保持上一次的值。每单击一次按钮，它将累计本次执行结果。执行三次，结果为36+36+36=108。选择C。

第2题：

在窗体上有一个命令按钮，然后编如下事件过程：

程序运行后，单击命令按钮，在输入对话框内输入-1，输出结果是 。


正确答案：
-1的平方根是一个虚数
【解析】在Sub过程中，定义了一个Double型变量N，并调用InputBox函数，给N赋值，即将从对话框中输入的-1赋给N；通过运算符”&”，将N与字符串”的平方根”连接起来并赋给Msg；在条件块语句中将N作为参数，调用SR事件过程，将Function过程的返回值作为测试表达式；在SR函数中，调用Sgn函数测试x的值为正数还是负数，如果是正数，那么就执行条件块语句中的SR=Sqr(x)，即将X的平方根作为返回值，如果x值为零，Sgn函数返回值为零，那么就将0作为返回值；如果为负数。Sgn函数返回值为-1，SR=-1，即将-1作为返回值；在Sub程序的条件块语句中，根据SR返回值的不同，执行不同操作，当返回值为0，将Msg字符串加”是0”，赋给Ms9，如果是-1，将Msg加”是一个虚数”赋给Msg，当为其他时，即在平方根时，将字符串Msg加”是”，再加上这个数的平方根赋给Msg，并用MsgBox函数输出。

第3题：

在窗体上画一个名称为Commandl的命令按钮，然后编写如下程序：程序运行后，单击命令按钮，将显示一个输入对话框，如果在对话框中输入25，则程序的执行结果是（ ）。

A. 输出0

B. 输出25

C. 输出45

D. 无任何输出


正确答案：D
D)    【解析】本题考查VB程序的执行特点。程序执行时，布尔型变量SW默认为False，单击命令按钮后弹出对话
框，在该对话框中输入25之后，始终没有在窗体上单击鼠标，因而没有改变SW的值，所以没有进行fun函数过程的调用，也就无
任何输出。

第4题：

单击命令按钮时，下列程序段的执行结果为（ ）。

A.8

B.6

C.4

D.2


正确答案：B
B)【解析】本题考查循环程序的分析。在函数Funcl中，程序主要由一条嵌套的循环语句构成，如果m<>n，外循环内部的第一条内循环为除去m中包含的所有的n的倍数。第二条内循环为除去n中包含的m的倍数。最后计算到m和n相等。

第5题：

单击命令按钮，并在对话框内依次输入99，73，84，88，-1，下列程序段的执行结果为______。 Private Sub Command1_Click() Dim S As Single, max As Single, min As Single n=0 S=InputBox("Please enter a score") max=S min=S Do While S＞=0 If S＞max Then max=S End If If S ＜ min Then min=S End If S=InputBox("Please enter a score") n=n+1 Loop Print n; ":"; max, min End Sub

A．4:99,88

B．4;99,73

C．4:99,73

D．4;99,88


正确答案：C

第6题：

在窗体上画一个命令按钮，名称为Commandl，然后编写如下程序：

Privme Sub Commandl_Click()

Dim intNum As Integer

intNum＝InputBox(“请输入：”)

MsgBox f(intNum)

End Sub

Function f(X As Integer) As Integer

f＝IIf (X<10,X,X+5)

End Function

运行程序，单击命令按钮，在输入对话框中输入5，则程序的输出结果为______。


正确答案：5
5 解析： 本题考查IIf函数和函数调用的知识。本题中调用函数f(intNum) ，也就是将intNum的值5传给形参X；IIf函数可用于执行简单的条件判断操作，此函数有3个参数，当第一个参数为真时返回第二个参数值，否则返回第三个参数值。因为X<10为真，所以返回并输出的值也就是5。

第7题：

在窗体上画一个命令按钮，然后编写如下程序：

Dim k As Long

k=1

Do While num

Loop

fun=k

End Function

Private Sub Command1_Click()

Dim n As Long

Dim r As Long

MsgBox r

End Sub

程序运行后，单击命令按钮，在输入对话框中输入234，消息框显示的结果为( )。


正确答案：×
0

第8题：

单击命令按钮，并在对话框内依次输入5，7，6下列程序段的执行结果为______。 Private Sub Command1_Click() Dim n AS Integer, a As Integer, b As Integer, c As Integer n = 0 For i = 1 To 3 a = InputBox ("请输入数字") n = n+a*a If n ＞ 50 Then GoTo ex End If Next i ex: Print n End Sub

A．25

B．74

C．85

D．110


正确答案：B

第9题：

打开一个工作簿文件的操作步骤是()。

A.执行“插入→文件”菜单命令，在对话框的“文件名”输入框中选择需要打开的工作簿，单击[确定]按钮

B.执行“插入→文件”菜单命令，在对话框的“文件名”输入框中选择需要打开的工作簿，单击[取消]按钮

C.执行“文件→打开”菜单命令，在“打开”对话框的“文件名”输入框中选择需要打开的工作簿，单击[取消]按钮

D.执行“文件→打开”菜单命令，在“打开”对话框的“文件名”输入框中选择需要打开的工作簿，单击[打开]按钮


参考答案：D

相关内容