[单选题]

窗体上有一个命令按钮和一个文本框，程序执行后，在文本框中输入12345，单击命令按钮后的输出结果为( )。 Private Sub Command1_Click() Dim A As Integer,B As Integer Text1.SelStart=2 Text1.SelLength=2 A=Val(Text1.SelText) B=Len(Text1.Text) Print A*B End Sub

A．68

B．115

C．170

D．1170

参考答案与解析：

相关试题

( 31 )在窗体上有一个命令按钮 Commandl 和一个文本框 Textl

[单选题]（ 31 ）在窗体上有一个命令按钮 Commandl 和一个文本框 Textl ，编写事件代码如下：Private Sub Command1_Click()D．im i,j,xF．or i = 1 To 20 step 2x = 0F．or j = To 20 step 3x = x + 1Next jNext iTextl.Value=Str(x)E．nd Sub打开窗体运行后，单击命令按钮，文本框中显示的结果是A． ） 1B． ） 7C． ） 17D． ） 400

  • 查看答案

    • 表单中有三个文本框和一个命令按钮，欲在单击命令按钮后将焦点设在第二个文本框，命令

    [单选题]表单中有三个文本框和一个命令按钮，欲在单击命令按钮后将焦点设在第二个文本框，命令THISFORM.TEXT2.SETFOCUS应该书写在（）事件中。A . 命令按钮的CLICKB . TEXT2的CLICKC . 命令按钮的SETFOCUSD . TEXT2的SETFOCUS

  • 查看答案

    • 在窗体上有一个命令按钮和一个文本框。编写如下事件过程:PrivateSubCom

    [主观题]在窗体上有一个命令按钮和一个文本框。编写如下事件过程：Private Sub Command1_Click()a=InputBox("请输入一个整数")Text1．Text=aIf a ＞ 0 ThenIf a Mod 3 = 0 ThenMsgBox "True"E．lseMsgBox "error"E．nd IfE．nd IfE．nd Sub程序运行后，单击命令按钮，在输入对话框里输入12，则弹出的提示内容是______。

  • 查看答案

    • 在窗体中添加一个命令按钮、一个标签和一个文本框,并将文本框的Text属性置空,编

    [单选题]在窗体中添加一个命令按钮、一个标签和一个文本框，并将文本框的Text属性置空，编写命令按钮Command1的Click事件代码：程序运行后，在文本框中输入20，单击命令按钮后，标签中的内容为（ ）。A． 20是一个奇数B． 20C． 20是一个偶数D． 2

  • 查看答案

    • 在窗体上有一个命令按钮Commandl和一个文本框Textl,编写事件代码如下:

    [单选题]在窗体上有一个命令按钮Commandl和一个文本框Textl，编写事件代码如下：Private SuB cormmandl_Click()D．im i,j,xF．or i=i To 20 step 2x=0F．or j=1 To 20 step 2x=x+1Next jNext iText1.Value=Str(x)E．nd SuB打开窗体运行后，单击命令按钮，文本框中显示的结果是A．1B．7C．17D．400

  • 查看答案

    • ( 24 )窗体上有一个 Text1 文本框,一个 Command1 命令按钮,

    [单选题]（ 24 ）窗体上有一个 Text1 文本框，一个 Command1 命令按钮，并有以下程序Private Sub Commandl_Click （）D．im nIf Text1.Text<> " 23456 " Thenn=n ＋ 1Print " 口令输入错误 " & n & " 次 "E．nd IfE．nd Sub希望程序运行时得到左图所示的效果，即：输入口令，单击 “ 确认口令 ” 命令按钮 ， 若输入的口令不是 “ 123456 ” ，则在窗体上

  • 查看答案

    • 在窗体中添加一个命令按钮Commandl和一个文本框Text1,编写命令按钮Co

    [单选题]在窗体中添加一个命令按钮Commandl和一个文本框Text1，编写命令按钮Com-mand1 的 Click事件代码； Private Sub Command1_Click() Dim S As String*20 S=TextText End Sub 该程序的功能是当单击按钮Command1时，把变量S中内容写入一个顺序文件 datl. dar中，正确的程序段是 ( )A．Open "datl. dat", For lnput As#1 Write井1,SB．Open"datl. da

  • 查看答案

    • 在窗体上加上一个文本框控件TextBox,画一个命令按钮,当单击命令按钮的时候将

    [试题]在窗体上加上一个文本框控件TextBox，画一个命令按钮，当单击命令按钮的时候将显示"保存文件"对话框，设置该对话框可用于保存文本文件（默认） 和Word文档，然后在文本框控件中显示保存的文件名，请填空。Private Sub Command1_Click（）C．ommonDialog1.Filter= (13)C．ommonDialog1.Filter= (14)C．ommonDialog1.ShowSaveTextBox.Text= (15)E．nd Sub

  • 查看答案

    • 在窗体上画一个命令按钮和一个文本框,然后编写命令按钮的Click事件过程。程序运

    [主观题]在窗体上画一个命令按钮和一个文本框，然后编写命令按钮的Click事件过程。程序运行后，在文本框中输入一串英文字母（不区分大小写），单击命令按钮，程序可找出未在文本框中输入的其他所有英文字母，并以大写方式降序显示到Text1中。例如，若在Text1中输入的是abDfdb，则单击Command1按钮后Text1中显示的字符串是ZYXWVUTSRQPONMLKJIHGEC。请填空。Private Sub Command1_Click（ ）D．im str As String, s As String,

  • 查看答案

    • 在窗体上面一个命令按钮Commandl和一个文本框Textl,然后编写下列程序:

    [单选题]在窗体上面一个命令按钮Commandl和一个文本框Textl,然后编写下列程序： Private Sub Commandl_ClickO A=InputBox("请输入日期（1～31）") T="旅游景点："_ ﹠IIf(A>0And A ﹠IIf(A>10And A ﹠IIf(A>20And A Text1.Text=t End Sub程序运作后，如果从键盘输入5，则在文本框中显示的内容。A．旅游景点：长城 B. 旅游景点：长城颐和园C. 旅游景点：颐和园 D. 旅游景点：故宫

  • 查看答案