题目内容
（请给出正确答案）
[判断题]
往窗体上设置了一个文本框和两个命令按钮，因此这个应用程序总共包含有三个对象。（)
答案
查看答案
重要提示：请勿将账号共享给其他人使用，违者账号将被封禁！
查看《购买须知》>>>
请输入或粘贴题目内容
搜题
拍照、语音搜题，请扫码下载APP
题目内容
（请给出正确答案）
答案
更多“往窗体上设置了一个文本框和两个命令按钮，因此这个应用程序总共包含有三个对象。（)”相关的问题
第1题
第2题
在窗体上建立名称为了ext1、Text2和Text3的三个文本框，其中Text1和Text2文本框用来接受两个整数(假设为M和N)，建立一个名称为Command1的命令按钮，单击它将得到数M从右边起的第N位数字，并把该数字显示在Text3文本框中，如图20-15如示。请填空。
.jpg){kind=spacer}
Private Function digit(ByVal m As Integer，ByVal n As Integer)As Integer Dim i As Integer For i=1 To n-1 m=m\10 Next i digit=【 】 End Function Private Sub Command1_Click() Dim m As Integer，n As Integer，k As Integer m=Val(Text1.Text) n=Val(TextText) k=【 】 TextText=Str(k) End Sub
第3题
A.40
B.30
C.20
D.10
第4题
在窗体上有5个控件：一个名称为Text1的文本框控件，用来显示文本；两个名称分别为Check1(设置显示文本的下划线)和Check2(设置显示文本的加粗)的复选框；两个名称分别为Option1(设置字的大小为12磅)和Option2(设置字的大小为16磅)的单选按钮。当Check1被选中时，文本框中显示的字体加下划线，当Option2被选中时，文字框中显示的字体大小为16磅，程序运行时的界面如图20-5所示。请填空。
.jpg){kind=spacer}
Private Sub Check1_Click() If Check1．Value=【 】Then Text1．FontUnderline=True Else Text1．FontUnderline=False End If End Sub Private Sub Option2_Click() Text1．【 】 End Sub
第5题
在窗体上添加一个命令按钮Command1，一个文本框Text1，编写如下程序：
Function result(ByVal x As Integer)As Boolean
If x Mod 2=0 Then
result=True
ElSe
result=False
End If
End Function
Private Sub Command1_Click()
x=Val(InputBox("请输入一个整数"))
If______Then
Textl=Str(x)&"是偶数."
ElSe
Text1=Str(x)&"是奇数."
End If
End Sub
程序运行后单击命令按钮，在输入对话框中输入19，则在Text1中显示“19是奇数”。那么程序的空白处应填写( )。
A．result(x)="偶数" B．result(x)="奇数"
C．result(x)D．NOT result(x)
第6题
窗体中有一个命令按钮Command1和一个文本框Text1。其中Command1的Click事件过程如下。
Private Sub Command1_Click()
Dim m As Single，n As Integer
m=2.54
n=Len(Str(m)+Space(5))
Me.Text1=n
End Sub
窗体运行后，单击命令按钮Command1，Text1中显示的是( )。
A．5 B．8 C．9 D．10
第7题
窗体中有一个命令按钮Command1和一个文本框Text1。其中Command1的Click事件过程如下。
Private Sub Command1_Click()
Dim i As Integer,s As String
s="首都经济贸易大学"
For i=1 To b Step 2
Text1=Text1&Mid(s,i,1)
Next i
End Sub
窗体运行后，单击命令按钮Command1，Text1中显示的是______。
第8题
A.①②③④⑤⑥
B.①②⑤
C.①②③④⑥
D.①②⑤⑥
第10题
第11题
A.15
B.14
C.13
D.12
