内容发布更新时间 : 2024/11/10 3:51:40星期一 下面是文章的全部内容请认真阅读。
写出程序运行时单击窗体后，Form１上输出结果。 结果为：（32） c)程序3
Rem在窗体的通用声明区声明两个模块级变量a和y DimaAsInteger,yAsInteger PrivateSubForm_Load() Open\Close#1 EndSub
PrivateSubCommand1_Click() Open\Callaa(5) y=y+a
Print#1,\EndSub
Subaa(iAsInteger) x=1 DoUntilx>i a=a+x x=x+3 Loop EndSub
写出程序运行时连续三次单击Command1后，a1.dat文件的最终结果 结果为：（33）
五、程序填空题（每小题9分，共18分）
a)程序说明:利用一个计时器、一个标签框和二个命令按钮制作一个动态秒表，如图１所示。单击“开始“命令按钮，秒表开始计时，单击“结束“命令按钮，秒表结束计时，并在标签框显示运行时间，如“运行了０小时２分１０秒“。（假设对象的属性都在程序代码中设定）。
DimxAsLong
DimhAsInteger,mAsInteger,sAsInteger PrivateSubForm_Load()
Form1.Caption=\动态秒表（小时：分：秒）\Command1.Caption=\开始[&S]\Command2.Caption=\结束[&E]\Label1.Alignment=2'居中对齐 Label1.Caption=\
timer1.Interval=____（34）______ Timer1.Enabled=False x=0 EndSub
PrivateSubCommand1_Click() _________（35）________ EndSub
PrivateSubCommand2_Click() Timer1.Enabled=False x=____（36）____
Label1.Caption=\运行了\小时\分\秒\EndSub
PrivateSubTimer1_Timer() x=x+1
h=___（37）_____ m=(xMod3600)\\60 s=___（38）_____
Label1.Caption=Str(h)+\EndSub
b)程序说明:已知自然对数的底数e的级数表示如下: e=1+1/1!+1/2!+1/3!+......+1/n!+.....
本程序利用函数过程fact()求e，其中绝对值小于1E-8的项被忽略。 程序代码如下:
PrivateFunctionfact(mAsInteger)AsSingle'求Ｍ！的函数 DimxAsSingle,iAsInteger x=1
fori=1tom:x=____（39）_______:Nexti fact=x EndFunction
PrivateSubForm_Click() DimeAsSingle,itemAsSingle DimnAsInteger
e=1:n=_____（40）________ Do n=n+1
item=____（41）___________ e=e+item
Loopwhile__（42）_______ Form1.Print\EndSub
六、综合编程题:（每小题12分，共24分）
１．随机产生n个两位正整数（n由输入对话框输入，且n>0），求出其中的偶数之和，并在标签框Label1上显示。
程序写在命令按钮command1的click事件中。
2．由输入对话框输入100个数值数据放入数组a。将其中的整数放入数组b，然后运用选择分类法将数组b中的数据按从大到小的顺序排列，并以每行5个数据在窗体上输出。
注:程序写在窗体form的Click事件中。
参考答案4： 一、选择题 1.B2.A3.C4.D5.A 6.B7.D8.B9.D10.C 二、判断题：
11．T12.F13.T14.F15.F 16.T17.F18.F19.T20.T 三、填空题：
21．（x^5-cos(29*3.14159/180)）/(sqr((exp(x)+log(y))+5) 22.IIF(int(x)mod2=0,int(x)+2,int(x)+1) 23.a1=a3xora2=a3 24.a1<>a3anda2<>a3 25．6 26.全局变量 27．模块级变量 28．过程级变量
29．以圆心为（800，1000）半径为500的圆 30．DimSstrasString*10 四、程序阅读题： 31．s=5s=10s=40 32.w=3k=2 w=4k=4 w=5k=6 w=6k=8 33.y=5a=5 y=15a=10 y=30a=15
五、程序填空题： 34．1000
35.timer1.enabled=True 36.x=0 37.x\\3600
38.(xmod3600)mod60 39.x*i 40.0 41.1/fact(n) 42.item>=1.0E-8 六、综合编程： 1．
PrivateSubCommand1_Click() DimnAsInteger
DimiAsInteger,sumAsLong
n=Val(InputBox(\Fori=1Ton
rnddat=(10+Int(90*Rnd)) IfrnddatMod2=0Then sum=sum+rnddat EndIf Nexti
Label1.Caption=sum EndSub 2．
PrivateSubForm_Click() Dima(1To100) Dimb()asinteger
DimiAsInteger,jAsInteger,kAsInteger,posAsInteger,tempasinteger Fori=1To100
a(i)=Val(InputBox(\