vb部分考试试题及答案.doc

《vb部分考试试题及答案.doc》由会员分享，可在线阅读，更多相关《vb部分考试试题及答案.doc（18页珍藏版）》请在淘文阁 - 分享文档赚钱的网站上搜索。

1、1. 图5Private Sub Command1_Click()考生应完成的程序* Begin *Open “in5.dat” for input as #1 Input #1, sClose #1Text1.text=sEnd Subprivate Sub Command2_Click()考生应完成的程序Stetemp2=”For i=1 to len(s) Ch=mid(s,i,1) If i mod 2 0 then If isletter(cstr(ch)=true then If ch=”Z” then Ch=”A” Elseif ch=”z” then Ch=”a” Else C

2、h=chr(asc(ch)+1) End if End if Else If isletter(cstr(ch)=true then If ch=”A” then Ch=”Z” Elseif ch=”a” then Ch=”z” Else Ch=chr(asc(ch)-1) End if End if End if Strtemp2=strtemp2+ch Next i Text2.text=strtemp2* End *End SubFunction isletter(a As String) As Boolean If A = a And a = Z Or a = a And a = z

3、Then isletter = True Else isletter = False End IfEnd FunctionPrivate Sub Command3_Click() Open out5.dat For Output As #1 Print #1, Text2.Text Close #1End Sub 2. (a) (b) Private Sub Command1_Click() If Option1.Value = True And Text1.Text Then List1.AddItem Text1.Text Text1.Text = ElseIf Option2.Value

4、 = True And List1.ListIndex = 0 Then List1.RemoveItem List1.ListIndex Else MsgBox 未输入或未选定项目 End If End IfEnd Sub3. (a)(b)Private Sub Command1_Click() 需考生编写程序 * Begin *Dim s As String Open in5.txt For Input As 1 Line Input #1, s Close #1 Text1.Text = s* End *End SubPrivate Sub Command2_Click() Dim ol

5、dSen As String Dim newSen As String Dim ch As String Dim lastCh As String oldSen = Text1.Text strlen = Len(oldSen) lastCh = Left(oldSen, 1) For i = 1 To strlen ch =Mid(oldSen, i, 1) If lastCh = Then ch = UCase(ch) End If newSen =newSen = newSen & ch lastCh = ch Next i Text1.Text = newSenEnd SubPriva

6、te Sub Command3_Click() Open out5.txt For Output As #1 Write #1, ? Close #1End Sub4. =考生应完成的程序（开始）= *begin* Dim s As Recordtype Open in5.dat For Random As #1 Len = Len(s) maxval = 0 minval = 300 For k = 1 To 20 Get #1, , s sumval = s.a1 + s.a2 + s.a3 If sumval maxval Then maxval = sumval If sumval a

7、(j) Then t = a(i) a(i) = a(j) a(j) = t End If Next jNext i*end*=考生编写程序结束= For i = 1 To 10 s = s & Str(a(i) Next i Label4.Caption = s SaveEnd Sub 6. Open in5.dat For Input As #1 For i = 1 To 100 Input #1, a(i) Next i Close #1End SubPrivate Sub Command2_Click()考生完成* Begin *Sum=0For i=1 to 100 Sum=sum+

8、a(i)Next iSum=int(sum / 100)Min=1000Temp=0For i=1 to 100 If abs(sum-a(i)= 0.0001 Text1.Text = Result * 4End Sub8Private Sub C1_Click() For i =0 To 2 If Op1(i). Value = True Then Print 我的出生地是 + Op1(i). Caption End If NextEnd Sub9. 程序代码Private Sub Form_Unload(Cancel As Integer) Open out4.txt For Outpu

9、t As #1 Print #1, Cb1.Text, Cb2.Text, CInt(L1.Font.Size), L1.Font Close #1End SubPrivate Sub Cb1_Click() L1.FontSize = Cb1.TextEnd SubPrivate Sub Cb2_Click() L1.Font = Cb2.TextEnd Sub10. Private Sub Form_Unload(Cancel As Integer) unload_subEnd SubPrivate Sub Command1_Click() If Op1.Value ThenText1.F

10、ontName = Op1.Caption ElseIf Op2.Value ThenText1.FontName = Op2.Caption End IfIf Ch1.Value = 1 ThenText1.FontUnderline = True ElseText1.FontUnderline = FalseEnd If If Ch2.Value = 1 ThenText1.FontItalic = TrueElse Text1.FontItalic = FalseEnd IfEnd Sub11 属性设置Private Sub Command1_Click() Dim n As Long

11、CD1.FileName = CD1. Filter = 所有文件|*.*|文本文件|*.txt|Word文档|*.doc CD1.FilterIndex = 2 CD1. Action = 1 If CD1.FileName Then Open CD1.FileName For Input As #1 n = LOF(1) Text1 = Input$(n, #1) Close #1 End IfEnd Sub12Private Sub Command1_Click() Dim k As Integer, s As Single, a As Single, b As Single a = V

12、al(Text1(0).Text) s = a b = a For k = 1 To5 s = s + Val(Text1(k).Text) If a Val(Text1(k).Text) Then b = Val(Text1(k).Text) End If Next k s = (s - a - b) / 4 s = s * 3 * Val(Text2.Text) Text3.Text? = Int(s * 100) / 100End Sub13. Dim n As Integer需考生编写的程序If n=10 or n=12 thenS=1For i=1 to n S=s*iNext iE

13、nd ifIf n=1000 or n=2000 thenS=0For i=1 to nS=s+iNext iEnd ifText1.text=sPrivate Sub Command2_Click() Open App.Path + out4.dat For Output As #1 Print #1, n, Option1.Value, Option2.Value, Text1 Close #1End SubPrivate Sub m10_Click() n = 10End SubPrivate Sub m2000_Click() n = 2000End SubPrivate Sub m1

14、2_Click() n = 12End SubPrivate Sub m1000_Click() n = 1000End SubPrivate Sub Option1_Click() n = 0 m1000.Enabled = False m2000.Enabled = False m10.Enabled = True m12.Enabled = TrueEnd SubPrivate Sub Option2_Click() n = 0 m10.Enabled = False m12.Enabled = False m1000.Enabled = True m2000.Enabled = Tru

15、eEnd Sub14Private Sub Command1_Click() Dim n As Integer Dim i As Integer Dim Sum As Long Dim k As Integer n = InputBox(请输入整数n) Sum =0 k = 0 For i = 1 To n k = k+1 Sum = Sum + k Next i Text1.Text = Str(Sum)End Sub15. (a) (b)Private Sub Command1_Click() Dim S1 As String Dim S2 As String S1 = Text1.Tex

16、t S2 = For i = 1 To Len(S1) S2 = S2 + Mid(S1, Len(S1) + 1 - i, 1) Next i Text2.Text = S2End Sub16。图3Dim n As IntegerPrivate Sub Text1_Change() Dim ch As String ch = Right$(Text1.Text, 1) If ch = A And ch = a And ch 0 Then Shape1.Height = Shape1.Height + 100 Shape1.Width = Shape1.Width + 100 Shape1.L

17、eft = Shape1.Left - 50 Shape1.Top = Shape1.Top - 50 Else Shape1.FillColor = red_color End If End If If Shape1.FillColor = red_color Then If Shape1.Left left0 Then Shape1.Height = Shape1.Height - 100 Shape1.Width = Shape1.Width - 100 Shape1.Left = Shape1.Left + 50 Shape1.Top = Shape1.Top + 50 Else Sh

18、ape1.FillColor = blue_color End If End IfEnd SubTimer1.Enabled = TrueShape1.FillColor = red_colorShape1.Left = Shape1.Left + 50Shape1.Top = Shape1.Top + 50Shape1.FillColor = blue_color18程序代码Private Sub Command1_Click() For k = 0 To 3 If Option1(k).Value Then n = k End If Next k Option1(n).Value = Fa

19、lse n = n + 1 If n = 4 Then n = 0 End If Option1(n).Value = TrueEnd Sub19Dim is_num As BooleanPrivate Sub Command1_Click() Dim tmpStr As String * 50 Select Case Combo1.ListIndex Case 0 tmpStr = Left(Trim(Text1.Text), 3) Case 1 tmpStr = Right(Trim(Text1.Text), 3) Case 2 tmpStr = Mid(Trim(Text1.Text),

20、 3,4) End Select Text2.Text =tmpStr20图5Option Base 1Dim a(5, 8) As Single, athlete(5) As String * 8Private Sub Command1_Click() Dim ch As String Text1 = Open App.Path & in5.dat For Input As #1 For k = 1 To 5 Input #1, ch athlete(k) = ch Text1 = Text1 & ch & For j = 1 To 8 Input #1, ch a(k, j) = Val(

21、ch) Text1 = Text1 & ch & Next j Text1 = Text1 & Chr(13) & Chr(10) Next k Close #1End SubPrivate Function getmark(n As Integer) As Single s = a(n, 1) maxnum = s minnum = s For k = 2 To7 s = s + a(n, k) If maxnum a(n, k) Then minnum = a(n, k) End If Next k s = (s - maxnum - minnum) / 5 getmark = s * 3

22、 * a(n, 8)End FunctionPrivate Sub Command2_Click() 要求考生编写的程序*begin* Dim k As Integer maxmark = getmark(1) m = 1 For k = 2 To 5 If maxmark getmark(k) Then maxmark = getmark(k) m = k End If Next k Text2 = athlete(m) Text3 = maxmark*end*End SubPrivate Sub Command3_Click() Open App.Path & out5.dat For Output As #1 Print #1, Text2, Text3 Close #1End Sub