编程题.docx

1、编程题Private Sub Command1_Click() 不得删除本行注释Dim s1 As Integer, s2 As Integer, i As Integers1 = Val(Text1.Text)s2 = Val(Text2.Text)Open d:vbly.txt For Output As #1For i = s1 To s2 If IsLeapYear(i) Then Print #1, i End IfNext iClose #1End Sub#Private Function IsLeapYear(ByVal y As Integer) As Boolean (在通用

2、段) If (y Mod 4 = 0 And y Mod 100 0) Or y Mod 400 = 0 Then IsLeapYear = True Else IsLeapYear = False End IfEnd Function1、Private Sub Command1_Click() 不得删除本行注释Dim s As String, i As Integer, j As IntegerText2.Text = j = Len(Text1.Text)For i = j To 1 Step -1 Text2.Text = Text2.Text & Mid(Text1.Text, i,

3、1)Next iEnd Sub2、Private Sub Command1_Click() 不得删除本行注释Dim str As StringOpen d:vbbdata.txt For Input As #1Do While Not EOF(1) Line Input #1, str Text1.Text = Text1.Text & str & vbCrLfLoopClose #1End Sub1、Private Sub Command1_Click() 不得删除本行注释RandomizeText1.Text = Str(Int(91 * Rnd + 10)Text2.Text = Str

