90套操作题答案

1、u第1套 上机操作题一、基本操作题（1）【微步骤】步骤1：新建一个窗体，在窗体中添加一个标签，名称设置为L1，将标签的Caption属性设置为请输入密码。然后再添加一个文本框，设置其名称为Text1,然后设置其Height属性为300，设置其Width属性为2000，设置其PasswordChar属性为*。最后将Form1的Caption属性设置为密码窗口。步骤2：调试并运行程序。步骤3：设置工程文件名为sjt1.vbp,设置窗体文件名为sjt1.frm，最后保存工程。（2）【微步骤】步骤1：新建一个窗体，然后在窗体上添加一个图片框。图片框的的属性见下表。控件图片框属性Name设置值P1步骤2

2、：编写程序代码。【微答案】Private Sub Form_Click() Form1.Print 单击窗体End SubPrivate Sub P1_Click() P1.Print 单击图片框End Sub步骤3：调试并运行程序，然后设置工程文件名为sjt2.vbp,设置窗体文件名为sjt2.frm，最后保存工程。二、简单应用题（1）【微步骤】步骤1：按题目要求打开工程文件，设置计时器属性,将Enabled属性设置为False，并将Interval属性设置为100。步骤2：分析并编写程序代码。程序提供代码Private Sub C1_Click()Timer1.Enabled = ?End

3、 SubPrivate Sub Timer1_Timer()Static a%a = a =+1If P1.Top P2.Top P2.? ThenP1.Move P1.Left, P1.Top - 5 - a, P1.Width, P1.HeightElseTimer1.Enabled = ?End IfEnd Sub程序结束【微答案】第1个？处填入：True第2个？处填入：Height第3个？处填入：False步骤3：调试并运行程序，关闭程序后按题目要求存盘。（2）【微步骤】步骤1：打开本题工程文件。步骤2：分析并编写程序代码。程序提供代码Private Function xn(a As

4、Single, m As Integer)Dim i As Integertmp = 1For i = 1 To mtmp = ?Nextxn = ?End FunctionPrivate Sub Command1_Click()Dim n As IntegerDim i As IntegerDim t As SingleDim s, x As Singlen = Val(Text1.Text)x = Val(Text2.Text)z = 0For i = 2 To nt = x + iz = z +？Next Label1.Caption = ?Call SaveResultEnd SubP

5、rivate Sub SaveResult()Open App.Path & out4.dat For Output As #1Print #1, Label1.CaptionClose #1End Sub程序结束【微答案】第1个？处填入：tmp*a第2个？处填入：tmp第3个？处填入：xn(t, i)第4个？处填入：z步骤3：按照题目要求调试并运行程序。步骤4：关闭程序后，按照题目要求保存工程和窗体文件。三、综合应用题【微步骤】步骤1：打开本题工程文件。步骤2：分析并编写程序代码。程序提供代码Private arr(100) As IntegerPublic Function prime(x

6、 As Integer)k = Int(Sqr(x) + 5)For i 2 To kIf x Mod i = 0 Thenprime = FalseExit FunctionEnd IfNextprime = TrueEnd FunctionPrivate Sub Command1_Click()Open App.Path & in5.txt For Input As #1For i = 1 To 40Input #1, arr(i)NextClose #1End SubPrivate Sub Command2_Click()考生编写程序开始考生编写程序结束Open App.Path & o

7、ut5.txt For Output As #1Print #1, Label3.Caption, Label4.CaptionClose #1End Sub程序结束【微答案】 Dim a As Integer Dim b As Integer a = 0 b = arr(1) For i = 1 To 40 If prime(arr(i) Then a = a + 1 Label3.Caption = a Next For i = 1 To 40 If prime(arr(i) And arr(i) = b Then b = arr(i) Label4.Caption = b Next步骤3

8、：按照题目要求调试并运行程序。步骤4：关闭程序后，按题目要求存盘。第2套 上机操作题一、基本操作题（1）【微步骤】步骤1：新建一个窗体，在窗体中添加一个形状控件，一个标签控件和一个文本框控件。然后在属性窗口设置这些控件的属性见下表。步骤2：调试并运行程序，关闭程序后按题目要求存盘。（2）【微步骤】步骤1：新建一个窗体，在窗体中添加一个标签控件并设置其属性，属性见下表。步骤2：编写程序代码。【微答案】Private Sub Form_Click() Label1.Visible = TrueEnd SubPrivate Sub Form_Load() Form1.Caption = 标签End

