离线详情
东北大学- 可视化程序设计(VB)
国开、奥鹏所有的在线答案、离线答案都可在首页进行搜索，搜不到的可以联系客服!所有答案都有!右下角微信扫码可以添加客服微信。
答案已添加至底下文档中，可登录下载完整版。
东 北 大 学 继 续 教 育 学 院
可视化程序设计(VB) 试 卷（作业考核 线上2） B 卷（共 6 页）
|
总分 |
题号 |
一 |
二 |
三 |
四 |
五 |
六 |
七 |
八 |
九 |
十 |
|
|
得分 |
|
|
|
|
|
|
|
|
|
|
一、简答题（每小题5分，共50分）
1、简述子过程和函数过程的共同点和不同之处。
2、简述自定义类型和自定义变量的区别。
3、简述标签和文本框的区别。
4、简述列表框和组合框的异同处。
5、分析下面程序的执行过程，给出运行结果。
Private
Sub Command2_Click()
Dim x%, y%, z%
x = 242; y = 44
z = x * y
Do Until
x = y
If x> y Then x = x – y Else y = y – x
Loop
Print x, z / x
End Sub
6、分析下面程序的执行过程，给出运行结果。
Private Sub Command1_Click()
a = 10
t = “旅游景点：”_
&IIf(a>3, “长城”, “”)_
&IIf(a<8, “故宫”, “”)_
&IIf(a<8, “颐和园宫”, “”)
Text1.Text = t
End Sub
7、下面程序的功能是产生20个[10, 100]之间的随机整数，每行输出10个数，根据题意，完善程序。
Private Sub
command1_Click()
Dim a(1 To 20) As
Integer
Randomize
i = 0
Do While i < 20
i = i +1
a(i) = （1）
If ( (2)
) Then
Print a(i)
End If
If i = 10 Then Print
a(i)
If i > 10 Then
print a(i)
Loop
End Sub
8、分析下面程序的执行过程，给出运行结果。
Private Sub Command1_Click()
Dim x$, n%
n = 20
Do While n <> 0
a = n Mod 2
n
= n \ 2
x = Chr(48 + a) & x
Loop
Print x
End Sub
9、分析下面程序的执行过程，给出运行结果。
Private Sub
command1_click()
x = InputBox(“请输入一个整数”)
flag = 1
For i = 2 To (1)
If x Mod i = 0 Then
flag = 0
End if
Next i
If( (2)
) Then Print x; “素数” Else Print x; “非素数”
End Sub
10、在窗体上画一个名称为Command1的命令按钮，然后编写如下程序：
Option Base 1
Private Sub Command1_Click()
Dim a(10) As
Integer
For i = 1 To
10
a(i) = i
Next
Call swap（ （1） ）
For i = 1 To 10
Print a(i)
Next
End Sub
Sub swap(b() As
Integer)
n = （2）
For i = 1 To n /
2
t = b(i)
b(i) = b(n)
b(n) = t
（3）
Next
End Sub
上述程序的功能是：通过调用过程swap，调换数组中数值的存放位置，即a(1)与a(10)的值互换，a(2)与a(9)的值互换，……，a(5)与a(6)的值互换。试分析给出的程序代码，完成相应的语句。
二、编程题（第1-2题10分、第3-4题15分，共50分）
1、编写程序，由键盘输入10个数，求出其中的最大数。
2、编写程序，其功能为输出1+2+……+100的和，并求出1-100之间能被17整除的数的个数。
3、编写程序，给出一个百分制的成绩，要求输出成绩的相应等级。
4、编写程序，输入一个年份，判断该年是否为闰年。