网友您好， 请在下方输入框内输入要搜索的题目：
题目内容
（请给出正确答案）
在窗体中添加一个命令按钮Command1，并有以下程序：
Functionretnum()
nl=Chr(13)+Chr(10)
msg$="1.运行VB应用程序"+nl+"2.计算器"
msg$=msg$+nl+"请输入数字选择"
retnum=InputBox(msg$,Title,Default)
EndFunction
PrivateSubCommand1_Click()
r=retnum
Ifr=1Then
x=Shell("c:\vbp\vbexam.exe",1)
ElseIfr=2Then
z=Shell("calc.exe",1)
Else
MsgBox"请输入1-2的数"
EndIf
EndSub
程序运行后，单击命令按钮，在输入对话框内输入2，窗体将显示( )
A.请输入1-2的数
B.Windows的计算器
C.调用C:\vbp\vbexam.exe程序并运行
D.出错
参考答案
更多 “ 在窗体中添加一个命令按钮Command1，并有以下程序：Functionretnum()nl=Chr(13)+Chr(10)msg$=1.运行VB应用程序+nl+2.计算器msg$=msg$+nl+请输入数字选择retnum=InputBox(msg$,Title,Default)EndFunctionPrivateSubCommand1_Click()r=retnumIfr=1Thenx=Shell(c:\vbp\vbexam.exe,1)ElseIfr=2Thenz=Shell(calc.exe,1)ElseMsgBox请输入1-2的数EndIfEndSub程序运行后，单击命令按钮，在输入对话框内输入2，窗体将显示( )A.请输入1-2的数B.Windows的计算器C.调用C:\vbp\vbexam.exe程序并运行D.出错 ” 相关考题
考题
在窗体中使用一个文本框(名为n) 接受输入的值，有一个命令按钮run，事件代码如下：Private Sub run_Click()result＝""For i＝1 To Me!nFor j＝1 To Me!nresult＝result+"*"Next jresult＝result+Chr(13) +Chr(10)Next IMsgBox resultEnd Sub打开窗体后，如果通过文本框输入的值为4，单击命令按钮后输出的图形是( )A．B．C．D．
考题
（ 9 ） 窗体上有名称为 Command1 的命令按钮及名称为 Text1 、 能显示多行文本的文本框 。 程序运行后 ，如果单击命令按钮，则可打开磁盘文件 c:\test.txt ，并将文件中的内容（多行文本）显示在文本框中。下面是实现此功能的程序，请填空。Private Sub Command1_Click()Text1= ””Number=FreeFileOpen “ c:\test.txt ” For Input As NumberDo While Not Eof( 【 14 】 )Line Input #Number,sText1.Text=Text1.Text+ 【 15 】 +Chr(13)+Chr(10)LoopClose NumberEnd Sub
考题
在窗体上画一个名称为command1的命令按钮，然后编写如下程序； Option Base 1 Private Sub Command1_Click() Dim arr(4)As String For i=1 To 4 arr(i) = Chr(Asc("A")+(i-1)) Next i For Each b1 In arr Print b1； Next End Sub 程序运行后，如果单击命令按钮，则在窗体上输出的内容为 ______。A．ABCDB．abcdC．出错信息D．1 2 3 4
考题
若有如下Sub过程：Sub sfun(x As Single，y As Single)t=Xx=t／yy=t Mod YEnd Sub在窗体中添加一个命令按钮Command33，对应的事件过程如下：Private Sub Command33_Click()Dim a As SingleDim b As Singlea=5： b=4sfun a,bMsgBox a＆chr(10)+chr(13)bEnd Sub打开窗体运行后，单击命令按钮，消息框中有两行输出，内容分别为A．1和1B．1．25和1C．1．25和4D．5和4
考题
窗体上有名称为Commandl的命令按钮及名称为Textl、能显示多行文本的文本框。程序运行后，如果单击命令按钮，则可打开磁盘文件c：＼test．txt，并将文件中的内容(多行文本)显示在文本框中。下面是实现此功能的程序，请填空。Private Sub Commandl_Click()Textl=“”Number=FreeFileOpen“c：＼test．txt”For Input As NumberDo While Not EOF(【 】)Line InputNumber，sTextl．Text=Textl．Text+【 】+Chr(13)+Chr(10)LoopClose NumberEnd Sub
考题
在窗体中使用一个文本框(名为n)接受输入的值，有一个命令按钮run，事件代码如下：Private Sub run_Click()result＝""For i＝1 To Me!nFor j＝1 To Me!nresult＝result+"*"Next jresult＝result+Chr(13)+Chr(10)Next iMsgBox resultEnd Sub打开窗体后，如果通过文本框输入的值为4，单击命令按钮后输出的图形是( )。A．B．C．D．
考题
在窗体中使用一个文本框（名为n）接受输入的值，有一个命令按钮Fun，事件代码如下： Private Sub run_Click（ ） result= Fori=l ToMe!nForj=1 To Melnresult=result+*Nextjresult=result+Chr（13）+Chr（10）NextiMsgBox resultEnd Sub打开窗体后，如果通过文本框输入的值为4，单击命令按钮后输出的图形是（ ）。
考题
假定有如下的Sub过程： Sub sfun（X As Single，y As Single）t=XX=t／yY=tModYEndSub在窗体上添加一个命令按钮（名为Commandl），然后编写如下事件过程。 Private Sub Commandl Click（ ） Dim aAs singleDimbAs singlea=5b=4sfun a，bMsgBOX a&；chr（10）+chr（13）&；bEndSub打开窗体运行后，单击命令按钮，消息框的两行输出内容分别为（ ）。A.1和1B.1．25和1C.1．25和4D.5和4
考题
在窗体中使用一个文本框(名为n．接受输入的值，有一个命令按钮run，事件代码如下：Private Sub run_Click( ．result = For i= 1 To Me!nFor j = 1 To Me!nresult = result + *Next jresult = result + Chr(13． + Chr(10．Next iMsgBox resultEnd Sub打开窗体后，如果通过文本框输入的值为4，单击命令按钮后输出的图形是
热门标签
最新试卷
