东大17年12月考试《可视化程序设计Ⅰ》复习题题目

可视化程序设计I复习题B一、选择题
1)在设计阶段，当双击窗体上的某个控件时，所打开的窗口是
A) 工程资源管理器窗口                        B) 工具箱窗口
C) 代码窗口                                                D) 属性窗口
2) 在窗体上画一个名称为Command1的命令按钮，然后编写如下事件过程：
        Private Sub Command1_Click()
                Move 500，500
        End Sub
        程序运行后，单击命令按钮，执行的操作为
A) 命令按钮移动到距窗体左边界、上边界各500的位置
B) 窗体移动到距屏幕左边界、上边界各500的位置
C) 命令按钮向左、上方向各移动500
D) 窗体向左、上方向各移动500
8）在窗体(Name属性为Form1)上画两个文本框（其Name属性分别为Text1和Text2）和一个命令按钮（Name 属性为Command1），然后编写如下两个事件过程：
Private Sub Command1_Click()
a=Text1.Text+Text2.Text
Print a
End SubPrivate Sub Formm_Load()
Text1 Text=""
Text2 Text=""
End sub
程序运行后，在第一个文本框（Text1）和第二个文本框（Text2）中分别输入123和321，然后单击命令按钮，则输出结果为（）。
A) 444  B) 321123   C) 123321   D) 132231
9）设有如下声明：
Dim X As Integer
如果Sgn(X) 的值为-1，则X的值是
A) 整数        B) 大于0的整数        C) 等于0的整数        D) 小于0的数
10）设a=“Visual Basic”，下面使b=“Basic”的语句是
A) b=Left(a,8,12)                         B) b=Mid(a,8,5)
C) b=Rigth(a,5,5)                          D) b=Left(a,8,5)
11）在窗体上画一个名称为Text1的文本框和一个名称为Command1的命令按钮，然后编写如下事件过程：
Private Sub Command1_Click()
Dim array1(10,10) As Integer
Dim i,j As Integer
For i=1 To 3
For j=2 To 4
array1(i,j)=i+j
Next j
Next I
Text1.Text=array1(2,3)+array1(3,4)
End Sub
程序运行后，单击命令按钮，在文本框中显示的值是
A) 12                        B) 13                        C) 14                        D) 15
12）下列叙述中正确的是
A) 在窗体的Form_Load事件过程中定义的变量是全局变量
B) 局部变量的作用域可以超出所定义的过程
C) 在某个Sub过程中定义的局部变量可以与其它事件过程中定义的局部变量同名，但其作用域只限于该过程
D) 在调用过程时，所有局部变量被系统初始化为0或空字符串
13）在窗体上画一个名称为Command1的命令按钮和一个名称为Text1的文本框，然后编写如下程序：
Private Sub Command1_Click()
Dim x,y,z As Integer
x=5
y=7
z=0
Text1.text=“”
Call P1(x,y,z)
Text1.Text=Str(x)
End Sub
Sub P1(ByVal a As Integer,ByVal b As Integer,c As Integer)
c=a+b
End Sub
程序运行后，如果单击命令按钮，则在文本框中显示的内容是
A) 0                        B) 12                        C) Str(z)                D) 没有显示
14) 当利用Line方法进行添加图时，以下正确的说法是（ ）
A) 有7种不同的线型，而且不管线宽多少都可以绘制虚线/点划线/点线
B)使用Line(100,100)-(1000,1200)和Line(100,100)-Step(900,1100)将绘制两条相同位置的直线
C) 可利用Line方法添加矩形，如Line(300,300)-(2000,2000),BF
D) 可利用Line方法添加矩形，如Line(300,300)-(2300,2300),B+F
15)        关于MDI窗体不正确描述的是
A)所有子窗体均在MDI窗体工作区，可进行排列
B) 所有子窗体的大小和位置均可以调整，并且可以移动出MDI窗体工作区
C) 所有子窗体最小化后，其图标显示在MDI窗体工作区，而不是状态栏
D) MDI窗体和子窗体均可以有自己的菜单
二、填空题
1） 结构化程序设计中把程序结构规定为【1】、【2】、【3】三种基本结构。
3）窗体上画一个命令按钮，其名称为Command1，然后编写如下程序：
Function M(x As Integer,y As Integer)As Integer
M=IIf(x>y,x,y)
End Function
Private Sub command1_Click()
Dim a As Integer,b As Integer
a=100
b=200
Print M(a,b)
End Sub
程序运行后，单击命令按钮，输出结果为 【5】
4）以下程序的功能是：从键盘上输入若干个学生的考试分数，当输入负数时结束输入，然后输出其中的最高分数和最低分数。请在 [6] 和 [7] 处填入适当的内容，将程序补充完整。
Private Sub Form_Click()
Dim x As Single,amax As Single,amin As Single
x=InputBox(“Enter a score”)
amax=x
amin=x
Do While  【6】
If x>amax Then
Amax=x
End If
If 【7】Then
Amin=x
End If
x=InputBox(“Enter a score”)
Loop
Print”Max=”;amax,”Min=”;amin
End Sub
6) 在如下工具栏按钮事件处理函数中，空白处应当添加的语句为
Private Sub Toolbar1_ButtonClick(ByVal Button As MSComctlLib.Button)
Select Case 【10】
7)        在窗体上有一个文本框控件，名称为TxtTime：一个计时器控件，名称为Timerl，要求每一秒钟在文本框中显示一次当前的时间。程序为：
Private Sub Timer1_     ()
TxtTime.text=Time
End Sub
在下划线上应填入的内容是【11】
8）        在窗体上画两个标签，其名称分别为Label1和Label2,Caption属性分别为“数值”及空白；然后画一个名称为Hscoll1的水平滚动条，其Min的值为0，Max的值为100。程序运行后，如果单击滚动条两端的箭头，则在标签Lable2中显示滚动条的值，如图所示。请在 [12] 和 [13] 处填入适当的内容，将程序补充完整。


Private Sub HScroll1_  【12】  ()
Labl2.Caption=HScroll1. 【13】  
End Sub
三、编程
1）        编制程序实现从键盘读入一数字，求此数字的绝对值，并输出结果。
2）编制程序现从键盘读入一个数字，计算此数的所有因子之和。
3）输入10个同学的数学成绩，计算平均分。参考答案：
一、选择
1-2：CB
8-15: AAA  CBCCB
二、填空
【1】-【3】顺序\选择\循环
【5】200
【6】x>=0
【7】x<amin或x<=amin>x或amin>=x
【10】 Button.index
【11】Timer
【12】        Change
【13】        Value
编程
1．
Dim a As Single
Dim absa As Single
a = InputBox("请输入一实数", "输入")
absa = a
If a < 0 Then
    absa = -a
End If
Print "|"; a; "|="; absa
2．
Dim num As Integer
num = InputBox("请输入一整数", "输入")
Print num; "所有因子包括:";
For i = 1 To num
    If num Mod i = 0 Then
        Print i;
    End If
Next
3..
Dim scores(1 To 10) As Single
Dim maxScore As Single
Dim minScore As Single
Dim avgScore As Single
For i = 1 To 10
    scores(i) = InputBox("输入分数[0,100]")
Next
maxSocre = scores(1)
minScore = scores(1)
avgScore = 0
For i = 1 To 10
    avgScore = avgScore + scores(i)
Next
avgScore = avgScore / 10
Print "平均分:"; avgScore
东北大学免费答案