更多"在窗体上利用菜单编辑器设计一个主菜单项“菜单控制”(Name属性值为m"的相关试题:
[填空题]在窗体上利用菜单编辑器设计一个主菜单项“菜单控制”(Name属性值为mnuMenu)，然后为其设计两个子菜单项“增加菜单”(Name属性值为mnuAdd) 和“减少菜单”(Name属性值为mnuDel)，另外设置一个标题为空的菜单项<控件数组)，其Name属性值为mnuDyn，Index值为0，Visible属性值为False；然后编写以下程序来实现增加和减少菜单项的功能，完成程序。
Dim Inxld As Integer
Private Sub mnuAdd_Click（ ）
Dim mnuc As String
mnuc=InputBox("input caption")
InxId；InxId+1
【6】 mnuDyn(InxId)
mnuDyn(Inxld) ，Calption=mnuc
mauDyn(InxId) .Visible=True
End Sub
Private SubmnuDel_Click（ ）
Dim i As Integer
If 【7】 Then
MsgBox "菜单项已全部被删除"
Else
Unload mnuDyn(InxId)
InxId=InxId-1
End If
End Sub
[单项选择]在窗体上有一个文本框Text1，Text属性值为空，然后编写下列事件过程：
Private Sub Text1_KeyPress(KeyAscii As Integer)
Dim str AS String, n As Integer
str=UCase(Chr(KeyAscii))
n=Len(str)
Text1. Text=String(n, str)
End Sub
程序运行后，若在文本框中输入单字母“p”，则在文本框Text1中显示的内容为( )。
A. pp
B. pP
C. PP
D. Pp
[单项选择]在窗体上有一个文本框Text1，Text属性值为空，然后编写如下事件过程：
Private Sub Text1_KeyPress(KeyAscii As Integer)
Dim str As String，n As Integer
str=UCase(Chr(KeyAscii))
n=Len(str)
Text1.Text=String(n，str)
End Sub
程序运行后，若在文本框中输入单字母“p”，则在文本框Text1中显示的内容为( )。
A. pp
B. pP
C. PP
D. Pp
[单项选择]在窗体上有一个文本框Text1，Text属性值为空，然后编写下列事件过程：
Private Sub Text1 KeyPress(KeyAscii As Integer)
Dim str As String,n As Integer
str=UCase(Chr(KeyAscii))
n=Len(str)
Text1.Text=String(n,str)
End Sub
程序运行后，若在文本框中输入单字母“p”，则在文本框Text1中显示的内容为( )。
A. pp
B. pP
C. PP
D. Pp
[单项选择]在窗体上有一个文本框Text1，Text属性值为空，然后编写如下事件过程：
Private Sub Text1_KeyPress(Key Ascii As Integer)
Dim str As String, n As Integer
str=UCase(Chr(Key Ascii))
n=Len(str)
Text1.Text=String(n,str)
End Sub
程序运行后，若在文本框中输入单字母“p”，则在文本框Text1中显示的内容为( )。
A. pp
B. pP
C. PP
D. Pp
[单项选择]窗体上有一个名称为Timer1的计时器控件，一个名称为Shape1的形状控件，其Shape属性值为3(Circle)。编写程序如下：
Private Sub Form_Load ( )
Shape1. Top = 0
Timer1. Interval = 100
End Sub
Private Sub Timer1_Timer( )
Static x As Integer
Shapel. Top = Shape1. Top + 100
x=x+1
If x Mod 10 =0 Then
Shape1. Top = 0
End If
End Sub
以下关于上述程序的叙述中，错误的是( )。
A. 每执行一次Timer1_Timer事件过程，x的值都在原有基础上增加1
B. Shape1每移动10次回到起点，重新开始
C. 窗体上的shape1由下而上移动
D. Shape1每次移动100
[单项选择]
窗体上有1个名称为Text1的文本框；1个名称为Timer的计时器控件，其Interval属性值为5000，Enabled属性值是True。
Timer1的事件过程如下：
Private Sub Timer1_Timer（ ）
Static flag As Integer
If flag=0 Then flag=1
flag=-flag
If flag=1 Then
Text1.ForeColor=&HPP& ’&HFF&为红色
Else
Text1.ForeColor=&HC000& ’&HC000&为绿色
End If
End Sub
以下叙述中正确的是（）
A. 每次执行此事件过程时，flag的初始值均为0
B. flag的值只可能取0或1
C. 程序执行后，文本框中的文字每5秒改变一次颜色
D. 程序有逻辑错误，Else分支总也不能被执行
[单项选择]窗体上有1个名称为Text1的文本框；1个名称为Timer1的计时器控件，其Interval属性值为5000，Enabled属性值是True。Timer1的事件过程如下：
Private Sub Timer1_Timer（ ）
Static Flag As Integer
If Flag=0 Then Flag=1
Flag=-Flag
If Flag=1 Then
Text1.ForeColor=＆HFF＆ '＆HFF＆为红色'
Else
Text1.ForeColor=＆HCOO＆ '＆HCOO＆为绿色'
End If
End Sub
以下叙述中正确的是( )
A. 每次执行此事件过程时，Flag的初始值均为0
B. Flag的值只可能取0或1
C. 程序执行后，文本框中的文字每5秒改变一次颜色
D. 程序有逻辑错误，Else分支总也不能被执行
[单项选择]在利用菜单编辑器设计菜单时，为了把组合键“Alt+X”设置为“退出(X)”菜单项的访问键，可以将该菜单项的标题设置为（）。
A. 退出(X&)
B. 退出(&X)
C. 退出(X#)
D. 退出(#X)
[单项选择]Powerpoint2000中，在演示文稿中插入公式，需要利用“公式编辑器”中的工具和菜单，使用（ ）菜单中的命令打开公式编辑器
A. 编辑
B. 工具
C. 窗口
D. 插入
[单项选择]在窗体上添加一个命令按钮，名为Command1，然后为该命令按钮编写如下事件过程，该过程执行结果为______。
Option Base 1
Private Sub Cemmand1_Click（ ）
Dim a As Variant
a = Array(1, 2, 3, 4)
j = 1
for i = 4 To 1 Step - 1
s = s+ a(i)* j
j= j* 10
Next i
Print s
End Sub
A. 4321
B. 1234
C. 34
D. 12
[单项选择]在窗体上添加一命令按钮，名称为Command1，然后为该命令按钮编写如下事件过程，该过程的执行结果为
Option Base 1
Private Sub Command1_Click（ ）
Dim a As Variant
a=Array(1，2，3，4)
j=1
For i=4 To 1 Step-1
s=s+a(i)*j
j=j*10
Next
Print s
End Sub
A. 4321
B. 1234
C. 34
D. 12
[填空题]不必存储属性值，而是从其他属性值推导出值的属性称为______属性。
[单项选择]在窗体上添加一个R命令按钮，名称为Command1，然后为该命令按钮编写如下事件过程，该过程的执行结果为
Option Base 1
PrivateSub Command1_Click（ ）
Dim a As Variant
a=Array(1，2，3，4)
j=1
For i=4 To 1 Step-1
s=s+a(i)*j
j=j*10
Next
Print s
End Sub
Ａ) 4321 Ｂ) 1234 Ｃ) 34 Ｄ) 12
[单项选择]在窗体上添加一个R命令按钮，名称为Command1,然后为该命令按钮编写如下事件过程，该过的执行结果为( )。
Option Base 1
Private Sub Command1_Click（ ）
Dim a As Variant
a=Array(1,2,3,4
j=1
For i=4 To 1 Step-1
s=s+a(i)*j
j=j*10
Next
Print s
End Sub
A. 4321
B. 1234
C. 34
D. 12
[填空题]在属性窗口中，有些属性具有预定值，在这些属性上双击属性值可以______。
