重庆大学21秋《可视化程序设计（VB）》（第3次）答案
一、填空题 (共 6 题、共 30 分)1.
在函数过程定义中一般至少有一个赋值语句把所得函数值赋给 。
2.
事件过程分为控件事件过程和_________。
3.
动态数组定义后，在使用过程中可以使用 指定数组的维数和大小。
4.
对象的三大要素是_________、__________和__________。
5.
执行下列程序后，X的值为______。
X=3
y=6
Do While y<=6
x=x*y
y=y+1
Loop
6.
在窗体模块的通用声明段或者标准模块中使用Dim或者Private关键字声明的变量，称为____________。
二、程序阅读题 (共 4 题、共 20 分)
1.
以下程序执行后将输出100到200之间所有的素数，并统计素数的个数
Private Sub Form_Click()
Dim i%, j%, k%, t% 't为统计素数的个数
Dim b As Boolean
For i = 100 To 200
b = True
k= ------ 1 -----
j = Int(Sqr(i))
Do While k <= j And b
If i Mod k = 0 Then
------ 2 ------
End If
------ 3 ------
Loop
if b=true then
t = t + 1
Form1.Print i
End If
Next i
Print "t="; t
End Sub
2.
写出下列事件过程的执行结果。
Private Sub Command1_Click()
s3 (1)
s3 (1)
End Sub
Private Sub s3(ByVal a As Integer)
Dim x As Integer
Static y As Integer
x=x+a: y=y+a
Print "x="; x, "y="; y
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()
Dim a%, b%
a = 23
b = 12
Call f(a, b)
Print "a=" & a; ",b=" & b
End Sub
三、简答题 (共 5 题、共 25 分)
1.
如何设置控件的属性？
2.
VB提供了哪三种循环语句？
3.
VB有多种类型窗口，若想在设计时看到代码窗口，怎样操作？
4.
在VB6.0的集成开发环境中，要显示各窗口，如：属性窗口，应该如何操作？
5.
VB中的表达式有哪几种？
四、程序设计题 (共 5 题、共 25 分)
1.
编写程序，把输入的10个整数按逆序输出。
2.
利用随机函数，模拟投币结果。设共投币100次，求“两个正面”、“两个反面”、“一正一反”3种情况各出现多少次？
3.
两质数的差为2，称此对质数为质数对，编写程序找出1000之内的质数对，其中判断质数的函数过程为Function isprime(m as interger)。
4.
假定有以下每周工作安排：
星期一、三：讲计算机课
星期二、四：讲程序设计课
星期五：进修英语
星期六：政治学习
星期日：休息
试编写一个程序，对上述工作日程进行检索。程序运行后， 要求输入一周里的某一天，程序将输出这一天的工作安排。在输入时用0~6分别代表星期日到星期六，如果输入0~6之外的数，则程序结束运行。
5.
我国现有人口约为14亿，设年增长率为1%，编写程序，计算多少年后增加20亿。
页:
[1]