福建省计算机二级vb考试题库,福建省计算机二级VB编程题.doc

福建省计算机二级VB编程题.doc

编程题【1】 26-01N ValText1.Text Select Case N Case 80 To 100 Text2.Text 优良 Case 60 To 79 Text2.Text 合格 Case 0 To 59 Text2.Text 不合格 End Select【2】 25-01Dim i, s N ValText1.Text s 0 For i 1 To N If i Mod 2 0 Then s s i Next i Text2.Text Strs【3】 24-01Dim i As Integer N ValText1.Text Text2.Text For i N To 1000 If i Mod 8 1 Then Text2.Text Text2.Text i Next i【4】 23-01Dim i As Integer s 0 N ValText1.Text For i 1 To N s s i i Next i Text2.Text s【5】 22-01Dim i, n, a As String * 1 n 0 For i 1 To LenText1.Text a MidText1.Text, i, 1 If a 0 And a 9 Then n n 1 Next i Text2.Text Strn【6】 21-01Dim a As Double, b As Double, c As Double 保留本行定义 a ValText1.Text b ValText2.Text c ValText3.Text If b 2 - 4 * a * c 0 Then Text4.Text 实数解 Else Text4.Text 复数解 End If【7】 20-01NS1For i1 to nSs*iNext i1123。nDim i, t,n,snvaltext1.textt1s1For i1 to nss*itt1.0/sNext iDim i As Integer, j As Integer, s As Long N ValText1.Text Text2.Text Stre【8】 19-01Dim N As Integer, s As Single 保留 Dim i N ValText1.Text s 0 For i 1 To N s s -1 i 1 / i Next i Text2.Text Strs【9】 18-01Dim i Text1.Text For i 100 To 200 If i Mod 3 0 And i Mod 6 0 Then Text1.Text Text1.Text i Next i【10】 17-01Dim A1 To 20 As Integer, i As Integer Text1.Text Text2.Text Randomize For i 1 To 20 Ai IntRnd * 90 10 Text1.Text Text1.Text Ai Text2.Text Text2.Text IIfAi 65 And Ai 90, ChrAi , Next i【11】 27-02Private Sub Command1_Click不得删改本行注释 Randomize Text1.Text IntRnd * 9000 1000End SubPrivate Sub Command2_Click不得删改本行注释 Dim i, s s 0 For i 1 To LenText1.Text s s ValMidText1.Text, i, 1 Next i Text2.Text StrsEnd Sub【12】 23-02Private Sub Command1_Click不得删改本行注释 Dim i As Integer Text2.Text For i 1 To LenText1.Text Text2.Text MidText1.Text, i, 1 Text2.Text Next iEnd Sub【13】 22-02Private Sub command1_click不得删改本行注释 Dim i, chr As String * 1 Text3.Text For i 1 To LenText1.Text chr MidText1.Text, i, 1 If chr Text2.Text Then Text3.Text Text3.Text chr或者 If chr Text2.Text Then Text3.Text ReplaceText1.Text, chr, Next iEnd Sub27-01Dim i Dim n n ValText1.Text For i 1 To n Label2.Caption Label2.Caption Sjzf Next i Function Sjzf As String Dim k As Integer Randomize k IntRnd * 2 If k 0 Then Sjzf ChrIntRnd * 26 65 Else Sjzf ChrIntRnd * 26 97 End IfEnd Function8