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

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

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

查看答案

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

查看答案

[单项选择]单击命令按钮时，下列程序段的执行结果为( )。
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

查看答案

[填空题]在窗体上加上一个文本框控件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

查看答案

[单项选择]在窗体上画一个命令按钮，名称为Command1。单击命令按钮时，执行如下事件过程：
Private Sub Command1_Click（　）
　　a$="software and hardware"
　　b$=Right(a$,8)
　　c$=Mid(a$,1,8)
　　MsgBox a$,,b$,c$,1
End Sub
则在弹出的信息框的标题栏中显示的信息是( )。
A. software and hardware
B. software
C. hardware
D. 1

查看答案

[单项选择]执行“系统”菜单里的“运行”命令，并在其对话框内指定了一个文档的路径和名称(而不是指定一个程序的名称)，将______。
A. 显示出错信息(必须指定一个程序的名称)
B. 运行相关的应用程序并打开该文档
C. 显示该文档的位置(路径)
D. 显示该文档的内容

查看答案

[填空题]在Visual FoxPro表单中，当用户使用鼠标单击命令按钮时，会触发命令按钮的【12】事件。

查看答案

[填空题]在窗体上加上一个文本控件PCSTextBox，画一个命令按钮，当单击命令按钮的时候将显示 “打开文件”对话框，设置该对话框只用于打开文本文件，然后在文本控件中显示打开的文件名。请填空。　　Private Sub Command1_Click（　）　　　　CommonDialog1．Filter=【】　　　　CommonDialog1．ShowOpen 　　　　PCSTextBox．Text=【】　　End Sub

查看答案

我来回答:

提交