[东北大学]19年11月考试《可视化程序设计Ⅰ》考核作业（资料）
东 北 大 学 继 续 教 育 学 院
可视化程序设计I 试 卷（作业考核 线下） A 卷（共 7 页）
总分 题号 一 二 三 四 五 六 七 八 九 十
得分
注：请您单面打印，使用黑色或蓝色笔，手写完成作业。杜绝打印，抄袭作业。
一．选择题（30分，每题2分)
1）以下能在窗体Form1的标题栏中显示“东北大学"的语句是
A) Form1.Name="东北大学"
B) Form1.Title="东北大学"
C) Form1.Caption="东北大学"
D) Form1.Text="东北大学"
2）在窗体上画一个名称为Command1的命令按钮，在事件过程中执行：
Move 500，500
程序运行后，单击命令按钮，执行的操作为
A) 命令按钮移动到距窗体左边界、上边界各500的位置
B) 窗体移动到距屏幕左边界、上边界各500的位置
C) 命令按钮向左、上方向各移动500
D) 窗体向左、上方向各移动500
3）在窗体上有一个名称为Text2的文本框。影响Text2的Tab顺序的属性是
A) TabStop B)Enabled C) VisibleD)TabIndex
4）设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)
5）以下关于MsgBox的叙述中，错误的是
A) MsgBox函数返回一个整数
B) 通过MsgBox函数可以设置信息框中图标和按钮的类型
C) MsgBox语句没有返回值
D) MsgBox函数的第二个参数是一个整数,该参数只能确定对话框中显示的按钮数
6）在窗体上画一个名称为Command1的命令按钮，然后编写如下事件过程：
Private Sub Command1_Click()
Dim x As Integer
Cls
x=2
y=0
For i=1 To 2
y=y+x
x=x+2
Next
Print y,x
End Sub
程序运行后，连续三次单击Command1按钮后，窗体上显示的是
A) 42 B) 6 6 C) 1230 D) 46
7）以下合法的Visual Basic标识符是
A) wwend B) const C) 9abc D) a#x
8） 当一个复选框被选中时，它的Value属性的值是
A) 3 B) 2 C) 1 D) 0
9）执行如下两条语句，窗体上显示的是
a=9.8596
Print Format(a,"$00,00.00")
A) 0,009.86 B) $9.86 C) $0,009.86 D) 9.86
10）在窗体上画一个名称为Command1的命令按钮，然后编写如下事件过程：
Private Sub Command1_Click()
x=InputBox("Input")
Select Case x
Case 1,3
Print "分支 1"
Case Is >4
Print "分支 2"
Case Else
Print "Else 分支 "
End Select
End Sub
程序运行后，如果在输入对话框中输入2，则窗体上显示的是
A) 分支1 B) 分支2 C) Else分支 D) 程序出错
11）在窗体上画一个名称为Command1的命令按钮，然后编写如下事件过程：
Private Sub Command1_Click()
a$="VisualBasic"
Print right(3,a$)
End Sub
程序运行后，单击命令按钮，在窗体上显示的内容是
A) Vis B) sic C) ccc D) $$$
12）设窗体上有一个文本框，名称为text1,程序运行后，要求该文本框只能显示信息，不能接受输入的信息，以下能实现该操作的语句是
A) Text1.Enabled=Flase B) Text1.MaxLength=0
C) Text1.Visible=Flase D) Text1.Width=0
13）设有如下程序段：
x=0
For i=1 To 10 Step 3
x=x+i
Next
运行以上程序后，x的值是
A) 20 B) 21 C) 22 D) 23
14）以下叙述中错误的是
A) 在KeyPress事件过程中不能识别键盘的按下与释放
B) 在KeyPress事件过程中不能识别回车键
C) 在KeyDown和KeyUp事件过程中,将输入的"A"和"a"视作相同的字母
D) 在KeyDown和KeyUp事件过程中,从大键盘上输入的"1"和从右侧小键盘上输入的"1"被视作不同的字符
15）窗体上画一个名称为CommandDialog1的通用对话框，一个名称为Command1的命令按钮。然后编写如下事件过程：
Private Sub Command1_Click()
CommonDialog1.FileName =""
CommonDialog1.Filter="All file|*.*|(*.Doc)|*.Docx|(*.Txt)|*.Txt"
CommonDialog1.FilterIndex=2
CommonDialog1.DialogTitle="VBTest"
CommonDialog1.Action=1
End Sub
对于这个程序，以下叙述中错误的是
A) 该对话框被设置为“打开”对话框
B) 在该对话框中指定的默认文件名为空
C) 该对话框的标题为VBTest
D) 在该对话框中指定的默认文件类型为文本文件(*.Txt)
二、填空题（30分，每空2分）
1） 结构化程序设计中把程序结构规定为（ 1 ）、（ 2 ）、（ 3 ）三种基本结构。
2）在窗体上画一个名称为Command1的命令按钮和一个名称为Text1的文本框。程序运行后，Command1为禁用(灰色) 。当向文框中输入任何字符时，命令按钮Command1变为可用。请在 （4） 处填入适当的内容，将程序补充完整。
Private Sub Form_Load()
Command1.Enabled=False
End Sub
Private Sub Text1_（ 4 ）()
Command1.Enabled=True
End Sub
3）在如下工具栏按钮事件处理函数中，空白处应当添加的语句为
Private Sub Toolbar1_ButtonClick(ByVal Button As MSComctlLib.Button)
Select Case （5）
4） 在窗体上有一个文本框控件，名称为TxtTime：一个计时器控件，名称为Timerl，要求每一秒钟在文本框中显示一次当前的时间。程序为：
Private Sub Timer1_( 6 )
TxtTime.text=Time
End Sub
请在(6)处补全程序
5）设有如下程序段：
a$="BeijingShanghai"
b$=Mid(a$,InStr(a$,"g")+1)
执行上面的程序段后，变量b$的值为（ 7 ） 。
6）以下程序的功能是：从键盘上输入若干个学生的考试分数，当输入负数时结束输入，然后输出其中的最高分数和最低分数。请在( 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(8 )
If x>amax Then
Amax=x
End If
If ( 9 )Then
Amin=x
End If
x=InputBox(“Enter a score”)
Loop
Print”Max=”;amax,”Min=”;amin
End Sub
7）在窗体上画一个名称为“Command1”，标题为“计算”的命令按钮，再画7个标签，其中5个标签组成名称为Label1的控件数组;名称为Label2的标签用于显示计算结果，其Caption属性的初始值为空；标签Label3的标题为“计算结果”。运行程序时会自动生成5个随机数，分别显示在标签控件数组的各个标签中，如图所示。单击“计算”按钮，则将标签数组各元素的值累加，然后计算结果显示在Label2。请填空。
Private Sub Command1_Click()
Sum = 0
For i = 0 To 4
Sum = Sum +(10 )
Next
(11) = Sum
End Sub
8）如下程序计算1~100之间的能被3整除或被5整除的数的和，请不全如下程序
Private Function sum() As Integer
s = ( 12)
For i = 1 To 100
If(13 )Then
s = ( 14 )
End If
Next
sum = (15 )
End Function
三、编程题（40分，答案可以附加页）
1）（10分）编制程序实现从键盘读入一数字，求其平方根。如果此数为负数，请提示“负数没有平方根”，否则输出其平方根。
2）（10分）输入10个同学的数学成绩，计算所有及格以上同学的平均分。
3）（20分）设计一个form名称为form1，添加“打开文件”按钮cmdOpen,， “保存文件”按钮为cmdSave，文本框为txtSource。通过点击“打开文件”按钮读取文件”c:\abc.dat”的内容，并将内容显示到txtSource中；然后通过点击“保存文件”按钮将此文本框的内容保存到“c:\abc.c”中。要求使用open命令打开文件，在form1_load中初始化cmdOpen和cmdSave的标题属性。
页:
[1]