计算机上机答案15.docx
《计算机上机答案15.docx》由会员分享，可在线阅读，更多相关《计算机上机答案15.docx（32页珍藏版）》请在冰点文库上搜索。
计算机上机答案15
第一套：
（1）【解题思路】窗体对象和命令按钮控件的标题均由其Caption属性来设置，Visible属性用于设置窗体或控件在运行时是否可见，设计时可通过修改命令按钮的Font属性来设置标题的字体、字号和字型。
【操作步骤】
步骤1：
新建一个窗体，按照题目要求建立命令按钮控件并设置命令按钮和窗体的相应属性。
程序中用到的属性见表3.25。
步骤2：
调试并运行程序，关闭程序后按题目要求存盘。
（2）【解题思路】标签的BorderStyle属性用于设置标签的边框样式，值为0表示无边框，值为1表示有固定边框。
要使标签位于窗体的右上角，其Top属性值应为0,Left属性值应为窗体的内部有效宽度减去标签宽度后的值。
【操作步骤】
步骤1：
新建一个窗体，按照题目要求建立标签控件并设置标签的相应属性。
程序中用到的控件及属性见表3.26。
表3.26
控件
标签
属性
Name
BorderStyle
设置值
Label1
1
步骤2：
编写程序代码。
参考答案
PrivateSubForm_Click（）
Label1.Top=0
Label1.Left=Form1.Width-Label1.Width
EndSub
步骤3：
调试并运行程序，关闭程序后按题目要求存盘。
（1）【解题思路】Rnd（）函数用于产生一个小于1但大于或等于0的随机数，其语法格式为：
Rnd[（number）]
可选的number参数是Single或任何有效的数值表达式。
为使每次程序运行时，得到不同的随机数数列，在使用Rnd（）函数产生随机数前应用Randomize语句对随机数生成器进行初始化，该生成器能根据系统计时器得到新的种子值。
为了生成某个范围内的随机整数，可使用以下公式：
Int（（upperbound－lowerbound＋1）*Rnd＋lowerbound）。
其中，upperbound是随机数范围的上限，lowerbound则是随机数范围的下限。
本题程序用变量Min记录最小数，最初把数组的第一个元素的值赋给Min，然后通过For循环语句将其后的元素依次与之比较，如果其值小于Min，则将其赋值给Min，依次类推，最终Min的值就是数组各元素中的最小值。
【操作步骤】
步骤1：
打开本题工程文件。
步骤2：
分析并编写程序代码。
程序提供代码
OptionBase1
PrivateSubCommand1Click（）
DimarrN（30）AsInteger
DimMinAsInteger
Randomize
Fori=1To30
'arrN（i）=Int（Rnd*？
）
Nexti
'?
=arrN
（1）
Fori=2To30
'If?
Then
Min=arrN（i）
EndIf
Nexti
PrintMin
EndSub
程序结束
参考答案
第1个？
处填入：
1000
第2个？
处填入：
Min
第3个？
处填入：
arrN（i）arrN（i）
步骤3：
调试并运行程序，关闭程序后按题目要求存盘。
（2）【解题思路】可通过求余运算符Mod来计算某数M能否被7整除，如果MMod7＝0，那么M能被7整除；如果MMod7≠0，那么M不能被7整除。
可利用For循环语句来逐个判断0～1000范围内的整数能否被7整除，然后用一个变量来统计不能被7整除的整数个数。
【操作步骤】
步骤1：
打开本题工程文件。
步骤2：
分析并编写程序代码。
程序提供代码
SubSaveData（）
OpenApp.Path&"\"&"outtxt.txt"ForOutputAs#1
Print#1,Text1.Text
Close#1
EndSub
FunctionFun（）
EndFunction
PrivateSubCommand1Click（）
d=Fun（）
Text1.Text=d
SaveData
EndSub
程序结束
参考答案
FunctionFun（）
DimsAsInteger,iAsInteger
Fori=0To1000
IfiMod7<>0Then
s=s+1
EndIf
Nexti
Fun=s
EndFunction
步骤3：
调试并运行程序，关闭程序后按题目要求存盘。
【解题思路】本题源程序已给出读文件中的数据和向文件中写数据的三个过程，只需适时调用它们，即在"读入数据"和保存过程中调用；要把数组Arr1、Arr2中对应下标的元素相减并把结果存入第3个数组中，需利用FOR循环逐一取出Arr1、Arr2对应元素；由于数组Arr1、Arr2及存储第3个数组和的变量要跨过程使用，因此需定义成窗体级变量；调用过程WriteData时需传递两个参数，分别是存入数据的文件名和存储第3个数组和的变量；语句OptionBase1用于限定数组下标的下限，默认为1。
Call语句将控制权转移到一个Sub过程，Function过程，或动态连接库（DLL）过程。
语法：
[Call]name[argumentlist]
Call可选参数；关键字。
如果指定了这个关键字，则argumentlist必须加上括号，例如：
CallMyProc（0），name是必要参数，要调用的过程名称。
【操作步骤】
步骤1：
打开本题工程文件，按照题目要求建立命令按钮控件并设置命令按钮1的相应属性。
步骤3：
按照步骤1设置另一个命令按钮控件相关属性，程序中用到的控件及属性见表3.27所示。
表3.27
控件
命令按钮1
命令按钮2
属性
Name
Caption
Name
Caption
设置值
C1
读入数据
C2
计算
步骤4：
分析并编写程序代码。
程序提供代码
OptionBase1
DimArr1（20）AsInteger
DimArr2（20）AsInteger
SubReadData1（）
OpenApp.Path&"\"&"datain1.txt"ForInputAs#1
Fori=1To20
Input#1,Arr1（i）
Nexti
Close#1
EndSub
SubReadData2（）
OpenApp.Path&"\"&"datain2.txt"ForInputAs#1
Fori=1To20
Input#1,Arr2（i）
Nexti
Close#1
EndSub
SubWriteData（FilenameAsString,NumAsInteger）
OpenApp.Path&"\"&FilenameForOutputAs#1
Print#1,Num
Close#1
EndSub
程序结束
参考答案
PrivateSubC1_Click（）
CallReadData1
CallReadData2
EndSub
PrivateSubC2_Click（）
DimArr3（1To20）AsInteger
DimsumAsInteger
sum=0
Fori=1To20
Arr3（i）=Arr1（i）-Arr2（i）
sum=sum+Arr3（i）
Nexti
Print"sum=";sum
WriteData"dataout.txt",sum
EndSub
步骤5：
调试并运行程序，关闭程序后按题目要求存盘。
第二套：
基本操作：
（1）【解题思路】复选框的一个特殊属性是Value属性，它的取值和用法与单选按钮有所差别。
若Value属性的值取为0，代表复选框处于未选中状态，此时复选框的选项部分是一个空白的小方块；若Value属性的值取为1，代表复选框处于选中状态，此时复选框的选项部分是一个带有"√"标记的小方块；若Value属性的值取为2，代表复选框处于禁止选择状态。
系统默认值为0，即未选中状态。
复选框是否可用通过其Enabled属性设置。
【操作步骤】
步骤1：
建立界面，按照题目要求建立一个名称为Ch1的复选框数组并设置其相应属性。
步骤2：
按照步骤1设置其他控件相关属性，程序中用到的控件及属性见表3.28和表3.29。
表3.28
控件
标签
复选框1
属性
Name
Caption
Caption
Index
Value
设置值
L1
业余爱好
体育
0
1
步骤3：
调试并运行程序，关闭程序后按题目要求存盘。
（2）【解题思路】文本框的Visible属性用于设置其在运行时是否可见。
通过"菜单编辑器"窗口建立菜单项。
【操作步骤】
步骤1：
新建一个"标准EXE"工程，在窗体中添加个文本框，在属性设置窗口中将其Name属性值设置为Text1。
打开菜单设计器，按表3.30中的设置建立菜单项。
表3.30
标题
操作
显示
隐藏
名称
M1
Show
Hide
内缩符号
0
1
1
步骤2：
编写程序代码。
参考答案
PrivateSubHide_Click（）
Text1.Visible=False
EndSub
PrivateSubShow_Click（）
Text1.Visible=True
EndSub
步骤3：
调试并运行程序，关闭程序后按题目要求存盘。
简单应用：
（1）【解题思路】PasswordChar属性用于屏蔽文本框中内容的字符，如果要去掉对文本框中输入内容的屏蔽，需将其PasswordChar属性值清空。
【操作步骤】
步骤1：
新建一个窗体，按照题目要求建立标签控件并设置标签的相应属性。
步骤2：
按照步骤1设置其他控件相关属性，程序中用到的控件及其属性见表3.31和表3.32。
步骤3：
分析并编写程序代码。
程序提供代码
程序结束
参考答案
PrivateSubC1_Click（）
Text1.PasswordChar=""
EndSub
PrivateSubC2_Click（）
Text1.PasswordChar="?
"
EndSub
PrivateSubC3_Click（）
Text2.Text=Text1.Text
EndSub
步骤4：
调试并运行程序，关闭程序后按题目要求存盘。
（2）【解题思路】通用对话框Action属性用于设置被打开对话的类型。
当通用对话框显示为"打开"或"另存为"类型时，其FileName属性用于返回或设置所选文件的路径和文件名。
Filter（过滤器）属性用于指定在对话框的文件列表中显示文件的类型。
例如，过滤器为*.txt，表示显示所有的文本文件。
语法为：
对象名．Filter＝"描述|文件扩展名"。
通用对话框的InitDir属性用于为"打开"或"另存为"对话框指定初始的目录，如果此属性没有指定，则使用当前目录。
【操作步骤】
步骤1：
新建一个窗体，按照题目要求建立图片框及通用对话框控件并设置图片框及通用对话框相应属性。
程序中用到的控件及其属性见表3.33和表3.34。
表3.33
控件
图片框
通用对话框
属性
Name
Picture
Name
DialogTitle
设置值
P1
Open.ico
CD1
打开文件
步骤2：
分析并编写程序代码。
参考答案
PrivateSubP1_Click（）
CD1.ShowOpen
EndSub
步骤3：
调试并运行程序，关闭程序后按题目要求存盘。
综合应用：
【解题思路】StrReverse函数用于返回一个字符串，其中一个指定子字符串的字符顺序是反向的。
语法：
StrReverse（string1）
参数string1是一个字符串，它的字符顺序要被反向。
如果string1是一个长度为零的字符串（""），则返回一个长度为零的字符串。
如果string1为Null，则产生一个错误。
Mid函数用于取字符子串。
语法：
Mid（stringvar,start[,length]）＝string
在stringvar中从start位置开始向右取length个字符。
Input（LOF
（1）,1）Input是一个函数，返回指定文件中的指定字符。
LOF函数返回文件长度，参数为文件号。
Input函数，第一参数为返回字符数，第二参数为文件号，两个1都指第1号文件。
这条语句的用来读取1号文件的所有内容。
【操作步骤】
步骤1：
打开本题工程文件，按照题目要求建立标签控件并设置标签的Caption属性为"回文个数为"。
步骤2：
分析并编写程序代码。
程序提供代码
OptionBase1
DimsAsString
PrivateSubCommand1Click（）
OpenApp.Path&"\in5.dat"ForInputAs#1
s=Input（LOF
（1）,#1）
Close#1
EndSub
PrivateSubCommand2Click（）
DimnAsInteger,tAsString,wordnumAsInteger
n=Len（s）:
t=""
Fori=1Ton
c=Mid（s,i,1）
Ifc<>""Then
t=t+c
Else
Iffoundhuiwen（t）Then
wordnum=wordnum+1
EndIf
t=""
EndIf
Nexti
Text1.Text=wordnum
EndSub
'以下Function过程用于判断字符串是否为回文
Functionfoundhuiwen（pAsString）
'考生编写
EndFunction
PrivateSubFormUnload（CancelAsInteger）
OpenApp.Path&"\out5.dat"ForOutputAs#1
Print#1,Text1.Text
Close#1
EndSub
程序结束
参考答案
Functionfoundhuiwen（pAsString）
IfStrReverse（p）=pThenfoundhuiwen=True
EndFunction
步骤3：
调试并运行程序，关闭程序后按题目要求存盘。
第三套
基本操作
（1）【解题思路】复选框（CheckBox）组常用于提供多个选项间的多重选择，Value属性值决定每个复选框的选中状态：
0－Unchecked为未选，1－Checked为选中，2－Grayed为变灰色。
选择某复选框后，该复选框将显示"√"，而取消选择后，"√"消失。
【操作步骤】
步骤1：
新建窗体，按照题目要求建立控件数组并设置窗体和第一个复选框的属性。
程序中用到的控件及属性见表3.35。
步骤2：
调试并运行程序，关闭程序后按题目要求存盘。
（2）【解题思路】滚动条常用于取代数据的键盘输入，通过调整滚动条滑块的位置即可改变其Value属性的值。
滚动条的Max属性、Min属性限定了滚动条所能表示的最大值和最小值，即Value属性值的取值范围，在程序中改变Value属性的值，滚动条滑块会随之移动到相应位置。
在单击命令按钮触发的Click事件中加入让滚动条的Value属性值加10的语句，在每次单击命令按钮后，滚动条就向右移动10个刻度。
【操作步骤】
步骤1：
新建一个窗体，按照题目要求建立滚动条控件及命令按钮控
件并设置其属性。
程序中用到的控件及属性见表3.36
步骤2：
编写程序代码。
参考答案
PrivateSubC1_Click（）
HS1.Value=HS1.Value+10
EndSub
步骤3：
调试并运行程序，关闭程序后按题目要求存盘。
简单应用
（1）【解题思路】PopupMenu方法用来显示弹出菜单，语法格式为：
object.PopupMenumenuname，flags，x,y，boldcommand
要创建弹出式菜单需先用菜单编辑器来建立菜单，并将其主菜单项的可见（即Visible）属性值设置为False，然后在对象的MouseDown（或MouseUp）事件过程中，通过判断该事件的Button参数值是否为2，若是则执行对象的PopupMenu方法来显示菜单。
FontSize属性、FontBold属性、FontItalic属性、FontStrikethru属性和FontUnderline属性可分别用来设置字体的大小和样式。
【操作步骤】
步骤1：
新建一个窗体，按照题目要求建立文本框控件及一个弹出式菜单并设置菜单属性。
步骤2：
按照步骤1设置其他子菜单项的相关属性，程序中用到菜单属性见表3.37。
表3.37
标题控件
（任意）
加粗
斜体
下划线
名称
Format
M1
M2
M3
内缩符号
0
1
1
1
步骤3：
分析并编写程序代码。
参考答案
PrivateSubM1_Click（）
Text1.FontBold=True
EndSub
PrivateSubM2_Click（）
Text1.FontItalic=True
EndSub
PrivateSubM3_Click（）
Text1.FontUnderline=True
EndSub
PrivateSubText1_MouseDown（ButtonAsInteger,ShiftAsInteger,XAsSingle,YAsSingle）
IfButton=2Then
Me.PopupMenuFormat
EndIf
EndSub
步骤4：
调试并运行程序，关闭程序后按题目要求存盘。
（2）【解题思路】修改窗体标题是通过设置其Caption属性来实现的，ControlBox属性用于设置控制菜单框是否在窗体标题栏中显示，为在窗体标题栏中只显示标题信息，需将该属性值设置为False。
文本框的PasswordChar属性可设置用于屏蔽在文本框中输入内容的字符，如"*"。
【操作步骤】
步骤1：
打开本题工程文件，按照题目要求设置属性。
步骤2：
分析并编写程序代码。
程序提供代码
Form1代码
PrivateSubC1Click（）
DimkAsInteger
' Form2.?
Form2.PrintForm1.L1.Caption;Form1.Text1
Form2.PrintForm1.L2.Caption;Form1.Text2
Form2.PrintForm1.L3.Caption;Form1.Text3
' Form2.PrintForm1.Frame1.?
;"：
"；
Fork=0To1
' IfForm1.Op1（?
）．ValueThen
Form2.PrintForm1.Op1（k）．Caption
EndIf
Nextk
EndSub
PrivateSubFormLoad（）
' Text2.?
="*"
EndSub
Form2代码
PrivateSubC1Click（）
End
EndSub
PrivateSubC2Click（）
UnloadForm2
EndSub
程序结束
参考答案
第1个？
处填入：
Show
第2个？
处填入：
Caption
第3个？
处填入：
k
第4个？
处填入：
PasswordChar
步骤3：
调试并运行程序，关闭程序后按题目要求存盘。
综合应用
【解题思路】本题通过判断文本框Text1输入的密码是否为"123456"执行不同的操作。
每输入一次错误密码，将提示重新输入，直到文本框Text2中的数值为0时，则提示错误，并禁用文本框Text1。
MsgBox函数在对话框中显示消息，等待用户单击按钮，并返回一个值告诉用户单击哪一个按钮。
语法：
MsgBox（prompt[,buttons][,title][,helpfile,context]）
Prompt必选的。
字符串表达式，作为显示在对话框中的消息。
prompt的最大长度大约为1024个字符，由所用字符的宽度决定。
如果prompt的内容超过一行，则可以在每一行之间用回车符（Chr（13））、换行符（Chr（10））或是回车与换行符的组合（Chr（13）&Chr（10））将各行分隔开来。
Buttons可选的。
数值表达式是值的总和，指定显示按钮的数目及形式，使用的图标样式，默认按钮是什么以及消息框的强制回应等。
如果省略，则buttons的默认值为0。
Title可选的。
在对话框标题栏中显示的字符串表达式。
如果省略title，则将应用程序名放在标题栏中。
Helpfile可选的。
字符串表达式，识别用来向对话框提供上下文相关帮助的帮助文件。
如果提供了helpfile，则也必须提供context。
Context可选的。
数值表达式，由帮助文件的作者指定给适当的帮助主题的帮助上下文编号。
如果提供了context，则也必须提供helpfile。
【操作步骤】
步骤1：
打开本题工程文件，将文本框Text1的PasswordChar属性设置为"*"。
步骤2：
分析并编写程序代码。
程序提供代码
PrivateSubC1Click（）
' If?
="123456"Then
Text1.Text="口令正确"
' Text1.?
=""
Else
Text2.Text=Text2.Text-1
' IfText2.Text>?
Then
MsgBox"第"&（3-Text2.Text）&"次口令错误，请重新输入"
Else
MsgBox"3次输入错误，请退出"
' Text1.Enabled=?
EndIf
EndIf
EndSub
程序结束
参考答案
第1个？
处填入：
Text1.Text
第2个？
处填入：
PasswordChar
第3个？
处填入：
0
第4个？
处填入：
False
步骤3：
调试并运行程序，关闭程序后按题目要求存盘。
第四套
基本操作
（1）【解题思路】图
升级会员 