可视化程序设计(VB) ( 第3次 )VIP免费

第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)AsBooleanDimiAsInteger,sAsIntegerFori=1Tom-1IfThens=s+iEndIfIf(m=s)ThenElseisWs=FalseEndIfNextiEndFunctionPrivateSubCommand1_Click()7.DimiAsIntegerFori=2To1000IfThenPrinti;NextiEndSub4.建立控件数组的方法有、和三种。5.以下程序段的输出结果是Num=0Whilenum<=2num=num+1WendPrintnum6.VB中的注释语句采用；VB的续行符采用；若要在一行书写多条语句，则各语句间应加分隔符，VB的语句分隔符为。程序运行后，单击命令按钮，如果输入3，则在窗体上显示的内容是。PrivateSubComman1_Click()x=0n=InputBox(““)Fori=1TonForj=1Toix=x+1NextjNextiPrintxEndSub8.表示X是3或7的倍数表达式。9.在VB中变量不加任何声明而直接使用，这样的变量是数据类型。10.定义窗体Forml单击事件的头语句是。二、程序阅读题(本大题共40分，共4小题，每小题10分)1.程序为：PrivateSubForm_Click()7.Dimaa=Array(1,2,3,4,5,6,7)ForI=LBound(a)ToUBound(a)a(I)=a(I)*a(I)Printa(I)NextIEndSub程序运行后，单击窗体后，在窗体显示的结果是：2.在窗体上画一个文本框和一个列表框，然后编写如下两个事件过程PrivateSubForm_Load()List1.AddItem“123”List1.AddItem“456”List1.AddItem“369”List1.AddItem“789”Text1.Text=EndSubPrivateSubList1_DblClick()a=List1.TextPrinta+Text1.TextEndSub程序运行后，在文本框中输入“248”，然后双击列表框中的“369”，则输出结果()3.写出下面程序运行时单击窗体的输出结果。PrivateSubf(a%,b%)a=a+bb=a-bEndSubPrivateSubForm_Click()Dima%,b%a=23b=12Callf(a,b)Print"a="&a;",b="&bEndSub4.程序为：PrivateSubCommand1_Click()Dima(1To5,1To5)AsInteger,i%,j%Fori=1To5Forj=1To5Ifi<=jThena(i,j)=1Elsea(i,j)=i-j+1Nextj7.NextiFori=1To5Forj=1To5Printa(i,j);NextjPrintNextiEndSub程序运行后，单击命令按钮，输出结果为：三、简答题(本大题共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=0isWs=TrueisWs=True解题方案：评分标准：7.4.参考答案：1).通过复制粘贴的方式创建控件数组2).在设计时候添加多个同类型的类型控件，然后通过“属性”窗口将这些控件的名称改为相同，并把Index属性设为不同的下标值。3).使用Load语句动态添加控件数组元素解题方案：评分标准：5.参考答案：3解题方案：评分标准：6.参考答案：_:解题方案：评分标准：7.参考答案：15解题方案：评分标准：8.参考答案：xmod3=0orxmod7=0解题方案：评分标准：9.参考答案：variant（变体）解题方案：评分标准：10.参考答案：PrivateSubForm1_Click()解题方案：评分标准：二、程序阅读题（40分，共4题，每小题10分）1.参考答案：149162536497.解题方案：评分标准：2.参考答案：369248解题方案：评分标准：3.参考答案：a=35,b=23解题方案评分...