9、Sub步骤3：调试并运行程序，关闭程序后按题目要求存盘。二、简单应用题（1）【微步骤】步骤1：打开本题工程文件。步骤2：分析并编写程序代码。程序提供代码Private Sub Command1_Click()Call ShowName(?)End SubPrivate Sub Label1_Click()Call ShowName(?)End SubPrivate Sub ShowName(c As ?)If TypeOf c Is CommandButton ThenLabel2.Caption = 单击 & Command1.CaptionEnd IfIf TypeOf c Is Labe

10、l Then? = 单击 & Label1.CaptionEnd IfEnd Sub程序结束【微答案】第1个？处填入：Command1第2个？处填入：Label1第3个？处填入：Control第4个？处填入：Label2.Caption步骤3：调试并运行程序，关闭程序后按题目要求存盘。（2）【微步骤】步骤1：打开本题工程文件，将Timer1的Interval属性设置为500。步骤2：分析并编写程序代码。程序提供代码Private Sub Form_Load()Picture1(0)Left = 0Picture1(0)Top = 100For k = 1 To 7Picture1(k)Visi

11、ble = ？NextEnd SubPrivate Sub Command1_Click()Timer1.Enabled = ？End SubPrivate Sub Command2_Click()Timer1.Enabled = FalseEnd SubPrivate Sub Timer1_Timer()Static i As IntegerPicture1(i)Visible = Falsei = i + 1If i = ? Theni =？End IfPicture1(i)Visible = TrueEnd Sub程序结束【微答案】第1个？处填入：False第2个？处填入：True第3个

12、？处填入：8第4个？处填入：0步骤3：调试并运行程序，关闭程序后按题目要求存盘。三、综合应用题【微步骤】步骤1：打开本题工程文件。步骤2：分析并编写程序代码。程序提供代码Dim a(5, 5) As IntegerDim b(5) As IntegerDim c(5) As IntegerPrivate Sub Command1_Click()N = 5For i = 1 To N考生编写程序开始考生编写程序结束Next iSaveEnd SubPrivate Sub Form_Load()readEnd SubPublic Sub read()Open App.Path & Data5.tx

13、t For Input As #1Do While Not EOF(1)For i = 1 To 5For j = 1 To 5Input #1, a(i, j)Next jNext iLoopClose #1End SubPublic Sub Save()Open App.Path & out5.txt For Output As #1For i = 1 To 5Print #1, b(i), c(i)Next iClose #1End Sub程序结束【微答案】 Max = a(i, 1) For j = 1 To 5 If Max a(i, j) Then Max = a(i, j) En

14、d If b(i) = Max If Max = a(i, j) Then c(i) = j Next j步骤3：调试并运行程序，关闭程序后按题目要求存盘。第3套 上机操作题一、基本操作题（1）【微步骤】步骤1：新建一个窗体，在窗体中添加一个标签，然后按照题目要求建立标签控件并设置其属性。程序中用到的控件及属性见下表。步骤2：调试并运行程序，关闭程序后按题目要求存盘。（2）【微步骤】步骤1：建立界面，在窗体中添加一个图像框，三个命令按钮并设置控件的属性。程序中涉及的控件及属性见下表。 控件图像框命令按钮1属性NameBorderStyleStretchNameCaption设置值Image11

15、TureCommand1红桃 控件命令按钮2命令按钮3属性NameCaptionNameCaption设置值Command2黑桃Command3清除 步骤2：编写程序代码。【微答案】Private Sub Command1_Click() Image1.Picture = LoadPicture(App.Path & MISC34.ico)End SubPrivate Sub Command2_Click() Image1.Picture = LoadPicture(App.Path & MISC37.ico)End SubPrivate Sub Command3_Click() Set Im

16、age1.Picture = NothingEnd Sub步骤3：调试并运行程序，关闭程序后按题目要求存盘。二、简单应用题（1）【微步骤】步骤1：打开本题工程文件。步骤2：分析并编写程序代码。程序提供代码Private Sub Command1_Click()Dim k As Integer, s As Single, a As Single, b As Singlea = Val(Text1(0)Text)s = ab = aFor k = 1 To ?s = s + Val(Text1(k)Text)If ? Val(Text1(k)Text) Thenb = Val(Text1(k)Te

17、xt)End IfNext ks = (s - a - b) / ?s = ? * 3 * Val(Text2.Text)？ = Int(s * 100) / 100End Sub程序结束【微答案】第1个？处填入：5第2个？处填入：a第3个？处填入：4第4个？处填入：s第5个？处填入：Text3步骤3：调试并运行程序，关闭程序后按题目要求存盘。（2）【微步骤】步骤1：打开本题工程文件步骤2：分析并编写程序代码。程序提供代码Dim n As Integer需考生编写的程序Private Sub Command1_Click()End SubPrivate Sub Command2_Click()

