预览加载中，请您耐心等待几秒...

计算机二级VB程序操作题!.doc

预览
1/5
2/5
3/5
4/5
5/5

在线预览结束，喜欢就下载吧，查找使用更方便

下载提示 文本预览

如果您无法下载资料，请参考说明：

1、部分资料下载需要金币，请确保您的账户上有足够的金币

2、已购买过的文档，再次下载不重复扣费

3、资料包下载后请先用软件解压，在使用对应软件打开

Dima(10)AsInteger Dimb(10)AsInteger Dimc(10)AsInteger PrivateSubCommand1_Click() OpenApp.Path&"\dataA.txt"ForInputAs#1 OpenApp.Path&"\dataB.txt"ForInputAs#2 Fori=0To9 Input#1,a(i) Input#2,b(i) Next Close#1,#2 EndSub 'PrivateSubfind(x()AsInteger,tAs?) PrivateSubfind(x()AsInteger,tAsTextBox) '==================以下为考生编写的程序====================== DimmaxAsInteger L=LBound(x) max=x(L) Fori=LBound(x)ToUBound(x) Ifmax<x(i)Thenmax=x(i) Nexti t=max '==================考生编写的程序结束======================== EndSub PrivateSubCommand2_Click() '==================以下为考生编写的程序======================= Fori=0To9 c(i)=a(i)+b(i) Nexti '==================考生编写的程序结束========================= OpenApp.Path&"\out51.txt"ForOutputAs#1 Fori=0To9 Print#1,c(i) Next Close#1 EndSub PrivateSubCommand3_Click() Callfind(a,Text1) Callfind(c,Text2) OpenApp.Path&"\out52.txt"ForOutputAs#1 Print#1,Text1.Text,Text2.Text Close#1 EndSub PrivateSubForm_Load() EndSub Dima(100)AsInteger PrivateFunctionis_square(xAsInteger)AsBoolean'判断完全平方数 flag=False Form=1ToSqr(x) 'If?=m^2Then flag=True ExitFor EndIf Nextm 'is_square=? EndFunction PrivateSubCommand1_Click() DimkAsInteger OpenApp.Path&"\in3.dat"ForInputAs#1 Fork=1To100 Input#1,a(k) Nextk Close#1 EndSub PrivateSubCommand2_Click() DimmaxAsInteger DimnumAsInteger max=0 num=0 Fork=1To100 Ifis_square(a(k))Then num=num+1 'If?>MaxThen max=a(k) EndIf EndIf Nextk 'Text1.Text=? 'Text2.Text=? EndSub