[主观题]

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

Private Sub Command1_Click()

a=InputBox("请输入一个整数")

Text1.Text=a

If a > 0 Then

If a Mod 3 = 0 Then

MsgBox "True"

E.lse

MsgBox "error"

E.nd If

E.nd If

E.nd Sub

程序运行后,单击命令按钮,在输入对话框里输入12,则弹出的提示内容是______。

参考答案与解析:

相关试题

在窗体上有一个命令按钮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

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

    [单选题]在窗体中有一个命令按钮Commandl和一个文本框Textl,编写事件代码如下:F.or i=1 T04X=3F.or j=1 T03F.or k=1 T02x=x+3Next kNext jNext iText1.Value=Str(x)E.nd Sub打开窗体运行后,单击命令按钮,文本框Text1中输出的结果是( )。A.6B.12C.18D.21

  • 查看答案
  • 在窗体上有一个命令按钮Command1和一个文本框Text1,编写事件代码如下:

    [单选题]在窗体上有一个命令按钮Command1和一个文本框Text1,编写事件代码如下: Private Sub Command1_Click() Dim i,j,x For i=1 To 20 Step 2 x=0 For j-i To 20 Step 3 x=x+1 Next j Next i Text1.Value=Str(x) End Sub打开窗体运行后,单击命令按钮,文本框中显示的结果是( )。A.1B.7C.17D.400

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

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

  • 查看答案
  • ( 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

  • 查看答案
  • 在窗体中有一个命令按钮Command1和一个文本框Text1,编写事件代码如下:

    [单选题]在窗体中有一个命令按钮Command1和一个文本框Text1,编写事件代码如下:Private Sub Command1_Click()F.or I=1 To 4X=3F.or j=i To 3F.or k=1 To 2X=x+3Next kNext jNext IText].value=Str(x)E.nd Sub打开窗体运行后,单击命令按钮,文本框Text1输出的结果是A.6B.12C.18D.21

  • 查看答案
  • 在窗体中有一个命令按钮Command1和一个文本框Test1,编写事件代码如下:

    [单选题]在窗体中有一个命令按钮Command1和一个文本框Test1,编写事件代码如下: Private Sub Command1_Click() For I=1 To 4 x=3 For j=1 To 3 For k=1 To 2 x=x+3 Next k Next j Next I Text1.Value=Str(x) End Sub 打开窗体运行后,单击命令按钮,文本框Text1中输出的结果是( )。A.6B.12C.18D.21

  • 查看答案
  • 在窗体上添加一个命令按钮和一个文本框,并在命令按钮中编写如下代码:Private

    [单选题]在窗体上添加一个命令按钮和一个文本框,并在命令按钮中编写如下代码:PrivateSubCommand1_Click()a=1.2c=Len(Str( )+Space(10))Text1.Text=cE.ndSub程序运行后,单击命令按钮,在文本框中显示( )A.3B.8C.14D.10

  • 查看答案
  • 在窗体.上画一个列表框、一个文本框及一个按钮,然后编写如下事件过程:Prirat

    [单选题]在窗体.上画一个列表框、一个文本框及一个按钮,然后编写如下事件过程: Prirate Sub Form_Loab() List.Addltem"357" Llst.Addltem"246" List.Addltem"123" List.Addltem"456" TEXTl.Text="" End ub Private Sub Commandl_Click() List.LiSdndex=3 Print List.Text+Textl.TextA.789123B.456789C

  • 查看答案
  • 在窗体上有一个命令按钮,然后编写如下事件过程 PrivateSubCommand

    [单选题]在窗体上有一个命令按钮,然后编写如下事件过程Private Sub Commandl_cickc()a=InputBox( "enter the first integer")b=InputBox( "enter the second integer")Print b + aE.nd Sub程序运行后,单击命令按钮,先后在两个输入框中分别输入"2"和"6",则输出结果为( )。A.2B.62C.8D.26

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