- 讲师:刘萍萍 / 谢楠
- 课时:160h
- 价格 4580 元
特色双名师解密新课程高频考点,送国家电网教材讲义,助力一次通关
配套通关班送国网在线题库一套
在窗体上画一个文本框,一个命令按钮和一个标签,其名称分别为Text1、Command1和Labell,文本框的Text1属性设置为空白,然后编写如下事件过程: Private Sub Command1_Click() x=Int(Val(Text1.Text)+0.5) Labell.Caption=Str(x) End Sub 程序运行后,在文本框中输入28.653,单击命令按钮,标签中显示的内容是 ______。
A.27
B.28
C.29
D.30
在窗体上画一个命令按钮(其名称为Command1),然后编写如下事件过程: Private Sub Command1_Click() Dim a(5,5)As Integer Dim i As Integer,j As Integer For i=1 To 3 For j=1 To 3 a(i,j)=(i-1)*3+j Print a(i,j) Next j Print Next i End Sub 程序运行后,单击命令按钮,在窗体上的输出结果是 ______。
A.1 4 7 2 5 8 3 6 9
B.1 2 3 4 5 6 7 8 9
C.1 2 3 4 5 6 7 8 9
D.没有输出
在窗体上画两个标签和一个命令按钮,其名称分别为Labell、Label2和Command1,然后编写如下程序: Private Sub func(L As Label,ByVal a As Integer) L.Caption="1234" a=a*a End Sub Private Sub Form_Load() Label1.Caption="ABCD" Label2.Caption=10 End Sub Private Sub Command1_Click() a=Val(Label2.Caption) Call func(Labell,A)Label2.Caption=a End Sub 程序运行后,单击命令按钮,在两个标签Label1和Label2中显示的内容分别是 ______。
A.ABCD和10
B.1234和100
C.ABCD和100
D.1234和10
假定程序中有以下语句: answer=MsgBox("String1",,"String2","String3",2) 执行该语句后,将显示一个信息框,此时如果单击“确定”按钮,则answer的值为 ______。
A.String1
B.String2
C.String3
D.1
设窗体Form1中有一名为mnuFile的菜单,它只有一个标题为Open的子菜单。为使程序运行时,按下Alt+F键窗体中能够显示如下图所示的菜单项,则mnuFile的标题应为 ______.
A.File(F)
B.:File(F)
C.:File(&F)
D.File(-F)
设a=5,b=6,c=7,d=8,则执行下列语句后,x的值为 ______。 x=IIF((a>B)And(c<d),10,20)
A.10
B.20
C.30
D.300
在窗体上画一个命令按钮,然后编写如下程序: Sub S1(ByVal x As Integer,ByVal y As Integer) Dim t As Integer t=x x=y y=t End Sub Private Sub Command1_Click() Dim a As Integer,b As Integer a=10 b=30 S1 a,b Print"a=";a;"b=";b End Sub 程序运行后,单击命令按钮,输出结果是 ______。
A.a=30 b=10
B.a=30 b=30
C.a=10 b=30
D.a=10 b=10
能够获得一个文本框中被选取文本的内容的属性是 ______。
A.Text
B.SelLength
C.SelText
D.SelStart
设置复选框中或单选按钮的标题对齐方式的属性是 ______。
A.Align
B.Style
C.Sorted
D.Alignment
下列程序段的执行结果为 ______。 X=5 Y=-20 If Not X>0 Then X=Y-3 Else Y=X+3 Print X-Y; Y-X
A.-3 3
B.5 -8
C.39875
D.25 -25
改变驱动器列表框的Drive属性值将激活 ______ 事件。
A.Change
B.Scroll
C.KeyDown
D.KeyUp
课程专业名称 |
讲师 |
课时 |
查看课程 |
---|
课程专业名称 |
讲师 |
课时 |
查看课程 |
---|
点击加载更多评论>>