更多"在窗体上画一个名称为Text1的文本框和一个名称为Commandl的命"的相关试题:
[单项选择]在窗体上画一个命令按钮和一个文本框，其名称分别为Commandl和Text1，把文本框的 Text属性设置为空白，然后编写如下事件过程：
Private Sub Commandl_click（ ）
a=InputBox("Enter an integer")
b=InputBox("Enter an integer")
Text1.Text=b+a
End Sub
程序运行后，单击命令按钮，如果在输入对话框中分别输入8和10，则文本框中显示内容是( )。
A. 108
B. 18
C. 810
D. 出错
[单项选择]在窗体上画一个命令按钮和一个文本框，其名称分别为Commandl和Text1，把文本框的Text属性设置为空白，然后编写如下事件过程： Private Sub Commandl_Ciick（ ） a=InputBox("Enter an integer") b=InputBox("Enter an integer") Text1.Text=b+a End Sub 程序运行后，单击命令按钮，如果在输入对话框中分别输入8和10，则文本框中显示的内容是______。
A. 108
B. 18
C. 810
D. 出错
[单项选择]在窗体上画1个命令按钮(名称为Commandl)和1个文本框(名称为Text1)，然后编写如下事件过程： Private Sub Commandl_Click（ ） x=Val(Text1.Text) SelectCaseX Case 1，3 y=X*X CaseIS＞=10，IS＜=-10 y=X Case-10 To 10 y=-X End Select End Sub 程序运行后，在文本框中输入3，然后单击命令按钮，则以下叙述中正确的是( )。
A. 执行y=x*x
B. 执行y=-x
C. 先执行y=x*x，再执行y=-x
D. 程序出错
[单项选择]
在窗体上画一个命令按钮和一个文本框，名称分别为Commandl和Text1，然后编写如下程序：
Private Sub Commandl_click（ ）
a=InputBox(“请输入日期(1～31)”)
t="旅游景点:"
& IIf(a＞0 And a＜=10,"长城","")_
& IIf(a＞10 And a＜=20,"故宫","")_
& IIf(a＞20 And a＜=31,"颐和园","")
Text1.Text=t
End Sub
程序运行后，如果从键盘上输入16，则在文本框显示的内容是（）。
A. 旅游景点：长城故宫
B. 旅游景点：长城颐和园
C. 旅游景点：颐和园
D. 旅游景点：故宫
[单项选择]
在窗体上画一个名称为Commandl的命令按钮和一个名称为Text1的文本框，在文本框中输入以下字符串：Microsoft Visual Basic Programming 然后编写如下事件过程：
Private Sub Commandl_Click（ ）
Open"d:/temp/outf,txt"For Ouput As #1
For i=1 To Len(Text1.Text)
c=Mid(Text1.Text,i,1)
If c＞="A"And C＜="Z"Then
Print #1,LCase(C)
End If
Next i
Close
End Sub
程序运行后，单击命令按钮，文件outf.txt中的内容是（）。
A. MVBP
B. mvbp
C. M
D. m V V B b P p
[填空题]在窗体上画一个文本框，名称为Text1，画一个命令按钮，名称为Commandl。程序运行时，单击命令按钮，能将事先输入到文本框中的内容一个字符一个字符地写入顺序文件 test.dat中。请在空白处填上适当的内容，将程序补充完整。
Private Sub Command1_Click（ ）
Open"c：/test.dat"For Output As #1
For I=1 to Len(Text1.text)
______
Next I
Close #1
End Sub
[填空题]
在窗体上画1个名称为Commandl的命令按钮和2个名称分别为Text1、Text2的文本框，如下图所示，然后编写如下程序；
Function Fun(x As Integer,ByVhly As Inmgcr)As Integer
X=K+y
If x＜0 Then
Fun=x
Else
Fun=y
End If
End Function
Private Sub Cornmandl_Click（ ）
Dima As Integer,b As
Integer
a=-10:b=5
Tcxt1,Text=Fun(a,b)
Text2,Text=Fun(a,b)
End Sub
程序运行后，单击命令按钮，Text1和Text2文本框显示的内容分别是上 [14] 和
[15] 。
[填空题]在窗体上画一个名称为Commandl的命令按钮和一个名称为Text1的文本框。程序运行后，Command1为禁用(灰色)。当向文本框中输入任何字符时，命令按钮Command1变为可用。请在______处填入适当的内容，将程序补充完整。
Private Sub Form_Load（ ）
Command1.Enabled=False
End Sub
Private Sub Text1_ ______（ ）
Command1.Enabled=True
End sub
[单项选择]在窗体上画一个名称为Text1的文本框和一个名称为Commandl的命令按钮，然后编写如下事件过程： Private Sub Commandl Click（ ） Dim arrayl(10,10)As Integer Dim i As Integer,j As Integer For i=1 To 3 For j=2 To 4 array l(i,j)=i+j Next j Next i Text1.Text=arrayl(2,3)+arrayl(3,4) End Sub 程序运行后，单击命令按钮，在文本框中显示的值是______。
A. 12
B. 13
C. 14
D. 15
[填空题]
在窗体中添加一个命令按钮(名为Commandl)和一个文本框(名为Text1)，然后编写如下事件过程：
Private Sub Command1_Click（ ）
Dim x As Integer，y As Integer，z As Integer
x=5：y=7：z=0
Me!Text1=””
Call p1(x,y,z)
Me!Text1=z
End Sub
Sub p1(a As Integer，b As Integer，c As Integer)
c=a+b
End Sub
打开窗体运行后，单击命令按钮，文本框中，显示的内容是（）。
[单项选择]在表单中有命令按钮Commandl和文本框Text1，将文本框的InputMask属性值设置为$9,999.9，然后在命令按钮的Click事件中输入代码ThisForm.Text1.Value=12 3456.789，当运行表单时，单击命令按钮，此时文本框中显示的内容为______。
A. $123456.789
B. $23456.7
C. 123456.7
D. **，***．*
[填空题]在窗体上画一个命令按钮和一个文本框，然后编写命令按钮的Click事件过程。程序运行后，在文本框中输入一串英文字母(不区分大小写)，单击命令按钮，程序可找出未在文本框中输入的其他所有英文字母，并以大写方式降序显示到Text1中。例如，若在 Text1中输入的是abDfdb，则单击Command1按钮后Text1中显示的字符串是
ZYXWVUTSRQPONMLKJIHGEC。请填空。
Private Sub Command1_Click（ ）
Dim str As String，s As String，c As String
str=UCase(Textl)
s = " "
c = "Z"
While c＞="A"
If InStr(str，c)=0 Then
s = ______
End If
c = Chrs(Asc(c) ______)
Wend
If s＜＞" " Then
Text1 = s
End If
End Sub
