窗体上有文本框Text1和命令按钮Command1,对Command1编写如下事...时,单击命令按钮,出现的信息框显示().
123
举一反三
- 窗体上有文本框Text1和命令按钮Command1,对Command1编写如下事件过程: Private Sub Command1_Click() Text1.Text="12345" Text1.Selstart=0 Test1.SelLength=3 MsgBox Text1.SelText End Sub 运行时,单击命令按钮,出现的信息框显示().
- 窗体上有文本框Text1和命令按钮Command1,编写如下事件过程:Priva...ommand1,窗体上显示的内容为()。
- 窗体上有文本框Text1、Text2和命令按钮Command1,编写如下事件过程...and1,则文本框Text2中显示()。
- 窗体上有文本框Text1、Text2和命令按钮Command1,编写如下事件过程:PrivateSubCommand1_Click()Ifval(Text1.Text)<=3thenText2.Text=“h”ElseText2.Text=“i”EndIfEndSub当用户在文本框Text1中输入6,并单击Command1,则文本框Text2中显示()。
- 窗体上有文本框Text1、Text2和命令按钮Command1,编写如下事件过程:PrivateSubCommand1_Click()Ifval(Text1.Text)>0thenText2.Text=1Elseifval(Text1.Text)=0thenText2.Text=0elseText2.Text=-1EndIfEndSub当用户在文本框Text1中输入168,并单击Command1,则文本框Text2中显示()。
内容
- 0
在窗体上添加一个命令按钮Command1和一个文本框Text1,并在命令按钮的Click事件过程中编写如下代码
- 1
在窗体中添加一个命令按钮command1两个文本框text1和text2然后编写如下程序private sub
- 2
窗体上有两个文本框(Text1、Text2)和一个命令按钮Command1,编写如下事件过程:PrivateSubCommand1_Click()x=0DoWhilex<50x=(x+2)*(x+4)n=n+1LoopText1.Text=Str(n)Text2.Text=str(x)EndSub运行时,单击按钮,Text1和Text2将分别显示()。
- 3
在窗体中有1个命令按钮Command1和1个文本框Text1,编写事件代码如下: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输出的结果是
- 4
在窗体上画一个命令按钮和一个文本框,名称分别为Command1和Text1,然后编写如下程序: Private Sub