17、【
单选题
】 在窗体上画一个名称为Command1的命令按钮，然后编写如下事件过程：
Private Sub Command1_Click()
c=1234
c1=Trim（Str（c））
For i=1 To 4
Print __________
Next
End Sub
程序运行后，单击命令按钮，要求在窗体上显示如下内容：
1
12
123
1234
则在横线处应填入的内容为（ ）。
[2分]
、
Right(c1,i)
、
Left(c1,i)
、
Mid(c1,i,1)
、
Mid(c1,i,i)
答案：
18、【
单选题
】 假定有以下程序段
For i=1 To 3
For j=5 To 1 Step -1
Print i*j
Next j
Next i
则语句Print i * j的执行次数是（ ）。
[2分]
、
15
、
16
、
17
、
18
答案：
19、【
单选题
】 在窗体上画两个文本框（名称分别为Textl和Text2）和一个命令按钮（名称为Command1），然后编写如下事件过程：
Private Sub Command1_Click()
x=0
Do While x<50
x=(x+2) * (x+3)
n=n+1
Loop
Textl.Text=Str(n)
Text2.Text=Str(x)
End Sub
程序运行后，单击命令按钮，在两个文本框中显示的值分别为（ ）。
[2分]
、
1和0
、
2和72
、
3和50
、
4和168
答案：
20、【
单选题
】 阅读程序：
Private Sub Form_Click()
a=0
For j=1 To 15
a=a+j Mod 3
Next j
Print a
End Sub
程序运行后，单击窗体，输出结果是（ ）。
[2分]
22、【
单选题
】 语句Dim a(-3 To 4,3 To 6)As Integer定义的数组的元素个数是（ ）。
[2分]
、
18
、
28
、
21
、
32
答案：
23、【
单选题
】 在窗体上画一个命令按钮，其名称为Command1，然后编写如下代码：
Option Base 1
Private Sub Command1_Click()
Dim a
a=Array(1,2,3,4)
j=1
For i=4 To 1 Step -1
s=s+a(i)*j
j=j*10
Next i
Print s
End Sub
程序运行后，单击命令按钮，其输出结果是（ ）。
[2分]
25、【
单选题
】 在窗体上画一个命令按钮，名称为Command1，然后编写如下代码：
Option Base 0
Private Sub Command1_Click()
Dim A1 (4) As Integer, A2 (4) As Integer
For k=0 To 2
A1 (k+1) = InputBox("请输入一个整数")
A2 (3-k) = A1(k+1)
Next k
Print A2(k)
End Sub
程序运行后，单击命令按钮，在输入对话框中依次输入2、4、6，则输出结果为（ ）。
[2分]
、
0
、
1
、
2
、
3
答案：
26、【
单选题
】 以下关于函数过程的叙述中，正确的是（ ）。
[2分]
、
函数过程形参的类型与函数返回值的类型没有关系
、
在函数过程中，过程的返回值可以有多个
、
当数组作为函数过程的参数时，既能以传值方式传递，也能以传址方式传递
、
如果不指明函数过程参数的类型，则该参数没有数据类型
答案：
27、【
单选题
】 在窗体上画两个标签和一个命令按钮，其名称分别为Label1、Label2和Command1，然后编写如下程序：
Private Sub func(L As Label)
L.Caption="1234"
End Sub
Private Sub Form_Load()
Label1.Caption="ABCDE"
Label2.Caption=10
End Sub
Private Sub Command1_Click()
a=Val(Label2.Caption)
Call func(Label1)
Label2.Caption=a
End Sub
程序运行后，单击命令按钮，则在两个标签中显示的内容分别为
[2分]
、
ABCD和10
、
1234和100
、
ABCD和100
、
1234和10
答案：
28、【
单选题
】 在窗体上画一个命令按钮（名称为Command1），并编写如下代码：
Function Funl (ByVal a As Integer, b As Integer) As Integer
Dim t As Integer
t=a-b
b=t+a
Funl=t+b
End Function
Private Sub Command1_Click()
Dim x As Integer
x=10
Print Funl (Funl (x, (Funl (x, x-1))), x-1)
End Sub
程序运行后，单击命令按钮，输出结果是（ ）。
[2分]
、
10
、
0
、
11
、
21
答案：
29、【
单选题
】 以下关于过程及过程参数的描述中，错误的是（ ）。
[2分]
、
过程的参数可以是控件名称
、
调用过程时使用的实参的个数应与过程形参的个数相同
、
只有函数过程能够将过程中处理的信息返回到调用程序中
、
窗体可以作为过程的参数
答案：
30、【
单选题
】 设有如下通用过程：
Public Function Fun (xStr As String) As String
Dim tStr As String, strL As Integer
tStr=""
strL=Len (xStr)
i=strL/2
Do While i<=StrL
tStr=tStr & Mid (xStr,i+1,1)
i=i+1
Loop
Fun=tStr & tStr
End Function
在窗体上画一个名称为Textl的文本框和一个名称为Command1的命令按钮。然后编写如下的事件过程：
Private Sub Command1_Click()
Dim S1 As String
S1="ABCDEF"
Textl.Text=LCase(Fun(S1))
End Sub
程序运行后，单击命令按钮，文本框中显示的是（ ）。
[2分]
、
ABCDEF
、
abcdef
、
defdef
、
defabc
答案：
31、【
单选题
】 在窗体上画一个命令按钮和一个文本框（名称分别为Command1和Textl），并把窗体的KeyPreview属性设置为True，然后编写如下代码：
Dim SaveAll As String
Private Sub Form_Load()
Show
Textl.Text=""
Textl.SetFocus
End Sub
Private Sub Command1_Click()
Textl.Text=LCase (SaveAll) +SaveAl1
End Sub
Private Sub Form_KeyPress(KeyAscii As Integer)
SaveAll=SaveAll+Chr(KeyAscii)
End Sub
程序运行后，直接用键盘输入：VB，再单击命令按钮，则文本框中显示的内容为（ ）。
[2分]
、
vbVB
、
不显示任何信息
、
VB
、
出错
答案：
32、【
单选题
】 设有以下程序：
Private Sub Form_Click()
x=50
For i=1 To 4
y=InputBox("请输入一个整数")
y=Val(y)
If y Mod 5 = 0 Then
a=a+y
x=y
Else
a=a+x
End If
Next i
Print a
End Sub
程序运行后，单击窗体，在输入对话框中依次输入15、24、35、46，输出结果为（ ）。
[2分]
35、【
单选题
】 设在工程文件中有一个标准模块，其中定义了如下记录类型：
Type Books
Name As String * 10
TelNum As String * 20
End Type
在窗体上画一个名为Command1的命令按钮，要求当执行事件过程Command1_Click时，在顺序文件Person.txt中写入一条Books类型的记录。下列能够完成该操作的事件过程是（ ）。
[2分]
、
Private Sub Command1_Click()
Dim B AS Books
Open "Person.txt" For Output As #1
B．Name=InputBox ("输入姓名")
B．TelNum=InputBox ("输入电话号码")
Write #1, B.Name, B.TelNum
Close #1
End Sub
、
Private Sub Command1_Click()
Dim B As Books
Open "Person.txt" For Input As #1
B．Name=InputBox ("输入姓名")
B．TelNum=InputBox ("输入电话号码")
Print #1, B.Name, B.TelNure
Close #1
End Sub
、
Private Sub Command1_Click()
Dim B AS Books
Open "Person.txt" For Output As #1
B．Name=InputBox ("输入姓名")
B．TelNum=InputBox ("输入电话号码")
Write #1, B
Close #1
End Sub
、
Private Sub Command1_Click()
Open "Person.txt" For Input As #1
Name=InputBox ("输入姓名")
TelNum=InputBox ("输入电话号码")
Print #1, Name, TelNum
Close #1
End Sub
线下考试期中/期末考试、集中培训考试
招聘考试在线笔试、大型校招、社招
认证考试岗位认证、职业资格认证、技能考核认证
考试测验学生测验、员工考核、培训考试
新员工培训搭建新员工入职培训体系
岗位培训岗位学习地图、人才培养
知识店铺搭建专属知识店铺、实现知识变现
刷题练习题库刷题、每日一练、打卡练习
知识竞赛党建活动、安全生产活动、协会竟赛
期末考试在线考试考核提高考试管理效率
网课教育直播打卡学习等功能让网课教育更灵活
企业年会组织企业年会闯关答题赢红包活动
学校高校大规模在线考试解决方案
制造行业员工培训体系解决方案
零售行业岗位人才培养解决方案
金融行业专业技能培训解决方案
客服热线:400-886-8169 | 周一至周日 8:00-22:00