更多“在窗体上画一个名称为Label1的标签,然后编写如下事件过程…”相关的问题
第1题
在窗体上画一个名称为 Drive1 的驱动器列表框,一个名称为 Dir1 的目录列表框。在改变当前驱动器时,目录列表框应该与之同步改变。设置两个控件同步的命令放在一个事件过程中,这个事件过程是()。
A.Drive1_Change
B.Drive1_Click
C.Dir1_Click
D.Dir1_Change
点击查看答案
第2题
在窗体上画一个名称为 Drive1 的驱动器列表框,一个名称为 Dir1 的目录列表框。在改变当前驱动器时,目录列表框应该与之同步改变。设置两个控件同步的命令放在一个事件过程中,这个事件过程是()。
A.Drive1_Change
B.Drive1_Click
C.Dir1_Click
D.Dir1_Change
点击查看答案
第3题
窗体的单击事件过程如下,当单击窗体3次后,在标签 Label1中输出的结果是__________。 Private Sub Form1_Click(......) Handles Me.Click Static k% = 2 k = k +3 Label1.Text = k End Sub
点击查看答案
第4题
在窗体上添加一个命令按钮,名称为Command1,编写如下事件过程: Private Sub Command1_Click() Dim arr arr = Array("武汉", "温州", "吉林", "哈尔滨", "北京") Print arr(2) End Sub 运行时,单击命令按钮后输出的结果是()。
点击查看答案
第5题
在窗体中添加一个名称为Command1的命令按钮,然后编写如下事件代码: Private Sub Command1_Click() a = 75 If a>60 Then k = 1 ElseIf a>70 Then k = 2 ElseIf a>80 Then k = 3 ElseIf a>90 Then k = 4 End If MsgBox k End Sub 窗体打开运行后,单击命令按钮,则消息框的输出的结果是()。
点击查看答案
第6题
在窗体上画一个名称为Command1的命令按钮,然后编写如下程序代码: Option Base 1 Private Sub Command1_Click() Dim a(5) As String Dim i As Integer Dim b As Variant For i = LBound(a) To UBound(a) a(i) = Chr(Asc("a") + (26 - i)) Next i For Each b In a Print b; Next End Sub 程序运行时,单击Command1,则输出结果是________。
A.abcde
B.12345
C.zyxwv
D.出错
点击查看答案
第7题
在窗体上画一个命令按钮和一个文本框,并把窗体的KeyPreview设置为True(在激活对象上的控件键盘事件之前,优先激活键盘事件,即Form优先)然后编写如下代码: Dim SaveAll As String Private Sub Command1_Click() Text1.Text=Ucase(SaveAll) End Sub Private Sub Form_KeyPress(KeyAscii As Integer) SaveAll= SaveAll+Chr(KeyAscii) End Sub 程序运行后,在键盘上输入“abcdefg”,单击命令按钮,则文本框显示为()。
A.abcdefg
B.不显示任何信息
C.ABCDEFG
D.出错
点击查看答案
第8题
设窗体的名称为Form1,标题为Win,则窗体的MouseDown事件过程的过程名是_________。
A.Form1_MouseDown
B.Win_MouseDown
C.Form_MouseDown
D.MouseDown_Form1
点击查看答案
第9题
在窗体上画一个名称为Timer1的计时器控件,要求每隔0.1秒发生一次计时器事件,则以下正确的属性设置语句是()。
A.Timer1. Enabled =0.1
B.Timer1.Interval =0.1
C.Timer1. Enabled=100
D.Timer1.Interval=100
点击查看答案