上机模拟考试习题集0150解答.docx
- 文档编号:8053242
- 上传时间:2023-01-28
- 格式:DOCX
- 页数:76
- 大小:31.36KB
上机模拟考试习题集0150解答.docx
《上机模拟考试习题集0150解答.docx》由会员分享,可在线阅读,更多相关《上机模拟考试习题集0150解答.docx(76页珍藏版)》请在冰豆网上搜索。
上机模拟考试习题集0150解答
1.1上机模拟试题1解答
1.基本操作
(1)略
(2)程序代码如下:
PrivateSubCommand1_Click()
Image1.Picture=LoadPicture(App.Path&"\图片.jpg")
EndSub
PrivateSubCommand2_Click()
Image1.Picture=LoadPicture("")
EndSub
2.简单操作
(1)程序代码如下:
PrivateSubCommand2_Click()
DimiAsInteger,maxAsInteger,NAsInteger
Fori=1To100
Ifa(i)=(Int(Sqr(a(i))))^2Then
Ifa(i)>maxThen
max=a(i)
EndIf
N=N+1
EndIf
Nexti
Text1.Text=CStr(max)
Text2.Text=CStr(N)
EndSub
(2)
'?
"a0001"其中?
改为:
List1.AddItem
'Fori=0To?
其中?
改为:
List1.ListCount-1
'List1.ListIndex=?
其中?
改为:
i
'?
Text1.Text其中?
改为:
List1.AddItem
'?
其中?
改为:
End
3.综合应用
'a(i)=Fix(Rnd*?
+1)其中?
改为:
100
'Forj=1To?
其中?
改为:
i-1
'i=?
其中?
改为:
i-1
'Ifa(i)=?
Then其中?
改为:
num
'If?
>10Then其中?
改为:
i
1.2上机模拟试题2解答
1.基本操作
(1)略
(2)程序代码如下:
PrivateSubHS1_Change()
Text1.Width=HS1.Value
EndSub
2.简单操作
(1)
'While(k )其中? 改为: ListCount 'If? .Selected(k)=TrueThen中? 改为: List2 'List2.RemoveItem? 其中? 改为: k 'List1.RemoveItemList1.? 其中? 改为: List1.ListIndex (2)程序代码如下: PrivateSubC1_Click() Fori=0To2 IfOp1(i).Value=TrueThen n=Left(Op1(i).Caption,2) t=1 Forj=1Ton t=t*j Nextj EndIf Nexti Text1=t EndSub 3.综合应用 'CD1.FilterIndex=? 其中? 改为: 2 'Text1.Text=? 其中? 改为: a 'CD1.Action=? 其中? 改为: 2 程序代码如下: PrivateSubC2_Click() Text1.Text=UCase(Text1.Text) EndSub 1.3上机模拟试题3解答 1.基本操作 (1)略 (2)程序代码如下: PrivateSubC1_Click() Text2.Text=Text1.Text EndSub 2.简单操作 (1) 'S1=? 其中? 改为: Text1.Text 'DoWhileMid(S1,I1,1)<>? AndI1<=Len(S1)其中? 改为: "" 'List1.AddItem? 其中? 改为: S2 'S2=? 其中? 改为: "" (2)程序代码如下: 'Fori=? ToCb1.ListCount-1其中? 改为: 0 'IfCb1.List(i)=Cb1.? Then其中? 改为: Text 'Cb1.? Cb1.Text其中? 改为: AddItem 3.综合应用 程序代码如下: PrivateSubForm_Load() DimstrAsString OpenApp.Path+"\in5.txt"ForInputAs#1 DoWhileNotEOF (1) Input#1,str Text1.Text=Text1.Text+str Loop Close#1 EndSub PrivateSubC1_Click() OpenApp.Path+"\out5.txt"ForOutputAs#2 Print#2,Text1.Text Close#2 EndSub 1.4上机模拟试题4解答 1.基本操作 (1)略 (2)程序代码如下: PrivateSubCommand1_Click() Shape1.Shape=3 EndSub PrivateSubCommand2_Click() Shape1.BorderColor=&HFF& EndSub 2.简单操作 (1) 'SelectCase? 其中? 改为: Index 'Timer1.Enabled=? 其中? 改为: True 'IfPicture1.Left+Picture1.Width>=? Then其中? 改为: Form2.Width 'Picture1.Left=? 其中? 改为: 0 (2) 'If? =TrueThen其中? 改为: Option1.Value=True 'If? =TrueThen其中? 改为: Option3.Value=True 'Label2.Caption=? 其中? 改为: s 3.综合应用 程序代码如下: PrivateSubCommand1_Click() '====考生编写程序开始==== DimiAsInteger,jAsInteger,maxAsInteger max=a(1,1) Fori=1To4 Forj=1To4
- 配套讲稿:
如PPT文件的首页显示word图标,表示该PPT已包含配套word讲稿。双击word图标可打开word文档。
- 特殊限制:
部分文档作品中含有的国旗、国徽等图片,仅作为作品整体效果示例展示,禁止商用。设计者仅对作品中独创性部分享有著作权。
- 关 键 词:
- 上机 模拟考试 习题集 0150 解答