4、(Int(91 * Rnd + 10)Text3.Text = Str(Int(91 * Rnd + 10)Text4.Text = Str(Int(91 * Rnd + 10)End SubPrivate Sub Command2_Click() 不得删除本行注释Dim a(1 To 4) As Integer, i As Integer, t As Integer, j As Integera(1) = Val(Text1.Text)a(2) = Val(Text2.Text)a(3) = Val(Text3.Text)a(4) = Val(Text4.Text)For i = 1 To

5、3 For j = i + 1 To 4 If a(i) = a And str1 = A And str1 = 0 And str1 = 9 Then Label1.Caption = 是数字字符Else Label1.Caption = 是其它字符End IfEnd Sub#（试题中提供的）Sub GetChar(ByRef char) Randomize char = Chr(Int(Rnd * 256)End Sub2、 不得删改以下声明Dim A(0 To 99) As IntegerDim B(0 To 99) As IntegerDim i As Integer, j As In

6、tegerPrivate Sub Command1_Click() 不得删改本行注释Dim i As IntegerOpen d:vbin.txt For Input As #1i = 0For i = 0 To 99 Input #1, A(i)NextClose #1End SubPrivate Sub Command2_Click() 不得删改本行注释Dim i As Integer, j As Integerj = 0For i = 0 To 99 If A(i) Mod 2 0 Then B(j) = A(i) j = j + 1 End IfNext iEnd Sub1、Priva

7、te Sub Command1_Click() 不得删除本行注释Dim n As Integer, i As Integern = Val(Text1.Text)For i = 2 To Int(Sqr(n) If n Mod i = 0 Then Exit For End IfNext iIf i Int(Sqr(n) Then Label2.Caption = YESElse Label2.Caption = NOEnd IfEnd Sub2、Private Sub Command1_Click() 不得删除本行注释Dim count1 As Integer, str1 As String

8、str1 = Text1.Textcount1 = CountChar(str1)Open d:vbpaperout.txt For Output As #1 Print #1, count1Close #1End Sub#（试题中提供的）Private Function CountChar(ch As String) As LongDim iCounter As Longch = Text1.Textch = UCase(ch)iCounter = 0Open App.Path & PaperIn.txt For Input As #1Do While Not EOF(1) MyChar =

9、 Input(1, #1) If UCase(MyChar) = ch Then iCounter = iCounter + 1 End IfLoopClose #1CountChar = iCounterEnd Function1、Private Sub Command1_Click() 不得删除该行注释Dim y1 As Integery1 = Val(Text1.Text)If y1 Mod 100 = 0 Then If y1 Mod 400 = 0 Then Label2.Caption = 闰年 Else Label2.Caption = 非闰年 End IfElseIf y1 M

10、od 4 = 0 Then Label2.Caption = 闰年Else Label2.Caption = 非闰年End IfEnd Sub2、 下一句声明不得删改Dim Arr(4) As IntegerPrivate Sub Command1_Click() 不得删除本行注释Open d:vbintdata.txt For Input As #1For i = 0 To 4 Input #1, Arr(i)Next iClose #1End SubPrivate Sub Command2_Click() 不得删除本行注释Dim i As Integer, j As Integer, t

11、As IntegerFor i = 0 To 3 For j = i + 1 To 4 If Arr(i) Arr(j) Then t = Arr(i) Arr(i) = Arr(j) Arr(j) = t End If Next jNext iEnd SubPrivate Sub Command3_Click() 不得删除本行注释ReDim T1(0 To 4) 重新定义文本框控件数组与ARR数组个数相同Dim i As IntegerFor i = 0 To 4 T1(i) = Str(Arr(i)Next iEnd Sub#（试题中提供的）Private Sub Form_Load()D

12、im i As IntegerFor i = 1 To 4 Load T1(i) T1(i).Visible = True T1(i).Top = T1(i - 1).Top T1(i).Left = T1(i - 1).Left + T1(i).Width + 100 Next iEnd SubPrivate Sub Aaa()Dim i As IntegerDim j As IntegerDim k As IntegerFor i = 0 To 3 For j = i + 1 To 4 If Arr(i) Arr(j) Then k = Arr(i) Arr(i) = Arr(j) Arr

13、(j) = k End If Next jNext iEnd Sub1、Private Sub Command1_Click() 不得删除本句注释行Dim x As Integer, n0 As Integer, m0 As Integer, n As Integer, m As Integern0 = Val(Text1.Text)m0 = Val(Text2.Text)n = IIf(n0 m0, n0, m0)x = m Mod nDo While x 0 m = n n = x x = m Mod nLoop Label3.Caption = Str(n)End Sub1、Privat

14、e Sub Command1_Click() 不得删除本行注释Dim i As IntegerFor i = 0 To 4 If Val(List1.List(i) = 90 Then List2.AddItem 优秀 ElseIf Val(List1.List(i) = 80 Then List2.AddItem 良好 ElseIf Val(List1.List(i) = 70 Then List2.AddItem 中等 ElseIf Val(List1.List(i) = 60 Then List2.AddItem 及格 Else List2.AddItem 不及格 End IfNext

15、iEnd Sub#（试题中提供的）Private Sub Form_Load()Randomizei = 0Do While i 40 Then List1.AddItem temp i = i + 1 End IfLoopEnd Sub2、 以下两行声明不得删改Dim Arr(15) As IntegerPrivate Sub Command1_Click() 不得删除本行注释Dim i As IntegerOpen d:vbjsdata.txt For Input As #1For i = 1 To 15 Input #1, Arr(i)Next iClose #1If Op1 Then

16、T1.Text = Str(Aaa)ElseIf Op2 Then T1.Text = Str(Bbb)End IfEnd Sub#（试题中提供的）Private Function Aaa()Dim i As Integer For i = 1 To 15 Aaa = Aaa + Arr(i) Next iEnd FunctionPrivate Function Bbb()Dim i As Integer Bbb = 1 For i = 1 To 15 Bbb = Bbb * Arr(i) Next iEnd Function1、Private Sub Command1_Click() 不得删改本行注释Dim i As Integer, a(1 To 10) As Integer, max1 As Integer, min1 As IntegerFor i = 1 To 10 a(i) = Int(101 * Rnd)Next imax1 = a(1)min1 = a(1)For i = 2 To 10 If a(i) max1 Then max1 = a(i) If a(i) = a And str2 = A And str2 = Z Then str2 = LCase(str2) End If Aaa = Aaa & str2Next iEnd Function