VB试题答案 基础篇.doc

4(1) 参考答案Private Sub Command1 _Click()CD1.ShowOpenEnd Sub (2) 参考答案Private Sub Command1 _Click()Command1.Left Command1.Left 100End Sub(1) 参考答案Private Sub Command1 _Click()Combo1.AddItem Text1End SubPrivate Sub Command2 _Click()Print Combo1.ListCountEnd Sub (2) 参考答案第1个？处填入：Caption第2个？处填入：m第3个？处填入：k第4个？处填入：a 参考答案第1个？处填入：a(k)第2个？处填入：ch排序按钮的代码Private Sub C2 _Click()Dim t As IntegerDim i As IntegerDim j As IntegerDim ch As Stringch For i 50 To 2 Step 1For j 1 To 49If a(j) a(j 1) Thent a(j 1)a(j 1) a(j)a(j) tEnd If Next jNext iFor j 1 To 50 ch ch Str(a(j) Next jText2.Text ch End Sub 5(1) 参考答案Private Sub Command1 _Click()Form1.Print Text1.Text & ，现年 & Text2.Text & 岁End Sub (2) 参考答案Private Sub Command1 _Click()HScroll1.Max 1500HScroll1.Min 100HScroll1.LargeChange 100HScroll1.SmallChange 10End SubPrivate Sub HScroll1 Change()Picture1.Width HScroll1.ValueEnd Sub (1 参考答案第1个？处填入：Text1.Text第2个？处填入：List1.ListCount 1第3个？处填入：Text1.Text第4个？处填入：i(2) 参考答案第1个？处填入：LBound第2个？处填入：UBound第3个？处填入：a第4个？处填入：第5个？处填入：a(i)第6个？处填入：arr2参考答案Dim sum As LongPrivate Sub Calc _Click()Text1.Text For i 2 To 100 Step 2Text1.Text Text1.Text & Arr(i) & Space(5)sum sum Arr(i)Next iPrint sumEnd SubPrivate Sub Read _Click()ReadDataEnd SubPrivate Sub Save _Click()WriteData dataout.txt， sumEnd Sub6(1) (2) 参考答案Private Sub Form _Click()Label1.Top 0Label1.Left Form1.Width Label1.WidthEnd Sub(1) 参考答案第1个？处填入：1001第2个？处填入：Min第3个？处填入：arrN(i) arrN(i)(2) 参考答案Function Fun()Dim s As Integer, i As IntegerFor i 0 To 1000If i Mod 7 0 Thens s 1End IfNext iFun sEnd Function参考答案Private Sub C1 _Click()Call ReadData1Call ReadData2End SubPrivate Sub C2 _Click()Dim Arr3(1 To 20) As IntegerDim sum As Integersum 0For i 1 To 20 Arr3(i) Arr1(i) Arr2(i) sum sum Arr3(i)Next iPrint sum； sumWriteData dataout.txt， sumEnd Sub7(1) (2) 参考答案Private Sub Hide _Click()Text1.Visible FalseEnd SubPrivate Sub Show _Click()Text1.Visible TrueEnd Sub(1)参考答案Private Sub C1 _Click()Text1.PasswordChar End SubPrivate Sub C2 _Click()Text1.PasswordChar ？End SubPrivate Sub C3 _Click()Text2.Text Text1.TextEnd Sub(2)参考答案Private Sub P1 _Click()CD1.ShowOpenEnd Sub 参考答案Function foundhuiwen(p As String) If StrReverse(p) p Then foundhuiwen TrueEnd Function图3.458(1) (2) 参考答案Private Sub C1 _Click()HS1.Value HS1.Value 10End Sub(1) 。参考答案Private Sub M1 _Click()Text1.FontBold TrueEnd SubPrivate Sub M2 _Click()Text1.FontItalic TrueEnd SubPrivate Sub M3 _Click()Text1.FontUnderline TrueEnd SubPrivate Sub Text1 MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)If Button 2 ThenMe.PopupMenu FormatEnd IfEnd Sub(2) 参考答案第1个？处填入：Show第2个？处填入：Caption第3个？处填入：k第4个？处填入：PasswordChar 参考答案第1个？处填入：Text1.Text第2个？处填入：PasswordChar第3个？处填入：0第4个？处填入：False9(1) 。(2) 参考答案Private Sub Command1 _Click()Text1.PasswordChar End SubPrivate Sub Command2 _Click()Text1.PasswordChar *End SubPrivate Sub Command3 _Click()Text1 Text1.SetFocusEnd Sub(1) 参考答案第1个？处填入：n第2个？处填入：0第3个？处填入：fun s(2) 参考答案第1个？处填入：Step 1第2个？处填入：List1.List(k)第3个？处填入：k第4个？处填入：Text1或Text1.Text 参考答案第1个？处填入：Sgn(x x0) * 50第2个？处填入：stepy第3个？处填入：Timer1.Enabled第4个？处填入：Timer1.Enabled第5个？处填入：stepy10(1) 。(2) 参考答案Private Sub Form _Click()Label1.Visible TrueEnd SubPrivate Sub Form Load()Form1.Caption 标签End Sub。(1) 参考答案第1个？处填入：Command1第2个？处填入：Label1第3个？处填入：Control第4个？处填入：Label2.Caption(2) 参考答案第1个？处填入：False第2个？处填入：True第3个？处填入：8第4个？处填入：0参考答案Max a(i, 1)For j 1 To 5If Max 15第5个？处填入：11 * 1.2参考答案Private Sub Command2 _Click()Dim a(1 To 26) As IntegerDim max As Integern Len(s)For i 1 To n k Asc(Mid$(s, i, 1) If (k 65 And k 97 And k 122) Then a(k 96) a(k 96) 1 End IfNext imax 0For m 1 To 26 If max 0 And b 500 And b 1000 And b 1500 And b 2000 Thenm 0.3 * b * 0.9End IfText2int(m)End SubPrivate Sub List1 _Click()Text1 a(List1.ListIndex 1)End Sub20(1) 参考答案Private Sub C1 _Click()Form1.BackColor &HFF&End Sub (2) 参考答案Private Sub List1 _Click()Shape1.FillStyle List1.TextEnd Sub (1) 参考答案第1个？处填入：Option1(i)第2个？处填入：Caption第3个？处填入：5第4个？处填入：x。(2) 参考答案第1个？处填入：500第2个？处填入：Value第3个？处填入：0 参考答案Private Sub Command1 _Click()For i 1 To n If arr(i) 60 And arr(i) 70 And arr(i) 80 And arr(i) 90 And arr(i) a(j 1) Then t a(j) a(j) a(j 1) a(j 1) t f False End If Next j If f ThenExit For End IfNext i22(1) 参考答案Private Sub Form _Click()Pic.Print VB等级考试End Sub。(2) 参考答案Private Sub subMenu1 _Click()Command1.Visible TrueEnd SubPrivate Sub subMenu2 _Click()Command1.Visible FalseEnd Sub (1) 参考答案第1个？处填入：1第2个？处填入：tmp * i第3个？处填入：xn第4个？处填入：xn(t) (2) 参考答案第1个？处填入：arr第2个？处填入：Static第3个？处填入：arr(i)第4个？处填入：0第1个？处填入：9第2个？处填入：temp第3个？处填入：5第4个？处填入：123(1) (2) 参考答案Private Sub Command1 _Click()Image1.Left Image1.Left 10End SubPrivate Sub Command2 _Click()Image1.Left 360End Sub(1) 参考答案第1个？处填入：2第2个？处填入：True第3个？处填入：flag (2) 【 参考答案第1个？处填入：0第2个？处填入：SelLength第3个？处填入：LCase(t)第4个？处填入：Text2参考答案For k 1 To 100 flag True i 2 Do While i Int(a(k) / 2) And flag If Int(a(k) / i) a(k) / i Thenflag False Elsei i 1 End IfLoopIf flag True Thennum num 1b(num) a(k)End IfNext k 24(1) (2) 【 参考答案Private Sub Command1 _Click()Label1.Font 宋体End SubPrivate Sub Command2 _Click()Label1.Font 黑体End Sub (1) 参考答案第1个？处填入：Text1(0)第2个？处填入：s第3个？处填入：Cmd1.Enabled第4个？处填入：Cmd2.Enabled (2) 参考答案第1个？处填入：Input第2个？处填入：s(i) a(i, j)第3个？处填入：s(i)第4个？处填入：m第5个？处填入：Visible参考答案For i 1 To Len(s)J Asc(Mid(s, i, 1)Select Case JCase 48 To 57, 65 To 90, 97 To 122Case ElseMid(s, i