东北大学19年11月考试《可视化程序设计Ⅰ》（作业考核线下）A卷
[东北大学]19年11月考试《可视化程序设计Ⅰ》考核作业（资料）东北大学继续教育学院
奥鹏作业答案
奥鹏东北大学作业
可视化程序设计I试卷（作业考核线下）A卷（共7页）
总分题号一二三四五六七八九十
得分
注：请您单面打印，使用黑色或蓝色笔，手写完成作业。杜绝打印，抄袭作业。
一．选择题（30分，每题2分)
1）以下能在窗体Form1的标题栏中显示“东北大学"的语句是
A)Form1.Name="东北大学"
B)Form1.Title="东北大学"
C)Form1.Caption="东北大学"
D)Form1.Text="东北大学"
2）在窗体上画一个名称为Command1的命令按钮，在事件过程中执行：
Move500，500
程序运行后，单击命令按钮，执行的操作为
A)命令按钮移动到距窗体左边界、上边界各500的位置
B)窗体移动到距屏幕左边界、上边界各500的位置
C)命令按钮向左、上方向各移动500
D)窗体向左、上方向各移动500
3）在窗体上有一个名称为Text2的文本框。影响Text2的Tab顺序的属性是
A)TabStopB)EnabledC)VisibleD)TabIndex
4）设a=”VisualBasic”，下面使b="Basic"的语句是
A)b=Left(a812)B)b=Mid(a85)
C)b=Rigth(a55)D)b=Left(a85)
5）以下关于MsgBox的叙述中，错误的是
A)MsgBox函数返回一个整数
B)通过MsgBox函数可以设置信息框中图标和按钮的类型
C)MsgBox语句没有返回值
D)MsgBox函数的第二个参数是一个整数该参数只能确定对话框中显示的按钮数
6）在窗体上画一个名称为Command1的命令按钮，然后编写如下事件过程： www.openhelp100.com
PrivateSubCommand1_Click()
DimxAsInteger
Cls
x=2
y=0
Fori=1To2
y=y+x
x=x+2
Next
Printyx
EndSub
程序运行后，连续三次单击Command1按钮后，窗体上显示的是
A)42B)66C)1230D)46
7）以下合法的VisualBasic标识符是
A)wwendB)constC)9abcD)a#x
8）当一个复选框被选中时，它的Value属性的值是
A)3B)2C)1D)0
9）执行如下两条语句，窗体上显示的是
a=9.8596
PrintFormat(a"$0000.00")
A)0009.86B)$9.86C)$0009.86D)9.86
10）在窗体上画一个名称为Command1的命令按钮，然后编写如下事件过程：
PrivateSubCommand1_Click()
x=InputBox("Input")
SelectCasex
Case13
Print"分支1"
CaseIs>4
Print"分支2"
CaseElse
Print"Else分支"
EndSelect
EndSub
程序运行后，如果在输入对话框中输入2，则窗体上显示的是
A)分支1B)分支2C)Else分支D)程序出错
11）在窗体上画一个名称为Command1的命令按钮，然后编写如下事件过程：
PrivateSubCommand1_Click()
a$="VisualBasic"
Printright(3a$)
EndSub
程序运行后，单击命令按钮，在窗体上显示的内容是
A)VisB)sicC)cccD)$$$
12）设窗体上有一个文本框，名称为text1程序运行后，要求该文本框只能显示信息，不能接受输入的信息，以下能实现该操作的语句是
A)Text1.Enabled=FlaseB)Text1.MaxLength=0
C)Text1.Visible=FlaseD)Text1.Width=0
13）设有如下程序段：
x=0
Fori=1To10Step3
x=x+i
Next
运行以上程序后，x的值是
A)20B)21C)22D)23
14）以下叙述中错误的是
A)在KeyPress事件过程中不能识别键盘的按下与释放
B)在KeyPress事件过程中不能识别回车键
C)在KeyDown和KeyUp事件过程中将输入的"A"和"a"视作相同的字母
D)在KeyDown和KeyUp事件过程中从大键盘上输入的"1"和从右侧小键盘上输入的"1"被视作不同的字符
15）窗体上画一个名称为CommandDialog1的通用对话框，一个名称为Command1的命令按钮。然后编写如下事件过程：
PrivateSubCommand1_Click()
CommonDialog1.FileName=""
CommonDialog1.Filter="Allfile|*.*|(*.Doc)|*.Docx|(*.Txt)|*.Txt"
CommonDialog1.FilterIndex=2
CommonDialog1.DialogTitle="VBTest"
CommonDialog1.Action=1
EndSub
对于这个程序，以下叙述中错误的是
A)该对话框被设置为“打开”对话框
B)在该对话框中指定的默认文件名为空
C)该对话框的标题为VBTest
D)在该对话框中指定的默认文件类型为文本文件(*.Txt)
二、填空题（30分，每空2分）
1）结构化程序设计中把程序结构规定为（1）、（2）、（3）三种基本结构。
2）在窗体上画一个名称为Command1的命令按钮和一个名称为Text1的文本框。程序运行后，Command1为禁用(灰色)。当向文框中输入任何字符时，命令按钮Command1变为可用。请在（4）处填入适当的内容，将程序补充完整。
PrivateSubForm_Load()
Command1.Enabled=False
EndSub
PrivateSubText1_（4）()
Command1.Enabled=True
EndSub
3）在如下工具栏按钮事件处理函数中，空白处应当添加的语句为
PrivateSubToolbar1_ButtonClick(ByValButtonAsMSComctlLib.Button)
SelectCase（5）
4）在窗体上有一个文本框控件，名称为TxtTime：一个计时器控件，名称为Timerl，要求每一秒钟在文本框中显示一次当前的时间。程序为：
PrivateSubTimer1_(6)
TxtTime.text=Time
EndSub
请在(6)处补全程序
5）设有如下程序段：
a$="BeijingShanghai"
b$=Mid(a$InStr(a$"g")+1)
执行上面的程序段后，变量b$的值为（7）。
6）以下程序的功能是：从键盘上输入若干个学生的考试分数，当输入负数时结束输入，然后输出其中的最高分数和最低分数。请在(6)和(7)处填入适当的内容，将程序补充完整。
PrivateSubForm_Click()
DimxAsSingleamaxAsSingleaminAsSingle
x=InputBox(“Enterascore”)
amax=x
amin=x
DoWhile(8)
Ifx>amaxThen
Amax=x
EndIf
If(9)Then
Amin=x
EndIf
x=InputBox(“Enterascore”)
Loop
Print”Max=”amax”Min=”amin
EndSub
7）在窗体上画一个名称为“Command1”，标题为“计算”的命令按钮，再画7个标签，其中5个标签组成名称为Label1的控件数组名称为Label2的标签用于显示计算结果，其Caption属性的初始值为空；标签Label3的标题为“计算结果”。运行程序时会自动生成5个随机数，分别显示在标签控件数组的各个标签中，如图所示。单击“计算”按钮，则将标签数组各元素的值累加，然后计算结果显示在Label2。请填空。
PrivateSubCommand1_Click()
Sum=0
Fori=0To4
Sum=Sum+(10)
Next
(11)=Sum
EndSub
8）如下程序计算1~100之间的能被3整除或被5整除的数的和，请不全如下程序
PrivateFunctionsum()AsInteger
s=(12)
Fori=1To100
If(13)Then
s=(14)
EndIf
Next
sum=(15)
EndFunction
三、编程题（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的标题属性。
www.openhelp100.com
奥鹏东北大学作业
页:
[1]