假定窗体上有一个文本框,对它定义了一个弹出式菜单ContextMenuStrip1,则应在________的ContextMenuStrip属性中建立与ContextMenuStrip1的关联。
A.窗体
B.文本框
C.ContextMenuStrip
D.ContextMenuStrip1
A.窗体
B.文本框
C.ContextMenuStrip
D.ContextMenuStrip1
第1题
A.一个窗体只能有一个弹出式菜单
B.弹出式菜单在菜单编辑器中建立
C.弹出式菜单的莱单名(主菜单项)的“可见”属性通常设置为False
D.弹出式菜单通过窗体的PopupMenu方法显示
第2题
A.一个窗体只能有一个弹出式菜单
B.弹出式菜单在菜单编辑器中建立
C.弹出式菜单的莱单名(主菜单项)的“可见”属性通常设置为False
D.弹出式菜单通过窗体的PopupMenu方法显示
第3题
A)一个窗体只能有一个弹出式菜单
B)弹出式菜单在菜单编辑器中建立
C)弹出式菜单的菜单名(主菜单项)的“可见”属性通常设置为false
D)弹出式菜单通过窗体的popupmenu方法显示
第5题
A.Private Sub Form_ MouseDown (Button As Integer, _ Shift As Integer, X As Single, Y As SinglE)If Button = 1 And Button = 2 Then PopupMenu al End If End Sub
B.Private Sub Form_ MouseDown (Button As Integer, _ Shift As Integer, X As Single, Y As SinglE)PopupMenu a1 End Sub
C.Private Sub Form_ MouseDown (Button As Integer, _ Shift As Integer, X As Single, Y As SinglE)If Button = 1 Then PopupMenu a 1 End If End Sub
D.Private Sub Form_ MouseDown(Button As Integer, _ Shift As Integer, X As Single, Y As SinglE)If Button = 2 Then PopupMenu a 1 End If End Sub
第6题
A.Private Sub Form_MouseDown(Button As Integer,_ Shift As Integer,X As Single,Y As Single) If Button=1 And Button=2 Then PopupMenu a1 End If End Sub
B.Private Sub Form_MouseDown(Button As Integer,_ Shift As Integer,X As Single,Y As Single) PopupMenu a1 End Sub
C.Private Sub Form_MousoDown(Button As Integer,_ Shift As Integer,X As Single,Y As Single) If Button=1 Then PopupMenu a1 End If End Sub
D.Private Sub Form_MouseDown(Button As Integer,_ Shift As Integer,X As Single,Y As Single) If Buaon=2 Then PopupMenu a1 End If End Sub
第7题
A.Private Sub Form_MouseDown(Button As Integer,_Shift As Integer,X As Single,
Y As Single)
If Button=1 And Blltton=2Then
PopupMenu a1
End If
End Sub
B.Private Stlb Form_MouseDown(Button As Integer,_Shift As Integer,X As Single,
Y As Single)
PopupMenu a1
End Sub
C.Private Sub Form—MouseDown(Button As Integer,_Shift As Integer,X As Single,
Y As Single)
If Button=1 Then
PopupMenu a1
End If
End Sub
D.Private Sub Form. MouseDown(Button As Integer,_Shift As Integer,X As Single,
Y As Single)
If Buttcn=2 Then
PopupMenu a1
End If
End Sub
第8题
A.Private Sub Form_MouseDown(Button As Integer,_Shift As Integer,X As Single, Y As Single) If Button=1 And Blltton=2Then PopupMenu a1 End If End Sub
B.Private Stlb Form_MouseDown(Button As Integer,_Shift As Integer,X As Single, Y As Single) PopupMenu a1 End Sub
C.Private Sub Form—MouseDown(Button As Integer,_Shift As Integer,X As Single, Y As Single) If Button=1 Then PopupMenu a1 End If End Sub
D.Private Sub Form. MouseDown(Button As Integer,_Shift As Integer,X As Single, Y As Single) If Buttcn=2 Then PopupMenu a1 End If End Sub
第9题
阅读以下应用说明、属性设置以及 Visual Basic 程序代码,将解答写在答题纸的对应栏内。
[应用说明]
本应用运行时,由用户输入一个正整数 n 后自动产生 n 个正整数,然后按照用户的指定要求对该组数进行处理。该应用的运行界面如下图所示:
1. 窗体中有两个文本框(txtSrc,txtObj) 、两个标签(lblSrc,lblObj) 、三个命令按钮(cmdGendat,cmdProc,cmdQuit)和一个弹出式菜单(procMenu,初始时不可见) 。
2.文本框 txtSrc(由标签 lblSrc 提示)用于显示产生的数据,文本框 txtObj(由标签 lblObj 提示)用于显示处理结果,要求每行显示一个整数。
3. 程序启动时,命令按钮 cmdProc(运算要求)不可用。点击命令按钮 cmdGendat(产生数据)后,提示用户输入一个 n 的值并生成 n 个正整数存入数组元素 a(1)~a(n),然后将数据逐行显示在 txtSrc 中,并设置命令按钮 cmdProc 可用。
4. 点击命令按钮 cmdProc(运算要求)后弹出菜单。选择菜单项并单击后,进行相应处理并将结果显示在 txtObj 中,同时将 lblObj的标题改为该菜单项表示的处理命令。
弹出式菜单“运算要求”的结构如下表所示:
一个整数序列的中位数指对该序列进行非递减(增)排列后最中间位置上的元素。若序列长度为偶数,则取中间两个元素的平均值为其中位数。
[属性设置]
为实现单击命令按钮 cmdProc 后弹出“运算要求”菜单(procMenu) ,设计时需将procMenu 的 (1) 属性设置成 false。
供(1)选择的属性: Default Enabled ScaleMode Style Visible
[Visual Basic 程序代码]
Dim a() As Integer, n As Integer
Private Sub Form_Load()
txtSrc.Text = "": txtObj.Text = "": (2) = False
End Sub
Private Sub cmdGendat_Click() '生成正整数序列并存入数组a
On Error GoTo Error_handler
n = InputBox$("请输入数组元素个数:", "输入序列长度")
If (n < 1) Then
MsgBox "输入数据错误!", vbOKOnly, "提示:"
GoTo Error_handler:
End If
ReDim a(n) As Integer
s = ""
For i = 1 To n '将生成的正整数存入a(1)~a(n)中
a(i) = Int(Rnd * 10000) : s = s & Str$(a(i)) & vbCrLf
Next
txtSrc.Text = s
(3) '设置运算要求命令按钮可用
Error_handler:
End Sub
Private Sub cmdProc_Click()
PopupMenu procMenu
End Sub
Private Sub MidNum_Click() '求中位数
lblObj.Caption = MidNum.Caption & ":"
For i = 1 To round((n + 1)/2) '用选择排序法对数组a进行部分排序
a(0) = a(i):k = i ' a(0)用作临时变量,暂存第i次选出的最小元素
For j = i + 1 To n
If a(j) < a(0) Then
a(0) = a(j): k = (4)
End If
Next
If k <> i Then
a(k) = a(i): a(i) = a(0)
End If
Next
If n / 2 - n \ 2 > 0 Then 'n为奇数时,取中间一个数
txtObj.Text = Str$(a( (5) ))
Else 'n为偶数时,取中间两个数的平均值
txtObj.Text = Str$(Int((a(n \ 2) + a(n \ 2 + 1)) / 2))
End If
End Sub
'其他代码略
第10题
【应用说明】
本应用运行时,由用户输入一个正整数n后自动产生n个正整数,然后按照用户的指定要求对该组数进行处理。该应用的运行界面如下图所示:
1.窗体中有两个文本框。(txtSrc,txtObj)、两个标签(lblSrc,lblObj)、三个命令按钮(cmdGendat,cmdProc,cmdQuit)和一个弹出式菜单(procMenu,初始时不可见)。
2.文本框txtSrc(由标签lblSrc提示)用于显示产生的数据,文本框txtObj(由标签lblObj提示)用于显示处理结果,要求每行显示一个整数。
3.程序启动时,命令按钮cmdProc(运算要求)不可用。单击命令按钮cmdGendat(产生数据)后,提示用户输入一个n的值并生成n个正整数存入数组元素a(1)~a(n),然后将数据逐行显示在txtSrc中,并设置命令按钮cmdProc可用。
4.单击命令按钮cmdProc(运算要求)后弹出菜单。选择菜单项并单击后,进行相应处理并将结果显示在txtObj中,同时将lblObj的标题改为该菜单项表示的处理命令。
弹出式菜单“运算要求”的结构如下表所示:
一个整数序列的中位数是指对该序列进行非递减(增)排列后最中间位置上的元素。若序列长度为偶数,则取中间两个元素的平均值为其中位数。
【属性设置】
为实现单击命令按钮cmdProc后弹出“运算要求”菜单(procMenu),设计时需将 procMenu的(1)属性设置成false。
供(1)选择的属性:Default Enabled ScaleMode Style Visible
【Visual Basic程序代码】
Dim a() AS Integer, n As Integer
Private Sub Form_Load()
txtSrc.Text = "": txtObj.Text = "": (2) = False
End Sub
Private Sub cmdGendat_Click () '生成正整数序列并存入数组a
On Error GoTo Error handler
n = InputBox$ ("请输入数组元素个数:", "输入序列长度")
If (n < 1) Then
MsgBox "输入数据错误!", vbOKOnly, "提示:"
GoTo Error handler:
End If
ReDim a(n) As Integer
s = ""
For i = 1 To n '将生成的正整数存入a(1)~a(n)中
a(i) = Int(Rnd * 10000) : s = s & Str$(a(i)) & vbCrLf
Next
txtSrc.Text = s
(3) '设置运算要求命令按钮可用
Error handler:
End Sub
Private Sub cmdProc_Click()
PopupMenu procMenu
End Sub
Private Sub MidNum_Click() '求中位数
lblObj.Caption = MidNum.Caption & ":"
For i = 1 To round((n + 1)/2> '用选择排序法对数组a进行部分排序
a(0) = a(i):k = i 'a(0)用作临时变量,暂存第i次选出的最小元素
For j = i + 1 To n
If a(j) < a(0) Then
a(0)= a(j): k =(4)
End If
Next
If k <> i Then
a(k) = a(i): a(i) = a(0)
End If
Next
If n / 2 - n \ 2 > 0 Then 'n为奇数时,取中间一个数
txtObj.Text - Str$(a((5))
Else 'n为偶数时,取中间两个数的平均值
txtobj.Text = Str$(Int((a(n \ 2) + a(n \ 2 + 1)) / 2))
End If
End Sub
'其他代码略
为了保护您的账号安全,请在“上学吧”公众号进行验证,点击“官网服务”-“账号验证”后输入验证码“”完成验证,验证成功后方可继续查看答案!