可视化程序设计VB第3次.docx
《可视化程序设计VB第3次.docx》由会员分享，可在线阅读，更多相关《可视化程序设计VB第3次.docx（13页珍藏版）》请在冰豆网上搜索。
可视化程序设计VB第3次
第3次作业
一、填空题（本大题共20分，共10小题，每小题2分）
1.
为了保留动态数组中原有的数据不丢失，可以使用带 进行动态定义。
2.
运行语句：
t=MsgBox（"Hello",64,"Come"）后，在信息提示框内显示的内容是__________。
3.
数学中完数是指这样的整数：
该数的各因子之和是它的本身。
例如，6的因子是1，2，3，而6=1+2+3，所以6是完数。
下列程序是找出2~1000以内的完数，并显示结果，其中，函数isWs（masinteger）asBoolean用来判断参数m是否是完数。
FunctionisWs（mAsInteger）AsBoolean
DimiAsInteger,sAsInteger
Fori=1Tom-1
If Then
s=s+i
EndIf
If（m=s）Then
Else
isWs=False
EndIf
Nexti
EndFunction
PrivateSubCommand1_Click（）
DimiAsInteger
Fori=2To1000
IfThenPrinti;
Nexti
EndSub
4.
建立控件数组的方法有 、 和 三种。
5.
以下程序段的输出结果是____。
Num=0
Whilenum<=2
num=num+1
Wend
Printnum
6.
VB中的注释语句采用________；VB的续行符采用________；若要在一行书写多条语句，则各语句间应加分隔符，VB的语句分隔符为________。
7.
程序运行后，单击命令按钮，如果输入3，则在窗体上显示的内容是。
PrivateSubComman1_Click（）
x=0
n=InputBox（““）
Fori=1Ton
Forj=1Toi
x=x+1
Nextj
Nexti
Printx
EndSub
8.
表示x是3或7的倍数表达式________。
9.
在VB中变量不加任何声明而直接使用，这样的变量是 数据类型。
10.
定义窗体Form1单击事件的头语句是 。
二、程序阅读题（本大题共40分，共4小题，每小题10分）
1.
程序为：
PrivateSubForm_Click（）
Dima
a=Array（1,2,3,4,5,6,7）
ForI=LBound（a）ToUBound（a）
a（I）=a（I）*a（I）
Printa（I）
NextI
EndSub
程序运行后，单击窗体后，在窗体显示的结果是：
2.
在窗体上画一个文本框和一个列表框，然后编写如下两个事件过程：
PrivateSubForm_Load（）
List1.AddItem“123”
List1.AddItem“456”
List1.AddItem“369”
List1.AddItem“789”
Text1.Text=“”
EndSub
PrivateSubList1_DblClick（）
a=List1.Text
Printa+Text1.Text
EndSub
程序运行后，在文本框中输入“248”，然后双击列表框中的“369”，则输出结果（ ）
3.
写出下面程序运行时单击窗体的输出结果。
PrivateSubf（a%,b%）
a=a+b
b=a-b
EndSub
PrivateSubForm_Click（）
Dima%,b%
a=23
b=12
Callf（a,b）
Print"a="&a;",b="&b
EndSub
4.
程序为：
PrivateSubCommand1_Click（）
Dima（1To5,1To5）AsInteger,i%,j%
Fori=1To5
Forj=1To5
Ifi<=jThena（i,j）=1Elsea（i,j）=i-j+1
Nextj
Nexti
Fori=1To5
Forj=1To5
Printa（i,j）;
Nextj
Print
Nexti
EndSub
程序运行后，单击命令按钮，输出结果为：
三、简答题（本大题共20分，共4小题，每小题5分）
1.
VB有多种类型窗口，若想在设计时看到代码窗口，怎样操作？
2.
简述VB6.0的主要特点。
3.
将数字串转换成数值用什么函数？
判定是否是数字串用哪个函数？
取字符串某几个字符使用什么函数？
大小写字母转换用什么函数？
4.
什么是对象？
什么是类？
什么是事件过程？
四、程序设计题（本大题共20分，共2小题，每小题10分）
1.
用随机函数产生100个[0,999]以内的随机整数，输出能够被3整除并且个位不为0的数并且统计满足条件的数的个数。
要求每行输出10个数。
2.
利用随机函数，模拟投币结果。
设共投币100次，求“两个正面”、“两个反面”、“一正一反”3种情况各出现多少次？
答案：
一、填空题（20分，共10题，每小题2分）
1.
参考答案：
perserve
解题方案：
评分标准：
2.
参考答案：
Hello
解题方案：
评分标准：
3.
参考答案：
mmodi=0
isWs=True
isWs=True
解题方案：
评分标准：
4.
参考答案：
1）.通过复制粘贴的方式创建控件数组
2）.在设计时候添加多个同类型的类型控件，然后通过“属性”窗口将这些控件的名称改为相同，并把Index属性设为不同的下标值。
3）.使用Load语句动态添加控件数组元素
解题方案：
评分标准：
5.
参考答案：
3
解题方案：
评分标准：
6.
参考答案：
’，_，:
解题方案：
评分标准：
7.
参考答案：
15
解题方案：
评分标准：
8.
参考答案：
xmod3=0orxmod7=0
解题方案：
评分标准：
9.
参考答案：
variant（变体）
解题方案：
评分标准：
10.
参考答案：
PrivateSubForm1_Click（）
解题方案：
评分标准：
二、程序阅读题（40分，共4题，每小题10分）
1.
参考答案：
1
4
9
16
25
36
49
解题方案：
评分标准：
2.
参考答案：
369248
解题方案：
评分标准：
3.
参考答案：
a=35,b=23
解题方案：
评分标准：
4.
参考答案：
１ １ １ １ １
２ １ １ １ １
３ ２ １ １ １
４ ３ ２ １ １
５ ４ ３ ２ １
解题方案：
评分标准：
三、简答题（20分，共4题，每小题5分）
1.
参考答案：
单击工程资源管理器窗口的“查看代码”按钮。
解题方案：
评分标准：
2.
参考答案：
（1）面向对象的程序设计
（2）具有结构化程序设计语言
（3）事件驱动编程机制
（4）强大的数据库、多媒体功能
（5）完备的联机帮助功能
解题方案：
评分标准：
3.
参考答案：
（1）数字串转换成数值用val函数；
（2）判定是否是数字串用isnumeric函数。
（2）取字符串某几个字符使用mid函数。
（3）大小写字母转换用lcase函数\ucase函数。
解题方案：
评分标准：
4.
参考答案：
（1）对象是面向对象程序设计的核心，是构成应用程序的基本元素。
（2）类是对同种对象的抽象描述，是创建对象的模版。
（3）事件过程是对某个对象事件所做的操作。
解题方案：
评分标准：
四、程序设计题（20分，共2题，每小题10分）
1.
参考答案：
PrivateSubForm_Click（）
Dima（99）AsInteger,i%,j%,flag%,temp%,k%
Fori=0To99
Randomize '初始化随机数发生器
a（i）=Int（（999-0+1）*Rnd+0）'按要求生成随机数放入数组
Nexti
Fori=0To99
Ifa（i）Mod3=0Anda（i）Mod10<>0Then
j=j+1
Printa（i）;
IfjMod10=0Then
PrintvbCrLf
EndIf
EndIf
Nexti
PrintvbCrLf
Print"满足条件的数的个数为：
"&j
EndSub
解题方案：
评分标准：
2.
参考答案：
根据以上分析，窗体的单击事件程序代码如下：
PrivateSubForm_Click（）
RandomizeTimer
Dima（1,1）
Fori=1To100
n1=Int（Rnd*2）
n2=Int（Rnd*2）
a（n1,n2）=a（n1,n2）+1
Nexti
Print"投币结果如下：
"
Print"～～～～～～～～～～～～～"
Print"两个正面的次数为：
";a（0,0）
Print"两个反面的次数为:
";a（1,l）
Print"一正一反的次数为:
";a（0,1）+a（1,0）
EndSub
解题方案：
定义一个二维数组a（1,1），其各元素的含义为：
a（0,0）为累计“两个正面”的次数。
a（1,1）为累计“两个反面”的次数。
a（0,1）和a（1,0）为累计“一正一反”或“一反一正”的次数。
评分标准：
升级会员 