[单项选择]单击命令按钮，并在对话框内输入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. 双休日

更多"单击命令按钮，并在对话框内输入6，下列程序段的执行结果为______。"的相关试题:

[单项选择]单击命令按钮，并在对话框内依次输入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

查看答案

[单项选择]单击命令按钮时，下列程序段的执行结果为( )。
Private Sub Command1_Click（　）
Dim FirstStr As String
FirstStr="abcdef"
Print PickMid(FirstStr)
End Sub
Private Function PickMid(xStr As String)As String
Dim tempStr As String,strLen As Integer
TempStr=" "
strLen=Len(xStr)
i=1
Do While i＜=strLen/2
tempStr=tempStr+Mid(xStr,i,1)+Mid(xStr,strLen-i+1,1)
i=i+1
Loop
PickMid=tempStr
End Funcfion
A. abcdef
B. fed
C. fedcba
D. defabc

查看答案

[单项选择]单击命令按钮，并在对话框内依次输入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

查看答案

[填空题]在窗体上加上一个文本框控件TextBox，画一个命令按钮，当单击命令按钮的时候将显示“保存文件”对话框，设置该对话框可用于保存文本文件(默认)和Word文档，然后在文本框控件中显示保存的文件名，请填空。　　Private Sub Command1_Click( ) 　　　CommonDialog1．Filter=【】　　　　CommonDialog1．Filter=【】　　　　CommonDialog1．ShowSave 　　　TextBox．Text=【】　　　End Sub

查看答案

[单项选择]窗体上有一个命令按钮，命令按钮的单击事件过程如下。运行程序后，单击命令按钮，输出结果是( )。

Private Sub Command1_Click（　）

Dim a

a=Array(1,2,3,4,5)

For k=1 To 4

S=s+a(k)

Next k

Print s

End Sub
A. 10
B. 14
C. 15
D. 120

查看答案

[填空题]在窗体上添加一个文本框控件Info，画一个命令按钮，当单击命令按钮显示“保存文件”对话框，设置该对话框可用于保存文本文件(默认)和可执行文件(．exe)，然后在文本控件中显示保存的文件名。　　Private Sub Command1_Click( ) 　　　　CommonDialog1．Filter=【】　　　　CommonDialog1．FilterIndex=【】　　　　CommonDialog1．ShowSave 　　　　Info．Text=【】　　End Sub

查看答案

[单项选择]单击命令按钮，下列事件过程的执行结果为( )。　　 Private Sub Command1_Click( ) 　　　　Dim x As Integer, y As Integer 　　　　x=40：y=72 　　　　Call PtoP(x, y) 　　　　Print x; y 　　 End Sub 　　 Public Sub PtoP(Byval n AS Integer, ByVal m Aa Integer) 　　　　n = n / 10+2 　　　　m = m / 10+2 　　 End Sub
A. 0 8
B. 40 72
C. 4 50
D. 78 50

查看答案

[单项选择]单击命令按钮，下列程序的执行结果为　　Private Sub Commandl_Click（　）　　　　Dim x As Integer，y As Integer　　　　x=32：y=42　　　　Call PCS(x，y)　　　　Print x；y　　End Sub　　Public Sub PCS(Byval n As Integer，ByVal m As Integer)　　　　n=n Mod 10+1　　　　m=m Mood 10+1　　End Sub

A. 32 42
B. 2 32
C. 2 3
D. 12 3

查看答案

[单项选择]单击命令按钮时，下列程序的执行结果为 Prirate Sub Command1_CUck( ) Dim x As Integer，y As Integcr x=12：y=32 Call PCS(x，y) Print x；y End Sub Public Sub PCS(ByVal n As Integer，ByVnl m As Integer) n=n Mod 10 m=m Mod 10 End Sub
A. 1232
B. 232
C. 23
D. 123

查看答案

[单项选择]单击命令按钮，下列程序的执行结果为( )。　　Private Sub Commandl_Click（　）　　　　Dim x As Integer，y As Integer 　　　　x=32：y=42 　　　　Call PCS(x，y) 　　　　Print x；y 　　End Sub 　　Public Sub PCS(Byval n As Integer，ByVal m As Integer) 　　　　n=n Mod 10+1 　　　　m=m Mood 10+1 　　End Sub
A. 32 42
B. 2 32
C. 2 3
D. 12 3

查看答案

[单项选择]单击命令按钮时，下列程序代码的运行结果为( )。　　Private Sub Command1_Click（　）　　　　print MyFunc(20，18) 　　End Sub 　　Public Function MyFunc (m As Integer，n As Integer)As Integer 　　　　Do While m <>n 　　　　　　Do While m ＞ n：m=m - n：Loop 　　　　　　Do While m ＜ n：n=n - m：Loop 　　　　Loop 　　　　MyFunc=m 　　End FunCtion
A. 0
B. 2
C. 4
D. 6

查看答案

[单项选择]单击命令按钮，下列事件过程的执行结果为　　 Private Sub Command1_Click( )　　　　Dim x As Integer, y As Integer　　　　x=40：y=72　　　　Call PtoP(x, y)　　　　Print x; y　　 End Sub　　 Public Sub PtoP(Byval n AS Integer, ByVal m Aa Integer)　　　　n = n / 10+2　　　　m = m / 10+2　　 End Sub
A. 0 8
B. 40 72
C. 4 50
D. 78 50

查看答案

我来回答:

提交