更多"用菜单命令在文档中添加一个图形框。"的相关试题:
[单项选择]在窗体中添加一个命令按钮、一个标签和一个文本框，并将文本框的Text属性置空，编写命令按钮Command1的Click事件代码：
Private Function fun(x As Long)As Boolean
If x Mod 2=0 Then
fun=True
Else
fun=False
End If
End Function
Private Sub Command1_Click（ ）
Dim n As Long
n=Val(Text1.Text)
p=IIf(fun(n),"奇数","偶数")
Label1.Caption=n & "是一个"& p
End Sub
程序运行后，在文本框中输入20，单击命令按钮后，标签中的内容为( )。
A. 20是一个奇数
B. 20
C. 20是一个偶数
D. 2
[单项选择]在窗体中添加一个命令按钮和一个文本框，并编写如下程序代码：
Private Sub Command1_Click（ ）
k=0
Do While k ＜ 70
k=k+2
k=k*k+k
a=a+k
Loop
Text1．Text=a
End Sub
程序运行后，文本框中显示的是
A. 20
B. 32
C. 44
D. 78
[单项选择]在窗体中添加一个命令按钮，名称为Command1；添加一个文本框，名称为Text1，然后编写如下程序：
Private Sub Commandl Click（ ）
Dim a(5)， b(5)
For j = 1 To 4
a(j) = 3 ( j
b(j) = a(j) ( 3
Next j
Text1.Text = b(j/2)
End Sub
程序运行后，单击命令按钮，在文本框中显示
A. 25
B. 18
C. 36
D. 35
[填空题]在窗体中添加一个命令按钮cmd和一个文本框txt，然后编写如下事件过程：
Private Sub cmd_click( )
Dim x As Integer, y As Integer, z As Integer
x=5
y=7
z=0
Me! Txt=""
Call p(x,y,z)
Me! txt=z
End Sub
Sub p(a As Integer, b As Integer, e As Integer)
c=a+b
End Sub
单击按钮，文本框显示的内容是 【12】 。
[填空题]在窗体上添加一个文本框控件Info，画一个命令按钮，当单击命令按钮显示“保存文件”对话框，设置该对话框可用于保存文本文件(默认)和可执行文件(．exe)，然后在文本控件中显示保存的文件名。
Private Sub Command1_Click( )
CommonDialog1．Filter=【 】
CommonDialog1．FilterIndex=【 】
CommonDialog1．ShowSave
Info．Text=【 】
End Sub
[单项选择]在窗体中添加一个命令按钮(名为Command1) 和一个文本框(名为Text1) ，并在命令按钮中编写如下事例代码：
Private Sub Command1_Click( )
Str1="981765"
Str2="65"
n=InStr(Str1,Str2)
Me.Text1=n
End Sub
窗体打开运行后，单击命令按钮，在文本框中显示______。
A. 4
B. 5
C. 6
D. 7
[单项选择]在窗体中添加一个名称为Command1的命令按钮和一个名称为text1的文本框，然后编写如下程序； ( ) Private Sub Commandl_Click（ ） Dim x，y，z As Integer x=5：y＝7：z=O Text1．Text="" Call Pl(x，y，z) Text1. Text＝Str(z) End Sub Sub P1(ByVal a As Integer, ByVal b As Integer, c As Integer) c=a+b End Sub
A. 0
B. 12
C. Str(
D. 没有显示