18、Open App.Path + out4.dat For Output As #1Print #1, n, Option1.Value, Option2.Value, Text1Close #1End SubPrivate Sub m10_Click()n = 10End SubPrivate Sub m2000_Click()n = 2000End SubPrivate Sub m12_Click()n = 12End SubPrivate Sub m1000_Click()n = 1000End SubPrivate Sub Option1_Click()n = 0m1000.Enable

19、d = Falsem2000.Enabled = Falsem10.Enabled = Truem12.Enabled = TrueEnd SubPrivate Sub Option2_Click()n = 0m10.Enabled = Falsem12.Enabled = Falsem1000.Enabled = Truem2000.Enabled = TrueEnd Sub程序结束【微答案】Private Sub Command1_Click() Dim i As Integer Dim j As Integer Dim m As Long Dim sum As Long m = 1 If

20、 n = 10 Or n = 12 Then For i = 2 To n m = i * m Next Text1.Text = m End If sum = 0 If n = 2000 Or n = 1000 Then For j = 1 To n sum = sum + j Next Text1.Text = sum End IfEnd Sub步骤3：调试并运行程序，关闭程序后按题目要求存盘。三、综合应用题【微步骤】步骤1：打开本题工程文件。步骤2：分析并编写程序代码。程序提供代码Private Sub Command1_Click()Text4 = a = Val(Text1)b =

21、Val(Text2)n = Val(Text3)Text4 = Text4 & a & & ?k = 2Do While k nc = a * bk = k + 1If c 10 ThenText4 = Text4 & & ca = ?b = cElsed = c 10Text4 = Text4 & & da = dk = k + 1If k = ? Thend = c Mod 10Text4 = Text4 & & d？ = dEnd IfEnd IfLoopEnd Sub程序结束【微答案】第1个？处填入：b第2个？处填入：b第3个？处填入：n第4个？处填入：b步骤3：调试并运行程序，关闭程

22、序后按题目要求存盘。第4套 上机操作题一、基本操作题（1）【操作步骤】步骤1：新建一个窗体，然后在窗体中添加两个文本框。步骤2：在属性窗口中设置各控件的属性，控件的属性见下表。步骤3：调试并运行程序，然后保存工程，设置工程文件名为sjt1.vbp,设置窗体文件名为sjt1.frm。（2）【操作步骤】步骤1：新建一个窗体，然后在窗体中添加一个图像框和两个命令按钮。步骤2：为窗体中的各控件设置属性，控件的属性见下表。 控件图像框 属性NameWidthHeightPictureStretch设置值Image117001900pic1.bmpTrue 控件命令按钮1命令按钮2 属性NameCapti

23、onNameCaption设置值C1放大C2缩小步骤3：编写程序代码。参考答案Private Sub C1_Click() Image1.Height = Image1.Height + 100 Image1.Width = Image1.Width + 100End SubPrivate Sub C2_Click() Image1.Height = Image1.Height - 100 Image1.Width = Image1.Width - 100End Sub步骤4：调试并运行程序，然后保存工程，设置工程文件名为sjt2.vbp,设置窗体文件名为sjt2.frm。 二、简单应用题（1

24、）【操作步骤】步骤1：打开本题工程文件。步骤2：分析并编写程序代码。程序提供代码Dim a(100) As IntegerPrivate Sub Command1_Click() Dim k As Integer Open App.Path & in3.dat For Input As #1 For k = 1 To 100Input #1, a(k) Next k Close #1End SubPrivate Sub Command2_Click()需考生编写End Sub以下Function 过程用于判断某数是否为水仙花数Function isnarc(p As Integer) x =

25、Fix(p / 100) y = Fix(p - x * 100) / 10) z = p - x * 100 - y * 10 If p = x 3 + y 3 + z 3 Thenisnarc = True Elseisnarc = False End IfEnd FunctionPrivate Sub Form Unload(Cancel As Integer) Open App.Path & out3.dat For Output As #1 Print #1, Val(Text1.Text) Print #1, Val(Text2.Text) Close #1End Sub程序结束参

