ui Then List1.AddItem i Next Command2.Enabled TrueEnd SubPrivate Function isSuShuByVal n As Integer As Boolean Dim i For i 2 To n - 1 If n Mod i 0 Then Exit For Next If i n Then isSuShu True Else isSuShu False End IfEnd FunctionPrivate Sub Command2_Click Open quotd:testtest12out.txtquot For Output As 1 For i 0 To List1.ListCount - 1 Print 1 List1.Listi Next Close MsgBox quot完成存盘,程序退出quot EndEnd Sub 2004 年 4 月 11 日 第二十次等级考试 二级(VISUAL BASIC)上机考试试卷(第二套)一、程序调试:(程序存盘文件名 TEST21.Vbp,TEST21.frm) (40 分)Private Sub Command1_Click Dim intA As Long Dim intB As Long Dim intS As Long Dim intI As Integer Dim n As Integer Dim varT As Variant Do n ValInputBoxquot输入一个111之间的奇数:quot Loop Until n Mod 2 ltgt 0 And n gt 1 And n lt 11 intA 1 intB 1 intS 0 varT 0 For intI 1 To n Step 2 intA intB intI intB intA intI 1 intS intS intA varT varT intS Next varT 1 / varT Text1.Text varTEnd Sub二、编程:(程序存盘文件名 TEST22.Vbp、TEST22.Frm)(60 分)Dim a10 As IntegerPrivate Sub Command1_Click Dim i Text1 quotquot For i 1 To 10 ai IntRnd 100 1 Text1 Text1 amp quot quot amp ai NextEnd SubPrivate Sub Command2_Click Dim i j k For i 1 To 9 k i For j i 1 To 10 If ak lt aj Then k j Next If k ltgt i Then do 交换 ak ai Next Text2 quotquot For i 1 To 10 Text2 Text2 amp quot quot amp ai NextEnd SubPrivate Sub do 交换x As Integer y As Integer Dim t t x x y y tEnd Sub 2004 年 4 月 11 日 第二十次等级考试 二级(VISUAL BASIC)上机考试试卷(第三套)一、程序调试:(程序存盘文件名 TEST31.Vbp,TEST31.Frm)40 分Option ExplicitPrivate Sub Command1_Click Dim pi As Double t As Double Dim s As Double Dim n As Double pi 0 t 1 n 1 s 1 Do While Abst gt 0.000001 pi pi t n n 2 s -s t s / n Loop Print quotpiquot pi 4 End SubPrivate Sub Command2_Click EndEnd Sub二、编程:(程序存盘文件名 TEST32.VbpTEST32.Frm)60 分Private Sub Command1_Click Dim a As String Open quottest32in.txtquot For Input As 1 Input 1 a Text1 a Close Command2.Enabled TrueEnd SubPrivate Sub Command2_Click Dim n As Integer i c As String 1 sStart As Boolean n 0 sStart False For i 1 To LenText1 c MidText1 i 1 If c quot quot Then sStart False ElseIf sStart False Then n n 1 sStart True End If Next Text2 nEnd SubPrivate Sub Form_Load Command2.Enabled FalseEnd Sub 2004 年 4 月 11 日 第二十次等级考试 二级(VISUAL BASIC)上机考试试卷(第四套)一、程序调(程序存盘文件名 TEST41.Vbp,TEST41_1.Frm,TEST41_2.Frm)40 分 TEST41_1.Frm Option Explicit Dim Password As String Private Sub Form_Load Password quotabc123quot End Sub Private Sub Command1_Click If Text1 Password Then Form1.Hide Form2.Show Else MsgBox quot密码有误,请重新输入quot Text1 quotquot Text1.SetFocus End If End Sub TEST41_2.Frm Private Sub Add_Click Dim s s Text1 If UCaseLefts 1 quotKquot Then Combo1.AddItem s End Sub Private Sub Cle_Click Combo1.Clear End Sub Private Sub Del_Click If Combo1.ListIndex gt 0 Then Combo1.RemoveItem Combo1.ListIndex End Sub Private Sub Form_Load Combo1.AddItem quotk0quot Combo1.AddItem quotk1quot Combo1.AddItem quotk2quot End Sub二、编程:(程序存盘文件名 TEST42.Vbp、TEST42.Frm)(60 分) Private Sub Form_Click Dim n As Long i As Long Do n ValInputBoxquot请输入一个41000000范围内的偶数quot Loop Until n gt 4 And n lt 1000000 And n Mod 2 0 For i 1 To n 2 Step 2 If isSuShui 1 Then If isSuShun - i Then Print i amp quotquot amp n - i amp quotquot amp n End If Next End Sub Private Function isSuShuByVal n As Long As Integer Dim i As Long For i 2 To n - 1 If n Mod i 0 Then Exit For Next If i n Then isSuShu 1 Else isSuShu 0 End If If n 1 Then isSuShu 1 End Function 2004 年 10 月 17 日 第二十一次等级考试 二级VISUAL BASIC上机考试试卷第一套一、调试程序:程序存盘文件名 TEST21.FRM、TEST21.VBP40 分 Private Sub Command1_Click Dim Sum As Double Dim N As Integer Dim i As Integer N ValText1.Text If N lt 0 Or N gt 20 Then Text1.SelStart 0 Text1.SelLength LenText1.Text Text1.SetFocus: Exit Sub End If For i N To 1 Step -1 Sum Sum Facti Next i Text2 Sum End Sub Private Function FactByVal N As Integer As Double Fact 1 Do While N gt 0 Fact Fact N N N - 1 Loop End Function二、编程:程序存盘文件名 TEST12.VBP、TEST12.FRM60 分Private Sub Command1_Click Dim a Open quottest12.txtquot For Input As 1 List1.Clear While Not EOF1 Input 1 a List1.AddItem a Wend CloseEnd SubPrivate Sub Command2_Click Dim i k t For i 0 To List1.ListCount - 2 ki For j i 1 To List1.ListCount - 1 If List1.Listk gt List1.Listj Then k j Next If k ltgt j Then t List1.Listk List1.Listk List1.Listi List1.Listi t End If NextEnd SubPrivate Sub Command3_Click Dim i k For i 0 To List1.ListCount - 1 If List1.Listi Text1 Then List1.RemoveItem i Exit For End If Next If i List1.ListCount Then MsgBox quot内容未找到quotEnd Sub 2004 年 10 月 17 日 第二十一次等级考试 二级VISUAL BASIC上机考试试卷第二套一、调试程序:程序存盘文件名 TEST21.FRM、TEST21.VBP40 分Option ExplicitPrivate Sub Command1_Click Dim n As Integer Dim t As Long Dim i As Integer Dim m As Double n0 m1 Do While m n n lt 200000 nn1 t1 For i 1 To n t t n Next i mmt Loop Picture1.Print quot nquot n quot mquot m End Sub二、编程:程序存盘文件名 TEST22.VBPTEST22.FRM60 分Private Sub Command1_Click Dim p As String p InputBoxquot请输入存盘路径和文件名quot quot存盘quot quotd:testtest22out.txtquot Open p For Output As 1 Print 1 Text1 Close MsgBox quot数据已存入文件!quotEnd SubPrivate Sub Command2_Click EndEnd SubPrivate Sub Get 素数ByVal a As Integer ByVal b As Integer Dim i n j Text1 quotquot For i a To b For j 2 To i - 1 If i Mod j 0 Then Exit For Next If j i Then nn1 Text1 Text1 amp quot quot amp i If n 5 Then n0 Text1 Text1 amp vbCrLf End If End If NextEnd SubPrivate Sub Option1_Click Get 素数 100 200End SubPrivate Sub Option2_Click Get 素数 200 300End SubPrivate Sub Option3_Click Get 素数 300 400End Sub 2004 年
上一篇:
Web页面安全验证类函数代码
下一篇:
2018年汽车自驾运动营地攻防箭大赛总决赛圆满落幕