上机模拟考试习题集(01-50)解答.pdf

《上机模拟考试习题集(01-50)解答.pdf》由会员分享，可在线阅读，更多相关《上机模拟考试习题集(01-50)解答.pdf（47页珍藏版）》请在taowenge.com淘文阁网|工程机械CAD图纸|机械工程制图|CAD装配图下载|SolidWorks_CaTia_CAD_UG_PROE_设计图分享下载上搜索。

1、1.1上 机 模 拟 试 题 1解 答 1.基 本 操 作(1)略(2)程 序 代 码 如 下：Private Sub Commandl_Click()Imagel.Picture=LoadPicture(App.Path&图 片.jpg)End SubPrivate Sub Command2_Click()Imagel.Picture=LoadPicture()End Sub2.简 单 操 作(1)程 序 代 码 如 下：Private Sub Command2_Click()Dim i As Integer,max As Integer,N As IntegerFor i=1 To 100

2、If a(i)=(Int(Sqr(a(i)-2 ThenIf a(i)max Thenmax=a(i)End IfN=N+1End IfNext iTextl.Text=CStr(max)Text2.Text=CStr(N)End Sub(2)?a0001 其 中？改 为：Listl.AdditemFor i=0 To?其 中？改 为：Listl.ListCount-1 Listl.Listindex=?其 中？改 为：i?Textl.Text 其 中？改 为：Listl.Addltem?其 中?改 为：End3.综 合 应 用 a(i)=Fix(Rnd*?+1)其 中？改 为：100For

3、j=1 To?其 中？改 为：i-1i=?其 中？改 为：i-1 If a(i)=?Then 其 中？改 为：num If?10 Then 其 中？改 为：i1.2 上 机 模 拟 试 题 2 解 答 1.基 本 操 作(1)略(2)程 序 代 码 如 下：Private Sub HS1 Change()Textl.Width=HS1.ValueEnd Sub2.简 单 操 作(1)While(k List2.?)其 中？改 为：ListCounl If?.Selected(k)=True Then 中？改 为：List2List2.Removeitem?其 中？改 为：kLi st 1.Re

4、move Item Listl.?其 中？改 为：Lisll.Listindex(2)程 序 代 码 如 下:Private Sub Cl_Click()For i=0 To 2If Opl(i).Value=True Thenn=Left(Opl(i).Caption,2)t 二 1For j=1 To nt=t*jNext jEnd IfNext iTextl=tEnd Sub3.综 合 应 用 CD1.Filterindex=?其 中？改 为：2 Textl.Text=?其 中？改 为：a CD1.Action=?其 中？改 为：2程 序 代 码 如 卜.：P rivate Sub C2

5、_Click()Textl.Text=UCase(Text 1.Text)End Sub1.3上 机 模 拟 试 题 3解 答 1.基 本 操 作(1)略(2)程 序 代 码 如 下：Private Sub Cl_Click()Text2.Text=Textl.TextEnd Sub2.简 单 操 作(1)SI=?其 中？改 为：Textl.Text Do While Mid(Sl,II,1)?And II=Len(Sl)其 中？改 为:Listl.Additem?其 中？改 为：S2 S2=?其 中？改 为：”(2)程 序 代 码 如 下：For i=?To Cbl.ListCount-1

6、其 中？改 为：0 If Cbl.List(i)=Cbl.?Then 其 中？改 为：Text Cbl.?Cbl.Text 其 中？改 为：Additem13.综 合 应 用 程 序 代 码 如 下：Private Sub Form_Load()Dim str As StringOpen App.Path+in5.Ixt“For Input As#1Do While Not EOF(l)Input#1,strTextl.Text=Textl.Text+strLoopClose#1End SubPrivate Sub Cl_Click()Open App.Path+oul5.txl For Ou

7、tput As#2Print#2,Textl.TextClose#2End Sub】4 上 机 模 拟 试 题 4 解 答 1.基 本 操 作(1)略(2)程 序 代 码 如 下：Private Sub Commandl_Click()Shape1.Shape=3End SubPrivate Sub Command2_Click()Shape1.BorderColor=&HFF&End Sub2.简 单 操 作(1)Select Case?其 中？改 为：Index Timerl.Enabled=?其 中？改 为：True If Picturel.Left+Picturel.Width=?Th

8、en 其 中？改 为：Form2.Width Picturel.Left=?其 中？改 为：0(2)If?=True Then 其 中？改 为：Optionl.Value=True If?=True Then 其 中？改 为：Option3.Value=True Label2.Caption=?其 中？改 为：s3.综 合 应 用 程 序 代 码 如 下：Private Sub Commandl_Click()二=二 考 生 编 写 程 庠 开 始=Dim i As Integer,j As Integer,max As Integermax=a(l,1)For i=1 To 4For j=1

9、 To 42If max a(i,j)Then max=a(i,j)Next jNext iLabel3.Caption=max二 二 二 二 考 生 编 写 程 序 结 束 二 二 二 二 不 得 修 改 以 卜 部 分 save Labe13End SubPrivate Sub Command2_C1ick()二 二 二 二 考 生 编 写 程 序 开 始 二 二 二 二 Dim i As Integer,j As Integer,sum As Integersum 二 0For i=1 To 4For j=1 To 4If i=j Then sum=sum+a(i,j)Next jNex

10、t iLabel4.Caption=sum考 生 编 写 程 序 结 束 二 二 二 二 不 得 修 改 以 下 部 分 save Labe14End SubL 5 上 机 模 拟 试 题 5解 答 1.基 本 操 作(1)略(2)程 序 代 码 如 下：Private Sub Commandl_Click()Timerl.Enabled=TrueEnd SubPrivate Sub Command2_Click()Timerl.Enabled=FalseEnd SubPrivate Sub Command3_Click()Call sublEnd SubPrivate Sub Timerl_

11、Timer0Textl.Text=Textl.Text+1End Sub2.简 单 操 作(1)For i=1 To?其 中？改 为：5 For j=1 To?其 中?改 为：2*i-13 For j=1 To?其 中？改 为：i+1 For j=1 To?其 中？改 为：9-2*i(2)?=False 其 中？改 为：Timer 1.Enabled Shape2.Top=？+d*50 其 中？改 为：Shape2.TopIf Shape2.Top=Shape1.Top+Shape 1.Height Then 其 中？改 为：TopShape2.Left=？+d*50 其 中？改 为：Shap

12、e2.Left3.综 合 应 用 n=n+?其 中？改 为：1 Listl.Additem?其 中？改 为：ch$程 序 代 码 如 下：Private Sub Command2_Click()需 要 考 生 编 写 的 内 容 Dim x As Single,p As Singlex=Vai(Textl.Text)If x 500 ThenP 二 1Elself x 1000 Thenp=0.98Elself x 1500 Thenp=0.95Elself x 2000 Thenp=0.92Elsep=0.9End IfText2.Text=CStr(Int(x*0.3*p)End SubP

13、rivate Sub Listl_Click()需 要 考 生 编 写 而 内 容 Dim i As IntegerFor i=0 To Listl.ListCount-1If Listl.Selected(i)=True ThenTextl.Text=CStr(a(i+1)End IfNext iEnd SubL 6 上 机 模 拟 试 题 6 解 答 1.基 本 操 作(1)程 序 代 码 如 下：Private Sub Command1_Click()Command1.Width=Command1.Width+100End Sub(2)程 序 代 码 如 下：Private Sub Ll

14、_Click()4Shape1.Shape=Vai(LI.List(Ll.Listindex)End Sub2.简 单 操 作(1)Call?其 中？改 为：calc(i)Label2.Caption=?其 中？改 为：Optionl(i).Captionx 二？其 中？改 为：Textl If i Mod 2?Then 其 中？改 为：0Label3.Caption=?其 中？改 为：result(2)Timer 1.Enabled=?其 中？改 为：FalseTimer 1.Interval=?其 中？改 为：500 If Picturel.Left?Then 其 中？改 为：Forml.

15、Width Picturel.Left=?其 中？改 为：03.综 合 应 用 程 序 代 码 如 下：Private Sub Command1_Click()，=二 考 生 编 写 程 序 开 始 二 二 二 二 二 二 Dim i As Integer,N1 As Integer,N2 As Integer,avg As Single,sum As SingleFor i=1 To nIf arr(i)=60 ThenN1=N1+1ElseN2=N2+1End Ifsum=sum+arr(i)Next iavg=sumTextl.Text=CStr(n)Text2.Text=CStr(CI

16、nt(avg/n)Text3.Text=CStr(Nl)Text4,Text=CStr(N2)=考 生 编 写 程 序 结 束 二=End Sub1.7上 机 模 拟 试 题 7解 答 1.基 本 操 作(1)程 序 代 码 如 下：Private Sub Tl_Change()T2.Text=Tl.TextEnd Sub(2)程 序 代 码 如 下：Private Sub Cl_Click()Textl.Left=0End Sub2.简 单 操 作(1)5 LI.?Textl.Text 其 中？改 为：AdditemLI.Remove I tern?其 中？改 为：LL Lisllndex(

17、2)程 序 代 码 如 下：Private Sub Cl_Click()If Opl=True Then Textl=”需 要 1 小 时 If 0p2=True Then Textl=需 要 10 小 时 If 0p3=True Then Textl=需 要 15 小 时 End Sub3.综 合 应 用 程 序 代 码 如 下：Private Sub Command2_C1ick()考 生 应 完 成 的 程 序 Dim i As Integer,sum As Integer,avg As Single,teml As Integer,tem2 As Integer,tem3As Inte

18、gerDim str As String,n As IntegerFor i=1 To 100str=CStr(a(i)teml=Vai(Mid(str,1,1)tem2=Vai(Mid(str,2,1)tem3=Vai(Mid(str,3,1)If teml 3+tem2-3+tem3 3=a(i)Thensum=sum+a(i)n=n+1End IfNext iavg=Int(sum/n)Textl.Text=CStr(avg)End SubL 8 上 机 模 拟 试 题 8 解 答 1.基 本 操 作(1)略(2)程 序 代 码 如 下：Private Sub HScrol1l_Chan

19、ge()Textl.Text=HScrolll.ValueEnd SubPrivate Sub HScrol1l_Scrol1()Textl.Text=HScrolll.ValueEnd Sub2.简 单 操 作(1)Timerl.Enabled=?其 中？改 为：True If Shape 1.Top=Line2.Y1 Then 其 中？改 为：Shape 1.Height(2)程 序 代 码 如 下：Private Sub Command2_Click()考 生 编 写 Dim i As Integer,javg As Single,oavg As Single,avg As Single

20、6Dim nl As Integer,n2 As IntegerFor i=1 To 100If a(i)Mod 2=0 Thenoavg=oavg+a(i)nl=nl+1Elsejavg=javg+a(i)n2=n2+1End Ifavg=avg+a(i)Next ioavg=CInt(oavg/nl)javg=CInt(oavg/n2)avg=CInt(avg/100)If Combo 1.Text=所 有 偶 数 ThenTextl.Text=CStr(oavg)Elself Combo 1.Text=”所 有 奇 数 ThenTextl.Text=CStr(javg)ElseTextl

21、.Text=CStr(avg)End IfEnd Sub3.综 合 应 用 Dim?其 中？改 为：mat(M,N)Open App.Path&dalain.txt?As#1 其 中？改 为：For Input?其 中？改 为：Inpul#1,mat(i,j)?其 中？改 为：mat(i,4)二 t1.9上 机 模 拟 试 题 9解 答 1.基 本 操 作(1)略(2)程 序 代 码 如 下：Private Sub Command1_Click()Image1.Picture=LoadPicture(App.Path+Misc34.ico)End SubPrivate Sub Command2

22、_Click()Image1.Picture=LoadPicture(App.Path+Misc37.ico)End SubPrivate Sub Command3_Click()Imagel.Picture=LoadPicture)End Sub2.简 单 操 作(1)For k=1 To?其 中？改 为：5 If?Vai(Textl(k).Text)Then 其 中？改 为：a s=(s-a-b)/?其 中？改 为：4 s=？*3*Vai(Text2.Text)其 中？改 为：s?二 Int(s*100)/100 其 中？改 为：Text3(2)程 序 代 码 如 下：需 考 生 编 写

23、的 程 序 Private Sub Command1_Click()7Dim i As Integer,j As Integer,sum As Long,mul As Longsum=0:mul=1If Optionl.Value=True ThenFor i=1 To nmul=mul*iNext iTextl.Text=CStr(mul)ElseFor j=1 To nsum=sum+jNext jTextl.Text=CStr(sum)End IfEnd Sub3.综 合 应 用 Text4=Text4&a&?其 中？改 为：b a 二？其 中？改 为：b If k=?Then 其 中？

24、改 为：n?二 d 其 中？改 为：b1.10上 机 模 拟 试 题 10解 答 1.基 本 操 作(1)略(2)程 序 代 码 如 下：Private Sub Form_Click()Label1.Top=0Label1.Left=Forml.Width-Label1.WidthEnd Sub2.简 单 操 作(1)arrN(i)=Int(Rnd*?)其 中？改 为：1001?=arrN(l)其 中？改 为：Min If?Then 其 中？改 为：arrN(i)Min(2)程 序 代 码 如 下：Function Fun()Dim i As Integer,j As IntegerFor i

25、=0 To 1000If i Mod 7 0 0 Then j=j+1Next iFun=jEnd Function3.综 合 应 用 程 序 代 码 如 下：Private Sub Cl_Click()Call ReadDatalCall ReadData2End Sub8Private Sub C2_Click()Dim Arr3(20)As Integer,i As Integer,sum As IntegerFor i=1 To 20Arr3(i)=Arrl(i)-Arr2(i)sum=sum+Arr3(i)Next iPrint sumCall WriteData(dataout.t

26、xt，sum)End SubL 11上 机 模 拟 试 题 11解 答 1.基 本 操 作(1)程 序 代 码 如 下：Private Sub Commandl_Click()Textl.Text=InputBox(”请 输 入 身 高:)Text2.Text=InputBox(请 输 入 体 重：)End Sub(2)程 序 代 码 如 下：Private Sub Commandl_Click()VScrolll.Min=100VScrolll.Max=2400VScrolll.LargeChange=200VScrolll.SmallChange=20End SubPrivate Sub

27、VScrol1l_Change()Picturel.Height=VScrolll.ValueEnd Sub2.简 单 操 作(1)Listl.Additem?其 中？改 为：Textl.Text For i=0 To?其 中？改 为：Listl.ListCount-1 If Listl.List(i)=?Then 其 中？改 为：Textl.Text Listl.Removeltem?其 中？改 为：i(2)Start=?(a)其 中？改 为：LBound Finish=?(a)其 中？改 为：UBound Max=?(Start)其 中？改 为：a If a(i)?Max Then Max

28、=?其 中？改 为：、a(i)arr2(i)=CInt(?)其 中?改 为:arrl(i)M=FindMax(?)其 中？改 为：arr23.综 合 应 用 程 序 代 码 如 下：Option Base 1Dim Arr(100)As Integer,sum As IntegerSub ReadDataOOpen App.Path&datainl.txt For Input As#19For i=1 To 100Input#1,Arr(i)Next iClose#1End SubSub WriteData(Filename As String,Num As Integer)Open App.

29、Path&,&Filename For Output As#1Print#1,NumClose#1End SubPrivate Sub Calc_Click()Dim i As IntegerFor i=1 To 100If i Mod 2 0 0 ThenTextl.Text 二 Textl.Text&Arr(i)&”sum=sum+Arr(i)End IfNext iPrint sumEnd SubPrivate Sub Read_Click()Call ReadDataEnd SubPrivate Sub Save_Click()Call WriteData(，zdataout.txt,

30、sum)End Sub1.12上 机 模 拟 试 题 12解 答 1.基 本 操 作(1)略(2)程 序 代 码 如 下：Private Sub Command1_Click()Textl.FontBold=TrueEnd SubPrivate Sub Command2_Click()Textl.Fontltalic=TrueEnd Sub2.简 单 操 作(1)Select Case?其 中？改 为：IndexTextl.Text=?.Text+1 其 中？改 为：Textl(2)If num=?Then Exit For 其 中？改 为：num If?Then 其 中？改 为：i n10

31、For j=i To?其 中？改 为：n a(j)=?其 中？改 为：a(j+1)For k=1 To?其 中？改 为：n3.综 合 应 用 si 二？其 中？改 为：Texll.SelLengtha(n)二?其 中？改 为：a(n)+1 For j=?To 26 其 中？改 为：2 If?Then 其 中？改 为：a(j)max_n If?Then 其 中？改 为：a(i)=max_n1.13上 机 模 拟 试 题 13解 答 1.基 本 操 作(1)程 序 代 码 如 下：Private Sub Cl_Click()Forml.BackColor=&HFF&End Sub(2)程 序 代

32、码 如 下：Private Sub Form_Load()Listl.Additem 1Listl.Additem 2Listl.Additem 3Listl.Additem 4Listl.Additem 5End SubPrivate Sub Listl_Click()Shapel.FillStyle=Listl.TextEnd Sub2.简 单 操 作(1)If?=True Then 其 中？改 为：Optionl(i).Value y=val(Optionl(i).?)其 中？改 为：Caption Do While i=?其 中？改 为：5 Listl.Additem?其 中？改 为：

33、x(2)Timerl.Interval=?其 中？改 为：500 VScrolll.?=Picturel.Top 其 中？改 为：Value Picturel.Top=?其 中？改 为：03.综 合 应 用 程 序 代 码 如 下：Private Sub Commandl_Click()，=以 下 考 生 编 写 程 序 开 始=Dim i As Integer,nl As Integer,n2 As Integer,n3 As Integer,n4 As Integer,n5 AsIntegerFor i=1 To nIf arr(i)=59 Thennl=nl+1Elself arr(i)

34、=69 Then11n2=n2+1Elself arr(i)=79 Thenn3=n3+1Elself arr(i)=89 Thenn4=n4+1Elsen5=n5+1End IfNext iTextl.Text=CStr(n)Text2.Text=CStr(nl)Text3.Text=CStr(n2)Text4.Text=CStr(n3)Text5.Text=CStr(n4)Text6.Text=CStr(n5)二 二=二 考 生 编 写 程 序 结 束=End Sub】14上 机 模 拟 试 题 14解 答 1.基 本 操 作(1)略(2)程 序 代 码 如 下：Private Sub C

35、l_Click()HS1.Value=HS1.Value+10End Sub2.简 单 操 作(1)程 序 代 码 如 下：Private Sub Ml_Click()Textl.FontBold=TrueEnd SubPrivate Sub M2_Click()Textl.Fontltalic=TrueEnd SubPrivate Sub M3_Click()Textl.FontUnderline=TrueEnd SubPrivate Sub Textl_MouseDown(Button As Integer,Shift As Integer,X As Single,Y AsSingle)I

36、f Button=2 ThenPopupMenu FormatEnd IfEnd Sub(2)Form2.?其 中？改 为：ShowForm2.Print Forml.Frame 1.?;其 中？改 为：Caption12 If Forml.OpK?).Value Then 其 中？改 为：k Text2.?=*其 中？改 为：PasswordChar3.综 合 应 用 程 序 代 码 如 下：If?=123456”Then 其 中？改 为：Text 1.Text T extl.?=其 中？改 为：PasswordChar If Text2.Text?Then 其 中？改 为：0 Textl.

37、Enabled=?其 中？改 为：False1.1 5上 机 模 拟 试 题 15解 答 1.基 本 操 作(1)略(2)程 序 代 码 如 下：P rivate Sub Form C lick()L istl.Removeitem L istl.ListCount-1End SubPrivate Sub Form_Load()L istl.L ist(L istl.ListCount-1)=英 语 End Sub2.简 单 操 作(1)程 序 代 码 如 下：Private Sub Optionl_Click()Textl.Alignment=0End SubPrivate Sub 0pti

38、on2_Click()Textl.Alignment=2End SubPrivate Sub 0ption3_Click()Textl.Alignment=1End SubPrivate Sub 0ption4_Click()Textl.FontName=宋 体 End SubPrivate Sub 0ption5_Click()Textl.FontName=黑 体 End Sub(2)?其 中？改 为：Timerl.Enabled:False For k=0 To 359 Step?其 中？改 为：30 x=radius*Cos(k*3.14159/180)+?其 中？改 为：X 0L in

39、el.?=yO-lenl*Sin(a*3.14159/180)其 中？改 为：Y 2 b=?-30/12 其 中？改 为：b3.综 合 应 用 s=?其 中？改 为：0 For k=2 To?其 中？改 为：7getmark=s*3*?其 中？改 为：a(n,8)程 序 代 码 如 下：13Private Sub Command2_C1ick()要 求 考 生 编 写 的 程 序 Dim i As Integer,max As Single,str As Stringmax=getmark(l)str=athlete(l)For i=2 To 5If max getmark(i)Thenmax

40、=getmark(i)str=athlete(i)End IfNext iText2.Text=strText3.Text=CStr(max)End SubL 16上 机 模 拟 试 题 16解 答 1.基 本 操 作(1)程 序 代 码 如 下：Private Sub Dis_Click()Textl=等 级 考 试 End SubPrivate Sub Clea_Click()Textl=End Sub(2)程 序 代 码 如 下：Private Sub Ll_DblClick()LI.Additem TextlEnd Sub2.简 单 操 作(1)程 序 代 码 如 下：Private

41、Sub Form_Click()If Opl.Value=True ThenIf 0p3.Value ThenLabi.Caption=坐 飞 机 去 广 州“Elself 0p4.Value ThenLabi.Caption=坐 飞 机 去 昆 明 End IfElseIf 0p3.Value ThenLabi.Caption=坐 火 车 去 广 州”Elself 0p4.Value ThenLabi.Caption=坐 火 车 去 昆 明“End IfEnd IfEnd Sub(2)程 序 代 码 如 下：Private Sub Cl_Click()14If Opl.Value Thent

42、=Textl.TextTextl.Text=Text2.TextText2.Text=tLabi.Caption=交 换 成 功”ElseLabi.Caption=Textl.Text+Text2.TextEnd IfEnd Sub3.综 合 应 用 程 序 代 码 如 卜.：Dim sum as IntegerPrivate Sub Cl_Click()Call ReadDatalCall ReadData2End SubPrivate Sub C2_Click()Dim i As Integer,Arr3(20)As IntegerFor i=1 To 20Arr3(i)=Int(Arrl

43、(i)/10)*Int(Arr2(i)/10)sum=sum+Arr3(i)Next iPrint sumEnd SubPrivate Sub C3_Click()Call WriteDataCdataout.txt,sum)End Sub1.17上 机 模 拟 试 题 17解 答 1.基 本 操 作(1)略(2)程 序 代 码 如 下：Private Sub Command1_Click()Labe11=DateEnd SubPrivate Sub Command2_Click()Labe11=TimeEnd Sub2.简 单 操 作(1)程 序 代 码 如 下：Private Sub Co

44、mmand2_Click()考 生 编 写 Dim i As Integer,avg As Single,N As IntegerFor i=1 To 100If a(i)=(Int(Sqr(a(i)-2 Thenavg=avg+a(i)N=N+115End IfNext iavg=Int(avg/N)Textl.Text=CStr(avg)End Sub(2)If Command 1.Caption=?Then 其 中？改 为：演 示”?二 True 其 中？改 为：Timerl.Enabled?二 False 其 中？改 为：Timerl.Enabled If?Forml.Width Th

45、en 其 中？改 为：Label L Left Label 1.Left=？+100 其 中？改 为：Labell.Left3.综 合 应 用 a(i)=Fix(Rnd*?+1)其 中？改 为：9For j=1 To?其 中？改 为：i-1If b(i)?Then fmax 二 b(i)其 中？改 为：fmax If b(i)=?Then 其 中？改 为：fmax?其 中？改 为：End1.18上 机 模 拟 试 题 18解 答 1.基 本 操 作(1)略(2)程 序 代 码 如 下：Private Sub Commandl_Click()Text2=Textl.SelLengthEnd Su

46、b2.简 单 操 作(1)st=?&ch 其 中？改 为：st?=Mid(st,k,1)其 中？改 为：c?=其 中？改 为：word(2)C D L?=”所 有 文 件 I*.*|文 本 文 件|*.txt I Word文 档|*.doc”其 中?改 为:Filter CD1.?其 中？改 为：ShowOpen Open?For Input As#1 其 中？改 为：CDl.FileName?其 中？改 为：Close#13.综 合 应 用 程 序 代 码 如 下：Private Sub Commandl_Click()考 生 编 写 程 序 开 始 Dim i As Integer,j A

47、s Integer,a As Integer,b As Integer,max As IntegerDim n As Integern=Vai(Textl.Text)For i=2 To nFor j=2 To nIf IsPrime(i)And IsPrime(j)ThenIf i+j=n Then16If max Abs(i-j)Thenmax=Abs(i-j)a=ib=jEnd IfEnd IfEnd IfNext jNext iLabel1.Caption 二 aLabel2.Caption 二 b考 生 编 写 程 序 结 束 Open App.Path&oul5.dat For O

48、utput As#1Print#1,Textl.Text,Label 1.Caption,Label2.CaptionClose#1End Subl.19上 机 模 拟 试 题 19解 答 1.基 本 操 作(1)略(2)程 序 代 码 如 下：Private Sub Command1_Click()Textl.PasswordChar=End SubPrivate Sub Command2_Click()Textl.PasswordChar=*End SubPrivate Sub Command3_Click()Textl.Text=Textl.SetFocusEnd Sub2.简 单 操

49、作(1)?二 InpulBox(请 输 入 一 个 整 数”)其 中？改 为：n If m Mod k 二？Then 其 中？改 为：0?其 中？改 为：fun二 s(2)For k=Listl.ListCount-1 To 0?其 中？改 为：Step-1 List2.Additem?其 中？改 为：Listl.List(k)Listl.Removeitem?其 中？改 为：k Textl=?&List2.List(k)其 中？改 为：Texll3.综 合 应 用 stepx=?其 中？改 为：Sgn(x-xO)*50?二 a*stepx 其 中？改 为：stepy?二 True 其 中？改

50、 为：Timerl.Enabled?二 False 其 中？改 为：Timerl.EnabledShape 1.Move Shape 1.Left+stepx,Shape 1.Top+?其 中？改 为：stepy171.20上 机 模 拟 试 题 20解 答 1.基 本 操 作(1)程 序 代 码 如 下：Private Sub Clea_Click()Pl.CisEnd SubPrivate Sub Dis_Click()Pl.Print 蜃 级 考 试 End Sub(2)程 序 代 码 如 下：Private Sub Ll_DblClick()LI.Additem LI.TextEnd