题目内容
（请给出正确答案）
窗体Form. 1上有一个名称为Command 1的命令按钮，以下对应窗体单击事件的事件过程是
A）Private Sub Form. 1_Click() B）Private Sub Form. _Click()
End Sub End Sub
C）Private Sub Commandl_Click() D）Private Sub Command_ Click()
End Sub End Sub
简答题官方参考答案
（由简答题聘请的专业题库老师提供的解答）
更多“窗体Form. 1上有一个名称为Command 1的命令按钮，以下对应窗体单击事件的事件过程是A）Private”相关的问题
窗体Form1上有一个名称为Command1的命令按钮，以下对应窗体单击事件的事件过程是（）。
A.Private Sub Form1 Click（） End Sub···
B.Private Sub Form. Cliok（） End Sub···
C.Private Sub Command1 click（） End Sub···
D.Private Sub Command Click（） End Sub···
Dim down as Boolean
Private Sub form_mousedown(button as integer,shIft as integer,X as single, Y as single)
Select Case【8】
Case 1
Down=true
Case2
Down=false
End select
End Sub
Private Sub form. mousemove(button as integer,shIft as integer,X as single, Y as single)
If 【9】then
【10】=”X-” & X & ” Y-” & Y
Else
Label1.caption=””
End If
End Sub
在窗体上画一个名称为Labell的标签，然后编写如下事件过程： Option Base 1 Private Sub Form. Click() Dim a(10)As Integer For k=1 To 10 a(k)=k^2 Next k Label1.Caption=a(k) End Sub 程序运行后，单击窗体，在标签中显示的内容是 ______。
A．100
B．10
C．121
D．出错信息
在窗体上画一个名称为Text1的文本框，然后编写如下代码： Option Base 1 Private Sub Form. Click() Dim arr Dim Start As Integer, Finish As Integer Dim Sum As Integer arr = Array(12, 4, 8, 16) Start = LBound (arr) Finish = UBound (arr) Sun = 0 For i = Start To Finish Sum = Sum + arr(i) Next i c = Sum/Finish Text1.Text = c End Sub程序运行后，单击窗体，则在文本框中显示的内容是______。
A．40
B．10
C．12
D．16
在窗体上有一个框架框(名称为Frame1)，一个计时器(名称为Timerl)，计时器的时间间隔属性Interval=100，在图片框中有一个复选按钮(名称为Check1)和一个命令按钮(名称为Command1)，用户界面如图1所示。
其中，计时器有Timer1_Timer事件过程如下：
Private Sub Timer1_Timer()
If Frame1.Left ＞= Form1.Width Then Frame1.Left = 0
Frame1.Move Frame1.Left + 50
End Sub
运行后，窗体中的现象是()。
A.仅框架框移动
B.框架框携带复选按钮和命令按钮同时移动
C.框架框携带复选按钮同时移动
D.框架框携带命令按钮同时移动
A.Label1. BackStyle=0 Label1. BorderStyle=0
B.Label1. BackStyle=1 Label1. BorderStyle=1
C.Label1. BackStyle=True Label1. BorderStyle=True
D.Label1. BackStyle=False Label1. BorderStyle=False
A．List1.Select(i)
B．List1.Sort(i)
C．List1.List(i)
D．Ltst1.Select(List1.Listindex)
窗体上有一个名称为Text1的文本框，名称为Check1的两个复选框构成的控件数组，下标分别为1、2。窗体外观如图所示。
要求在程序运行时，改变复选框选中状态，则文本框中文本的字体做相应变化。为此，某人编写了如下程序代码： Private Sub Check1_Click(Index As Integer) If Index = 1 And Check1(1).Value Then Text1.FontItalic = True Else Text1.FontItalic = False End If If Check1(2).Value = 1 Then Text1.FontBold = True End If If Check1(2).Value = 0 Then Text1.FontBold = False End If End Sub 但是，以上程序在运行中不能完全达到要求，应进行修改，下面正确的修改是_______________。
A、将If Index=1 And Check1(1).Value Then 改为If Check1(1).Value Then
B、将第1个If条件中的Check1(1).Value 改为Check1(1).Value = True
C、将第2个If条件中的Check1(2).Value = 1 改为Check1(2).Value = True
D、将第3个If条件中的Check1(2).Value = 0改为Check1(2).Value = False
窗体上画一个名称为Text1的文本框，然后编写如下事件过程： Private Sub Form. Load() Show TextSetFocus End Sub Private Sub Text1_ KeyPress (KeyAscii As Integer) Dim ch As String ch = Chr (KeyAscii) KeyAscii = Asc(UCase(ch)) Pint Chr(KeyAscii + 4) End Sub程序运行后，在文本框中输入abcde，则在窗体上显示的内容是______。
A．abcde
B．efghi
C．EFGHI
D．ABCDE
警告：系统检测到您的账号存在安全风险
为了保护您的账号安全，请在“简答题”公众号进行验证，点击“官网服务”-“账号验证”后输入验证码“”完成验证，验证成功后方可继续查看答案！