26、考答案 Dim i As Integer Dim max As Integer, min As Integer max = -1 min = 1000 For i = 1 To 100 If isnarc(a(i) Then If max = a(i) Then min = a(i) End If Next i Text1 = max Text2 = min步骤3：按照题目要求调试并运行程序。步骤4：关闭程序后，按题目要求存盘。（2）【操作步骤】步骤1：打开本题工程文件，在窗体中添加一个文本框，一个组合框和一个命令按钮。步骤2：设置窗体中控件的属性，控件的属性见下表。步骤3：分析并编写程序代码

27、。程序提供代码窗体代码Private Sub Form_Unload(Cancel As Integer) unload subEnd Sub模块代码Sub unload sub() Open out4.dat For Output As #1 Print #1, Val(Form1.Cb1.Text), Val(Form1.Text1. Text) Close #1End Sub程序结束参考答案Private Sub C1_Click() Dim sum As Long Dim n As Integer Dim i As Integer n = Val(Cb1.Text) For i = n

28、 To 5000 If i Mod n = 0 Then sum = sum + i End If Next i Text1.Text = sumEnd Sub步骤4：调试并运行程序，关闭程序后按题目要求存盘三、综合应用题【操作步骤】步骤1：打开本题工程文件，将Text3的Visible属性设置为False，然后按照题目要求建立菜单并设置其属性。菜单属性见下表。 控件编辑剪切复制粘贴名称EditCutCopyPaste内缩符号0111步骤2：分析并编写程序代码。程序提供代码Dim which As IntegerPrivate Sub copy_Click() If which = 1 The

29、nText3.Text = Text1.Text ElseIf which = 2 ThenText3.Text = Text2.Text End IfEnd SubPrivate Sub cut_Click() If which = 1 ThenText3.Text = Text1.TextText1.Text = ElseIf which = 2 ThenText3.Text = Text2.TextText2.Text = End IfEnd SubPrivate Sub edit_Click() If which = ? Then If Text1.Text = Thencut.Ena

30、bled = FalseCopy.Enabled = False Elsecut.Enabled = TrueCopy.Enabled = True End If ElseIf which = ? Then If Text2.Text = Thencut.Enabled = FalseCopy.Enabled = False Elsecut.Enabled = TrueCopy.Enabled = True End If End If If Text3.Text = Then Paste.Enabled = False Else Paste.Enabled = True End IfEnd S

31、ubPrivate Sub paste_Click() If which = 1 Then Text1.Text = ? ElseIf which = 2 Then Text2.Text = ? End IfEnd SubPrivate Sub Text1_GotFocus() 本过程的作用是：当焦点在Text1中时，which = 1 which = 1End SubPrivate Sub Text2_GotFocus() 本过程的作用是：当焦点在Text2中时，which = 2 which = 2End Sub程序结束参考答案第1个？处填入：1第2个？处填入：2第3个？处填入：Text1

32、.Text+ Text3.Text第4个？处填入：Text2.Text+ Text3.Text步骤3：调试并运行程序，关闭程序后按题目要求存盘。 第5套 上机操作题一、基本操作题（1）【微步骤】步骤1：新建一个窗体，在窗体中添加一个形状控件，按照题目要求设置其属性。程序中用到的控件及属性见下表。步骤2：调试并运行程序，关闭程序后按题目要求存盘。（2）【微步骤】步骤1：建立界面，并设置控件的属性。程序中用到的控件及属性见下表。步骤2：编写程序代码。【微答案】Private Sub Command1_Click() Label1.Font = 宋体End SubPrivate Sub Comman

33、d2_Click() Label1.Font = 黑体End Sub步骤3：调试并运行程序，关闭程序后按题目要求存盘。 二、简单应用题（1）【微步骤】步骤1：打开本题工程文件，设置Cmd2的Enabled属性为False。步骤2：分析并编写程序代码。程序提供代码Private Sub Cmd1_Click()? = Str(Time()Text1(1)Text = ： Text1(2)Text = Cmd1.Enabled = FalseCmd2.Enabled = TrueEnd SubPrivate Sub Cmd2_Click()Text1(1)Text = Str(Time()t st

34、art = Hour(Text1(0)Text) * 3600+Minute(Text1(0)Text) * 60+Second(Text1(0)Text) t end = Hour(Text1(1)Text) * 3600+Minute(Text1(1)Text) * 60+Second(Text1(1)Text) t = t end - t start m = t 60 If m 0 Then s = ? + (m - 3) * 0.15 End If Text1(2)Text = Str(s) + 元 ？= True ？= FalseEnd Sub程序结束【微答案】第1个？处填入：Tex

35、t1(0)第2个？处填入：s第3个？处填入：Cmd1.Enabled第4个？处填入：Cmd2.Enabled步骤3：调试并运行程序，关闭程序后按题目要求存盘。（2）【微步骤】步骤1：打开本题工程文件。步骤2：分析并编写程序代码。程序提供代码Dim a(5, 10) As IntegerDim s(5)Private Sub Command1_Click()Open App.Path & in4.txt For ? As #1For i = 1 To 5For j = 1 To 10Input #1, a(i, j)Next jNext iClose #1End SubPrivate Sub C

36、ommand2_Click()For i = 1 To 5s(i) = 0For j = 1 To 10s(i) = ?Next j？ = CInt(s(i) / 10)Text1(i - 1) = s(i)Next iEnd SubPrivate Sub Command3_Click()For k = 1 To 5Shape1(k - 1)Height = s(k) * 20m = Line2.Y1Shape1(k - 1)Top = ? - Shape1(k - 1)HeightShape1(k - 1)? = TrueNext kEnd Sub程序结束【微答案】第1个？处填入：Input

37、第2个？处填入：s(i) + a(i, j)第3个？处填入：s(i)第4个？处填入：Line2.Y2第5个？处填入：Visible步骤3：调试并运行程序，关闭程序后按题目要求存盘。三、综合应用题【微步骤】步骤1：打开本题工程文件，添加两个名称分别是Label1和Label2，标题分别为最长单词的长度和以该长度最后一次出现的单词是的标签；再添加两个名称分别为Text1和Text2，初始值都为空的文本框。步骤2：分析并编写程序代码。程序提供代码Option Base 1Dim s As StringPrivate Sub Command1_Click()Open App.Path & in5.da

38、t For Input As #1s = Input(LOF(1), #1)Close #1End SubPrivate Sub Command2_Click()需考生编写End SubPrivate Sub Form_Unload(Cancel As Integer)Open App.Path & out5.dat For Output As #1Print #1, Text1.Text, Text2.TextClose #1End Sub程序结束【微答案】Private Sub Command2_Click() For i = 1 To Len(s) J = Asc(Mid(s, i, 1

39、) Select Case J Case 48 To 57, 65 To 90, 97 To 122 Case Else Mid(s, i, 1) = - End Select Next i J = Len(s) - 1 For i = 1 To J If Mid(s, i, 1) = - And Mid(s, i + 1, 1) = - Then s = Left(s, i) + Right(s, J - i) J = J - 1 i = i - 1 End If Next i s = Left(s, Len(s) - 1) R = Split(s, -) B = R(0) For i =

40、1 To UBound(R) If Len(B) max Thenmax = a(i, j)End IfNext jsum = sum + maxNext iText2 = Int(sum / 20)End Sub步骤3：调试并运行程序，关闭程序后按题目要求存盘。三、综合应用题【微步骤】步骤1：打开本题工程文件，添加1个名称为Label1、标题为同时含有字母t、h、e的单词数为的标签；再添加1个名称为Text2，初始内容为空的文本框。步骤2：分析并编写程序代码。程序提供代码Option Base 1Dim s As StringPrivate Sub Command1_Click()Open

41、App.Path & in5.dat For Input As #1s = Input(LOF(1), #1)Close #1Text1.Text = sEnd SubPrivate Sub Command2_Click() If Len(s) = ? ThenMsgBox 请先使用读数据功能！ Elset = For i = 1 To Len(s) c = Mid(s, i, 1)If ? Then t = t + c Else ? = LCase(t) If InStr(x, t) 0 And InStr(x, h) 0 And InStr(x, e) 0 Then m = ? End I

42、f t = End IfNext iText2.Text = mEnd IfEnd SubPrivate Sub Form_Unload(Cancel As Integer)Open App.Path & out5.dat For Output As #1Print #1, Text2.TextClose #1End Sub程序结束【微答案】第1个？处填入：0第2个？处填入：c第3个？处填入：x第4个？处填入：m + 1步骤3：调试并运行程序，关闭程序后按题目要求存盘。第7套 上机操作题一、基本操作题（1）【微步骤】步骤1：新建一个窗体，在窗体中添加一个命令按钮控件并设置命令按钮和窗体的相应属

43、性。见下表。步骤2：调试并运行程序，关闭程序后按题目要求存盘。（2）【微步骤】步骤1：新建一个窗体，在窗体中添加标签控件并设置标签的相应属性。程序中用到的控件及属性见下表。 控件标签 属性NameBorderStyle设置值Label11步骤2：编写程序代码。【微答案】Private Sub Form_Click() Label1.Top = 0 Label1.Left = Form1.Width - Label1.WidthEnd Sub步骤3：调试并运行程序，关闭程序后按题目要求存盘。二、简单应用题（1）【微步骤】步骤1：打开本题工程文件。步骤2：分析并编写程序代码。程序提供代码Option Base 1Private Sub Command1_Click()Dim arrN(30) As IntegerDi