、
Private Sub Timer1_Timer()
Label1.Caption=True
End Sub
、
Private Sub Timer1_Timer()
Label1.Caption=Time$
End Sub
、
Private Sub Timer1_Timer()
Label1.Interval=1
End Sub
、
Private Sub Timer1_Timer()
For k = l To Timer1.Interval
Label1.Caption=Timer
Next k
End Sub
答案：
21、【
单选题
】 设有如图所示窗体和以下程序：
Private Sub Command1_Click()
Textl.Text=“Visual Basic”
EndSub
Private Sub Text1_LostFocus()
If Text1.Text <>“BASIC”Then
Text1.Text=””
Text1.SetFocus
End If
End Sub
程序运行时，在Text1文件框中输入“Basic”(如图所示)，然后单击Command1按钮，则产生的结果是
[2分]
、
文本框中无内容，焦点在文本框中
、
文本框中为“Basic”,焦点在文本框中
、
文本框中为“Basic”,焦点的按钮上
、
文本框中为“Visual Basic”,焦点的按钮上
答案：
22、【
单选题
】 窗体上有一个名称为Command1的命令按钮，其事件过程如下：
Private Sub Command1_Click()
x=“VisualBasicProgramming”
a=Right(x,11)
b=Mid(x,7,5)
C=Msgbox(a, , b)
End Sub
运行程序后单击命令按钮，以下叙述中错误的是
[2分]
、
信息框的标题是Basic
、
信息框中的提示信息是Programming
、
C的值是函数的返回值
、
MsgBox的使用格式有错
答案：
23、【
单选题
】 窗体上有一个名称Text1的文本框，一个名称为Command1的命令按钮。窗体文件的程序如下：
Private Type x
a As Integer
b AS Integer
End Type
Private Sub Command1_Click()
Dim y As x
y.a = InputBox(“”)
If y.a\2=y.a/2 Then
y.b=y.a*y.a
Else
y.b = Fix(y.a/2)
End If
Text1.Text=y.b
End Sub
对以上程序，下列叙述中错误的是
[2分]
、
x是用户定义的类型
、
InputBox函数弹出的对话框中没有提示信息
、
若输入的是偶数，y.b的值为该偶数的平方
、
Fix(y.a/2)把y.a/2的小数部分四舍五入，转换为整数返回
答案：
24、【
单选题
】 窗体上有两个水平滚动条HV、HT，还有一个文本框Text1和一个标题为“计算”的命令按钮Command1，并编写了以下程序：
Private Sub Command1_ClickO
Call Cale (HV.Value, HT.Value)
End Sub
Public Sub Cale(x AS Integer , y AS Integer)
Text1.Text = x* y
End Sub
运行程序，单击“计算”按钮，可根据速度与时间计算出距离，并显示计算结果。对以上程序，下列叙述中正确的是
[2分]
、
过程调用语句不对，应为Cale (HV,HT)
、
过程定义语句的形式参数不对，应为Sub Cale(x As Control , y As Control)
、
计算结果在文本框中显示出来
、
程序不能正确运行
答案：
25、【
单选题
】 现有如下程序：
Private Sub Command1_ Click()
S=0
For i=1 to 5
S=S+f(5+i)
Next
Print S
End Sub
Public Function f(x As Integer)
If x>=10 Then
t=x+1
Else
t=x+2
End If
f=t
End Function
运行程序，则窗体上显示的是
[2分]
27、【
单选题
】 窗体上有两个名称分别为Text1、Text2的文本框。Text1的KeyUp的事件过程如下：
Private Sub Text1_KeyUp(KeyCode As Integer , shift AS Integer)
Dim C AS string
Tcxt2.Text=Chr(Asc(c)+2)
End Sub
当向文本框Text1中输入小写字母a时，文本框Text2中显示的是
[2分]
、
A
、
a
、
C
、
c
答案：
28、【
单选题
】 某人编写了如下程序，用来求10个整数（整数从键盘输入）中的最大值：
Private Sub Command1_Click()
Dim a(10) As Integer, max As Integer
For k=1 TO 10
a(K)=InputBox(“输入一个整数”)
Next k
Max=0
For k=1 To 10
If a(k)＞max Then
Max = a(k)
End If
Next k
Print max
End Sub
运行程序时发现，当输入10个正数时，可以得到正确结果，但输入10个负数时结果是错误的，程序需要修改，下面的修改中可以得到正确运行结果的是
[2分]
、
把If a(k)>max Then改为If a(k)<max Then
、
把max = a(k)改为a(k)=max
、
把第2个循环语句For k=1 TO 10改为For k=2 TO 10
、
把max=0改为max = a(10)
答案：
29、【
单选题
】 已知在4行3列的全局数组score(4,3)中存放了4个学生3门课程的考试成绩（均为整数）。现需要计算每个学生的总分，某人编写程序如下：
Option Base 1
Private Sub Command1_Click()
Dim sum As Integer
Sum=0
For i=1 To 4
For j=1 To 3
Sum = sum + score(i,j)
Next j
Print“第”&i&”个学生的总分是:”;sum
Next i
End Sub
运行此程序时发现，除第1个人的总分计算正确外，其他人的总分是错误的。程序需要修改。以下修改方案中正确的是
[2分]
、
把外层循环语句For i=1 TO 4改为For i=1 To 3
内层循环语句For j=1 TO 3 改为For j=1 TO 4
33、【
填空题
】 设有以下的循环：要求程序运行时执行3次循环体，请填空。
x=1
DO
x=x+2
Print x
Loop Until
[每空2分]
答案：["x>5(或x>6或x>=6或x=7)"]
34、【
填空题
】 窗体上命令按钮Command1的事件过程如下：
Private Sub Command1_Click()
Dim total As Integer
total = s(1)+s(2)
Print total
End Sub
Private Function s(m As Integer) As Integer
Static x As Integer
For i =1 To m
x=x+1
Next i
S=x
End Function
运行程序，第3次单击命令按钮Command1时，输出结果为
[每空2分]
答案：["16"]
35、【
填空题
】 在窗体上画一个名称为Command1的命令按钮，然后编写如下程序：
Option Base l
Private Sub Command1_Click()
Dim a(10) As Integer
For i=1 To 10
a(i)=i
Next
Call swap (
)
For i=1 To 10
Print a(i)
Next
End Sub
Sub swap (b() As Integer)
n=
For i=1 To n/2
t=b(i)
b(i)=b(n)
b(n)=t
Next
End Sub
上述程序的功能是，通过调用过程swap，调换数组中数值的存放位置，即a(1)与a(10)的值互换，a(2)与a(9)的值互换，请填空。
[每空2分]
答案：["a","Ubound(b)","n=n-1"]
36、【
填空题
】 在窗体上面一个通用对话框，其名称为CommonDialog1，然后画一个命令按钮，并编写如下事件过程：
Private Sub Command1_Click()
CommonDialog1.Filter=“All Files(*.*)|*.*|Text Files”_
&”(*.txt)|*.txt|Batch Files(*.bat)|*.bat”
CommonDialog1 Filterlndex=1
Commondialog1.ShowOpen
MsgBox CommonDialog1.File Name
End Sub
程序运行后，单击命令按钮，将显示一个“打开”对话框，此时在“文件类型”框中显示的是
；如果在对话框中选择d盘temp目录下的tel.txt文件，然后单击“确定”按钮，则在MsgBox信息框中显示的提示信息是
。
[每空2分]
答案：["All File(*.*)","d:\temp\tel.txt"]
37、【
填空题
】 以下程序的功能是：把程序文件smtext1.txt的内容全部读入内存，并在文本框Text1中显示出来。请填空。
Private Sub Command1_Click()
Dim inData As String
Text1.Text=“”
Open“smtext1.txt”
As
Do While
Input#2, inData
Text1.Text=Text1.Text& inData
Loop
Close #2
End Sub
[每空2分]
线下考试期中/期末考试、集中培训考试
招聘考试在线笔试、大型校招、社招
认证考试岗位认证、职业资格认证、技能考核认证
考试测验学生测验、员工考核、培训考试
新员工培训搭建新员工入职培训体系
岗位培训岗位学习地图、人才培养
知识店铺搭建专属知识店铺、实现知识变现
刷题练习题库刷题、每日一练、打卡练习
知识竞赛党建活动、安全生产活动、协会竟赛
期末考试在线考试考核提高考试管理效率
网课教育直播打卡学习等功能让网课教育更灵活
企业年会组织企业年会闯关答题赢红包活动
学校高校大规模在线考试解决方案
制造行业员工培训体系解决方案
零售行业岗位人才培养解决方案
金融行业专业技能培训解决方案
客服热线:400-886-8169 | 周一至周日 8:00-22:00