在窗体中添加一个命令按钮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("ca

题目

在窗体中添加一个命令按钮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.出错

相似考题

1.在窗体中使用一个文本框(名为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．

2.在窗体上画一个名称为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

3.若有如下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

4.（ 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

参考答案和解析
正确答案：B
更多“在窗体中添加一个命令按钮Command1,并有以下程序:Functionretnum()nl=Chr(13)＋Chr(10)msg$ ”相关问题

  • 第1题：

    窗体上有名称为Commandl的命令按钮及名称为Textl、能显示多行文本的文本框。程序运行后，如果单击命令按钮，则可打开磁盘文件c：＼test．txt，并将文件中的内容(多行文本)显示在文本框中。下面是实现此功能的程序，请填空。

    Private Sub Commandl_Click()

    Textl=“”

    Number=FreeFile

    Open“c：＼test．txt”For Input As Number

    Do While Not EOF(【 】)

    Line InputNumber，s

    Textl．Text=Textl．Text+【 】+Chr(13)+Chr(10)

    Loop

    Close Number

    End Sub


    正确答案：Numbers
    Number,s 解析：EoF函数的格式为EOF(文件号)，用于测试文件指针是否到达文件末尾，因此第14个空应填文件号Number；Line函数返回文件中一行的数据，要将文件中的内容在文本框中显示，就要用Textl．Text连接上s再连接回车换行，所以第15个空应该填文件中的内容s。

  • 第2题：

    在窗体中使用一个文本框（名为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，单击命令按钮后输出的图形是（ ）。


    正确答案：A
    A．【解析】本题考查二重循环的知识。在这个二重循环中，外循环的执行次数为4，内循环的执行次数也为4，并且每次内循环退出后都要换行，所以最后结果为一个4×4的矩阵，矩阵的每个元素都为“*”。

  • 第3题：

    在窗体中使用一个文本框(名为n．接受输入的值，有一个命令按钮run，事件代码如下：

    Private Sub run_Click( ．

    result = ""

    For i= 1 To Me!n

    For j = 1 To Me!n

    result = result + "*"

    Next j

    result = result + Chr(13． + Chr(10．

    Next i

    MsgBox result

    End Sub

    打开窗体后，如果通过文本框输入的值为4，单击命令按钮后输出的图形是


    正确答案：A
    本题通过双重For循环输出字符串，由于内层循环的循环次数为4，且每次内层循环均输出一个"*"，则每次外层循环输出一行"****"。由于外层循环的循环次数也为4，则四次外层循环后共输出四行"****"，所以选项A的输出是正确的。所以本题答案为A。

  • 第4题：

    在窗体中使用一个文本框(名为n)接受输入的值，有一个命令按钮run，事件代码如下：

    Private Sub run_Click()

    result＝""

    For i＝1 To Me!n

    For j＝1 To Me!n

    result＝result+"*"

    Next j

    result＝result+Chr(13)+Chr(10)

    Next i

    MsgBox result

    End Sub

    打开窗体后，如果通过文本框输入的值为4，单击命令按钮后输出的图形是( )。

    A．

    B．

    C．

    D．


    正确答案：A
    解析：本题考查二重循环的知识。在这个二重循环中，外循环的执行次数为4，内循环的执行次数也为4，并且每次内循环退出后都要换行，所以最后结果为一个 4×4的矩阵，矩阵的每个元素都为“*”。

  • 第5题：

    假定有如下的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和1

    B.1．25和1

    C.1．25和4

    D.5和4


    正确答案：B
    暂无解析，请参考用户分享笔记

相关内容