重庆大学201801批次网上可视化程序设计（VB）C卷
201801批次网上考试可视化程序设计（VB）C卷一 、 单项选择题 (共 12 题、0 / 24 分 )
1、以下关于Visual Basic的参数传递的描述不正确的是_____________。
A、形式参数表和实际参数表中对应的变量名必须相同
B、形式参数表和实际参数表中对应的变量个数必须相同
C、形式参数表和实际参数表中对应的变量类型必须相同
D、形式参数表和实际参数表中对应的书写顺序必须对应相同
2、在过程调用结束后还能保存过程中局部变量的值，则使用______关键字在过程中定义该局部变量。
A、Dim
B、Private
C、Public
D、Static
3、表达x大于10且小于100的关系表达式为（ ）。
A、x>10 or x<100
B、10<x<100
C、x>10 and x<100
D、10>x<100
4、确定触发计时器两个事件间隔的毫秒数，应使用计时器的（ ）属性。
A、Visible
B、Enabled
C、Tag
D、Interval
5、关于VB描述错误的是（ ）。
A、VB集成开发环境是一组软件工具，集应用程序的设计、编辑、运行调试等于一体
B、VB是面向过程的程序设计语言
C、VB具有事件驱动的编程机制
D、VB的工具箱窗口由被绘制成按钮形式的图标构成。
6、下列程序段的执行结果为（ ）。a=100:b=50If a>b Thena=a-belseb=b+aEnd ifPrint a
A、10
B、50
C、100
D、200
7、下列程序段的执行结果是（ ）。x = Int(Rnd + 4)Select Case x Case 5 Print "优秀" Case4 Print "良好" Case 5 Print "通过" Case Else Print "不通过"End Select
A、优秀
B、良好
C、通过
D、不通过
8、要禁用计时器控件，需要设置为False的属性是（ ）。
A、Enable
B、Visibale
C、Timer
D、Interval
9、图像框根据加载的图像的大小调整尺寸，需要设置为False的属性是（ ）。
A、AutoSize
B、Stretch
C、Picture
D、Appearance
10、若要在图片框中绘制一条直线，使用的方法是（ ）。
A、
Line
B、
Pset
C、
Circle
D、
Point
11、下列程序运行时，输出星号的行数是（）。Private sub Form_click（） For i＝ 1 to 10 For j＝ 1 to i Print”＊”； Next j Print Next iEnd Sub
A、
10
B、
20
C、
50
D、
100
12、以下关于复选框的说法，正确的是（ ）。
A、
一个窗体上的所有复选框一次只能有一个被选中
B、
一个容器中的所有复选框一次只能有一个被选中
C、
在一个容器中的复选框可以同时有多个被选中
D、
无论是在容器中还是在窗体中，都不可以同时选中多个复选框
二 、 填空题 (共 10 题、0 / 20 分 )
1、
冒泡排序算法的基本思想 。
2、
LBound函数的功能是____________。
3、
用过程名调用Function过程的语句为_______________。
4、
Rnd函数的功能是 。
5、
VB的集成开发环境包括标题栏、 、 、 、 、 、工程资源管理窗口和代码设计窗口。
6、
当执行以下程序时，在名为lblResult的标签框内将显示_____。
Private Sub cmdlt_click()
Dim I,R
R=0
For I=1 To 5 Step 1
R=R+I
Next I
lblResult.Caption=Str（R）
End Sub
7、
隐式声明字符型变量应使用________符号，整型变量应使用________符号。
8、
关系表达式"abc" Like "ab[!d-g] "的结果为 。
9、
函数过程delData()的功能是在有序（升序）的数组a中删除指定的数y，若指定的数y不存在则给出提示信息，其中y通过InputBox函数输入。
Function deldata(b,y%)
Dim m%, i%
m = UBound(b)
deldata = 1
For i = 0 To m
If y = b(i) Then
Next i
If i > m Then deldata = 0: Exit Function
For j = i + 1 To m
Next j
m = m - 1
ReDim Preserve b(m)
End Function
Private SubCommand1_Click()
Dim a(), i%, y%, result%
a = Array(1, 3, 12, 24, 56, 79, 100, 120)
y = Val(InputBox("请输入一个整数：", "输入"))
n = UBound(a)
result = deldata(a, y)
If result = 0 Then
Print "没有找到该数据" & y
Else
For i = 0 To
Print a(i);
Next i
End If
End Sub
10、
工具栏中“启动”按钮的作用是 。
三 、 程序阅读题 (共 6 题、0 / 24 分 )
1、
程序代码为：
Private Sub Command1_Click()
Dim i%
For i=1 To 3
Call s4
Next i
End Sub
Static Sub s4()
u=u+1: v=v+1
Print"u="; u, "v="; v
End Sub
程序运行后，单击命令按钮后，在窗体显示的结果是：
2、
写出下面程序当输入数据-10080时的执行结果。
Private Sub p(n As Integer)
If (n< 0) Then
Print '-'
n =-n
EndIf
If (n\ 10 > 0) Then
p(n \ 10)
EndIf
Print(n Mod 10)
End Sub
Private Sub Form_Click()
Dim mAs Integer
m =InputBox("请输入一个整数",输入")
p (m)
End Sub
3、
程序代码为：
Public sub proc(a%( ))
Static I%
Do
A(i)=a(i)+a(I+1)
I=I+1
Loop while I<2
End sub
Private sub command1_click( )
Dim m%,I%,x%(10)
For I=0 to 4 : x(i)=I+1 : next I
For I=1 to 2 : call proc(x) : next I
For I=0 to 4 : print x(i); : next I
End sub
程序运行后，单击命令按钮后，在窗体显示的结果是：
4、
写出下面程序运行时单击窗体的输出结果。
Private Sub f(a%, b%)
a = a+ b
b = a- b
End Sub
Private Sub Form_Click()
Dima%, b%
a =23
b =12
Callf(a, b)
Print"a=" & a; ",b=" & b
End Sub
5、
程序为：
option base 1
private sub command1_click()
dim a,b(3,3)
a=array(1,2,3,4,5,6,7,8,9)
for I=1to 3
for j=1to 3
b(I,j)=a(I*j)
if (j>=I) then print tab(j*3);b(I,j);
next j
next I
end sub
程序运行后，单击命令按钮后，在窗体显示的结果是：
6、
在窗体上画一个命令按钮，然后编写如下事件过程：
Private SubCommand1_Click( )
x=0
For i=1 to 3
x=1
For j=1 to 4
x=2
For k=1 to 5
x = x + 2
Next k
Next j
Next i
Print x
End Sub
程序运行后，单击命令按钮，输出结果为（）
四 、 简答题 (共 6 题、0 / 24 分 )
1、VB有哪几种工作模式？
2、VB有多种类型窗口，若想在设计时看到代码窗口，怎样操作？
3、叙述建立一个完整的应用程序的过程。
4、将数字串转换成数值用什么函数？判定是否是数字串用哪个函数？取字符串某几个字符使用什么函数？大小写字母转换用什么函数？
5、标签与文本框的区别是什么？
6、简述VB6.0的主要特点。
五 、 程序设计题 (共 1 题、0 / 8 分 )
1、用随机函数产生100个以内的随机整数，输出能够被3整除并且个位不为0的数并且统计满足条件的数的个数。要求每行输出10个数。
答案附件已经更新
页:
[1]