- 讲师:刘萍萍 / 谢楠
- 课时:160h
- 价格 4580 元
特色双名师解密新课程高频考点,送国家电网教材讲义,助力一次通关
配套通关班送国网在线题库一套
以下关系表达式中,其值为假的是 ______。
A.XYZ<"XYz"
B.Visual Basic="visualbasic"
C.the<>"there"
D.Integer>"Int"
在窗体上画一个命令按钮(名称为Command1),然后编写如下事件过程: Private Sub Command1_Click() b=5 c=6 Print a=b+c End Sub 程序运行后,单击命令按钮,输出的结果是 ______。
A.a=11
B.a=b+c
C.a=
D.假
以下程序段运行的结果是 ______。 Dim a(-1 To 5)As Boolean Dim flag As Boolean flag=False Dim i As Integer Dim j As Integer Do Until flag=True For i=-1 To 5 j=j+1 If a(i)=False Then a(i)=True Exit For End If If i=5 Then flag=True End If Next Loop Print j
A.20
B.7
C.35
D.8
执行下列语句后,显示输入对话框,此时如果单击“确定”按钮,则变量strInput的内容是 ______。 atrlnput=-InputBox(“请输入字符串”,“字符串对话框”,“字符串”)
A.“请输入字符串”
B.“字符串对话框”
C.“字符串”
D.空字符串
为了清除列表框中的所有内容,应使用的方法是 ______。
A.Cls
B.Clear
C.Remove
D.RemoveItem
窗体上画一个文本框(其名称为Text1)和一个标签(其名称为Labell)。要求程序运行后,如果在文本框中输入字符,则立即在标签中显示相同的内容。以下可以实现上述操作的事件过程是 ______。
A.Private Sub Text1_Change() Labell.Caption=Text1.Text End Sub
B.Private Sub Text1_Click() Labell.Caption=Text1.Text End Sub
C.Private Sub Labell_Change() Labell.Caption=Text1.Text End Sub
D.Private Sub Labell_Click() Labell.Caption=Text1.Text End Sub
在窗体上画一个通用对话框,程序运行后,通过ShowOpen方法显示“打开”对话框,要求在该对话框的“文件类型”栏中只显示扩展名为.DOC的文件,则对通用对话框的 Filter属性的正确设置是 ______。
A.(*.DOC)*.DOC
B.(*.DOC)|(.DOC)
C.(*.DOC)||*.DOC
D.(*.DOC)|*.DOC
以下正确的叙述是 ______。 Select Case x Case 1 to 10 …… End Select
A.Select Case语句中的测试表达式可以是任何形式的表达式
B.Select Case语句中的测试表达式只能是数值表达式或字符串表达式
C.在执行Select Case语句时,所有的Case子句均按出现的次序被顺序执行
D.如下Select Case语句中的Case表达式是错误的:
在窗体上画一个文本框,一个命令按钮和一个标签,其名称分别为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
课程专业名称 |
讲师 |
课时 |
查看课程 |
---|
课程专业名称 |
讲师 |
课时 |
查看课程 |
---|
点击加载更多评论>>