VB题库上机答案.doc

第一套（窗体标题 设置按钮属性 命令按钮 等级考试）运行后 命令按钮不可见 命令按钮标题 字号 字体用三号字黑体Private Sub Form_Click() Label1.Top = 0 Label1.Left = Form1.Width - Label1.WidthEnd Sub参考答案第1个？处填入：1001第2个？处填入：Min第3个？处填入：arrN(i) arrN(i)Function Fun() Dim s As Integer, i As Integer For i = 0 To 1000 If i Mod 7 0 Then s = s + 1 End If Next i Fun = sEnd Function参考答案Private Sub C1_Click() Call ReadData1 Call ReadData2End SubPrivate Sub C2_Click() Dim Arr3(1 To 20) As Integer Dim sum As Integer sum = 0 For i = 1 To 20 Arr3(i) = Arr1(i) - Arr2(i) sum = sum + Arr3(i) Next i Print sum=; sum WriteData dataout.txt, sumEnd Sub第二套。（体育 美术）Private Sub Hide_Click() Text1.Visible = FalseEnd SubPrivate Sub Show_Click() Text1.Visible = TrueEnd Sub2Private Sub C1_Click() Text1.PasswordChar = End SubPrivate Sub C2_Click() Text1.PasswordChar = ?End SubPrivate Sub C3_Click() Text2.Text = Text1.TextEnd SubPrivate Sub P1_Click() CD1.ShowOpenEnd Sub3Function foundhuiwen(p As String) If StrReverse(p) = p Then foundhuiwen = TrueEnd Function第三套 数学 语文参考答案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 Then Me.PopupMenu Format End IfEnd Sub参考答案第1个？处填入：Show第2个？处填入：Caption第3个？处填入：k第4个？处填入：PasswordChar参考答案第1个？处填入：Text1.Text第2个？处填入：PasswordChar第3个？处填入：0第4个？处填入：False第四套 猴子Private Sub Command1_Click() Text1.PasswordChar = End SubPrivate Sub Command2_Click() Text1.PasswordChar = *End SubPrivate Sub Command3_Click() Text1 = Text1.SetFocusEnd Sub2参考答案第1个？处填入：Show第2个？处填入：Caption第3个？处填入：k第4个？处填入：PasswordChar参考答案第1个？处填入：Step 1第2个？处填入：List1.List(k)第3个？处填入：k第4个？处填入：Text1或Text1.Text参考答案第1个？处填入：0第2个？处填入：stepy第3个？处填入：Timer1.Enabled第4个？处填入：Timer1.Enabled第5个？处填入：stepy第五套（shape1形状控件 圆）Private Sub Form_Click() Label1.Visible = TrueEnd SubPrivate Sub Form_Load() Form1.Caption = 标签End Sub参考答案第1个？处填入：Command1第2个？处填入：Label1第3个？处填入：Control第4个？处填入：Label2.Caption第1个？处填入：False第2个？处填入：True第3个？处填入：8第4个？处填入：0Max = a(i, 1) For j = 1 To 5 If Max a(i, j) Then Max = a(i, j) End If b(i) = Max If Max = a(i, j) Then c(i) = j Next j第6套（H1水平滚动条1-100）Private Sub Clear_Click() Text2.Text = End SubPrivate Sub Copy_Click() Text2.Text = Text1.TextEnd Sub参考答案第一个？处填入：Index第二个？处填入：a参考答案Private Sub C1_Click() Text1.Text = 我是 If Op1.Value Then Text1.Text = Text1.Text & Op1.Caption Else Text1.Text = Text1.Text & Op2.Caption End If If Op3.Value Then Text1.Text = Text1.Text & Op3.Caption Else Text1.Text = Text1.Text & Op4.Caption End IfEnd Sub参考答案Private Sub Command1_Click() Dim a() As Long Dim i As Integer Dim n As Integer For i = 0 To Op1.Count - 1 If Op1(i).Value = True Then n = Val(Op1(i).Caption) Exit For End If Next ReDim a(n) a(1) = 1 a(2) = 1 For i = 3 To n a(i) = a(i - 1) + a(i - 2) Next Text1.Text = a(n)End Sub第7套（添加标签标题为请输入密码）发射飞机Private Sub Form_Click() Form1.Print 单击窗体End SubPrivate Sub P1_Click() P1.Print 单击图片框End Sub第1个？处填入：True第2个？处填入：Height第3个？处填入：Enabled参考答案第1个？处填入：tmp*a第2个？处填入：tmp第3个？处填入：xn(t, i)第4个？处填入：zDim a As Integer Dim b As Integer a = 0 b = arr(1) For i = 1 To 40 If prime(arr(i) Then a = a + 1 Label3.Caption = a Next For i = 1 To 40 If prime(arr(i) And arr(i) = b Then b = arr(i) Label4.Caption = b Next第八套 text1 text2 300 2400垂直水平滚动条狗熊 水仙花，Private Sub C1_Click() Image1.Height = Image1.Height + 100 Image1.Width = Image1.Width + 100End SubPrivate Sub C2_Click() Image1.Height = Image1.Height - 100 Image1.Width = Image1.Width - 100End Sub参考答案 Dim i As Integer Dim max As Integer, min As Integer max = -1 min = 1000 For i = 1 To 100 If isnarc(a(i) Then If max = a(i) Then min = a(i) End If Next i Text1 = max Text2 = min参考答案Private Sub C1_Click() Dim sum As Long Dim n As Integer Dim i As Integer n = Val(Cb1.Text) For i = n To 5000 If i Mod n = 0 Then sum = sum + i End If Next i Text1.Text = sumEnd Sub参考答案第1个？处填入：1第2个？处填入：2第3个？处填入：Text1.Text Text3.Text第4个？处填入：Text2.Text Text3.Text第9套 添加一个command1的命令按钮，标题为打开文件） 移动本按钮步骤2：编写程序代码。参考答案Private Sub Command1_Click() CD1.ShowOpenEnd Sub参考答案Private Sub Command1_Click() Command1.Left = Command1.Left - 100End Sub参考答案第1个？处填入：Caption第2个？处填入：m第3个？处填入：k第4个？处填入：a第1个？处填入：a(k)第2个？处填入：ch排序按钮的代码Private Sub C2_Click() Dim t As Integer Dim i As Integer Dim j As Integer Dim ch As String ch = For i = 50 To 2 Step -1 For j = 1 To 49 If a(j) a(j + 1) Then t = a(j + 1) a(j + 1) = a(j) a(j) = t End If Next j Next i For j = 1 To 50 ch = ch + Str(a(j) + Next j Text2.Text = chEnd Sub第十套 Liable1 Liable2姓名 年龄参考答案Private Sub Command1_Click() Form1.Print Text1.Text & ,现年 & Text2.Text & 岁End Sub参考答案Private Sub Command1_Click() HScroll1.Max = 1500 HScroll1.Min = 100 HScroll1.LargeChange = 100 HScroll1.SmallChange = 10End SubPrivate Sub HScroll1_Change() Picture1.Width = HScroll1.ValueEnd Sub参考答案第1个？处填入：Text1.Text第2个？处填入：List1.ListCount 1第3个？处填入：Text1.Text第4个？处填入：i参考答案第1个？处填入：LBound第2个？处填入：UBound第3个？处填入：a第4个？处填入： 15第5个？处填入：11 * 1.2参考答案Private Sub Command2_Click() 考生编写 Dim a(1 To 26) As Integer Dim max As Integer n = 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 If Next max = 0 For m = 1 To 26 If max = 0 And b = 500 And b = 1000 And b = 1500 And b = 2000 Then m = 0.3 * b * 0.9 End If Text2 = Int(m)End Sub第十五套 名称FORM1窗体 标题 改变颜色按钮参考答案Private Sub C1 Click()Form1.BackColor = &HFF&End SubPrivate Sub List1_Click() Shape1.FillStyle = List1.TextEnd Sub参考答案第1个？处填入：Option1(i)第2个？处填入：Caption第3个？处填入：5第4个？处填入：x参考答案第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 Then Exit For End If Next i第22套添加图片框 TU-1.Jpg 树林Private Sub Form_Click() Pic.Print VB等级考试End SubPrivate Sub submenu1_Click() Command1.Visible = TrueEnd SubPrivate Sub submenu2_Click() Command1.Visible = False参考答案第1个？处填入：1第2个？处填入：tmp * i第3个？处填入：xn第4个？处填入：xn(t)参考答案第1个？处填入：arr第2个？处填入：Static第3个？处填入：arr(i)第4个？处填入：0参考答案第1个？处填入：9第2个？处填入：temp第3个？处填入：j第4个？处填入：123套，菜单，文件 新建 保存，退出，鸭子。红绿灯，素数Private Sub Command1_Click() Image1.Left = Image1.Left + 10End SubPrivate Sub Command2_Click() Image1.Left = 360End Sub参考答案第1个？处填入：2第2个？处填入：True第3个？处填入：flag参考答案第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 Then flag = False Else i = i + 1 End If Loop If flag = True Then num = num + 1 b(num) = a(k) End If Next k24套shape1的形状画长宽为1200的正方形，窗体最小化不可用Private Sub Command1_Click() Label1.Font = 宋体End SubPrivate Sub Command2_Click() Label1.Font = 黑体End Sub第1个？处填入：Text1(0)第2个？处填入：s第3个？处填入：Cmd1.Enabled第4个？处填入：Cmd2.Enabled参考答案第1个？处填入：Input第2个？处填入：s(i) + a(i, j)第3个？处填入：s(i)第4个？处填入：Line2.Y2第5个？处填入：Visible参考答案Private Sub Command2_Click() For i = 1 To Len(s) J = Asc(Mid(s, i, 1) Select Case J Case 48 To 57, 65 To 90, 97 To 122 Case Else Mid(s, i, 1) = - End Select Next i J = Len(s) - 1 For i = 1 To J If Mid(s, i, 1) = - And Mid(s, i + 1, 1) = - Then s = Left(s, i) + Right(s, J - i) J = J - 1 i = i - 1 End If Next i s = Left(s, Len(s) - 1) R = Split(s, -) B = R(0) For i = 1 To UBound(R) If Len(B) c(j + 1) Then t = c(j) c(j) = c(j + 1) c(j + 1) = t f = False End If Next If f Then Exit For End If Next26套 form1窗体添加文本框，MultiLine True Scrollbars 2 程序设计Option ExplicitPrivate Sub Cmd1_Click() Cmd1.Left = 0 Cmd1.Top = 0End SubPrivate Sub Cmd2_Click() Cmd2.Height = Cmd2.Height * 2 Cmd2.Width = Cmd2.Width * 2参考答案第1个？处填入：1000第2个？处填入：Max第3个？处填入：arrN(i) Max或Max arrN(i)Function Fun()Dim s As Integer, i As IntegerFor i = 1 To 1001If i Mod 5 = 0 Or i Mod 7 = 0 Thens = s + 1End IfNext iFun = sEnd Function参考答案第1个？处填入：Mat(N, M) As Integer或Mat(5, 5) As Integer第2个？处填入：For Input第3个？处填入：Input #1, Mat(i, j)第4个？处填入：i=j27套form1窗体添加一个二级下拉菜单Private Sub Text1_Change() Text2.Text = Text1.TextEnd Sub参考答案Private Sub Command1_Click() If Op1.Value = True Then Text1.FontName = 宋体 Else Text1.FontName = 隶书 End If If Ch1.Value = 1 Then Text1.FontUnderline = True Else Text1.FontUnderline = False End If If Ch2.Value = 1 Then Text1.FontItalic = True Else Text1.FontItalic = False End IfEnd Sub第1个？处填入：Filter第2个？处填入：ShowOpen第3个？处填入：App.Path & & in4.txt第4