VB题库上机答案

VB题库上机 答案 八年级地理上册填图题岩土工程勘察试题省略号的作用及举例应急救援安全知识车间5s试题及答案 第一套(窗体标题 设置按钮属性 命令按钮 等级考试)运行后 命令按钮不可 见 命令按钮标题 字号 字体用三号字黑体 Private Sub Form_Click() Label1.Top = 0 Label1.Left = Form1.Width - Label1.Width End Sub 参考答案 第1个,处填入:1001 第2个,处填入:Min 第3个,处填入:arrN(i) < Min或Min > 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 = s End Function 参考答案 Private Sub C1_Click() Call ReadData1 Call ReadData2 End Sub Private 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", sum End Sub 第二套。(体育 美术) Private Sub Hide_Click() Text1.Visible = False End Sub Private Sub Show_Click() Text1.Visible = True End Sub 2 Private Sub C1_Click() Text1.PasswordChar = "" End Sub Private Sub C2_Click() Text1.PasswordChar = "?" End Sub Private Sub C3_Click() Text2.Text = Text1.Text End Sub Private Sub P1_Click() CD1.ShowOpen End Sub 3 Function foundhuiwen(p As String) If StrReverse(p) = p Then foundhuiwen = True End Function 第三套 数学 语文 参考答案 Private Sub M1_Click() Text1.FontBold = True End Sub Private Sub M2_Click() Text1.FontItalic = True End Sub Private Sub M3_Click() Text1.FontUnderline = True End Sub Private Sub Text1_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single) If Button = 2 Then Me.PopupMenu Format End If End 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 Sub Private Sub Command2_Click() Text1.PasswordChar = "*" End Sub Private Sub Command3_Click() Text1 = "" Text1.SetFocus End Sub 2参考答案 第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 = True End Sub Private Sub Form_Load() Form1.Caption = "标签" End Sub 参考答案 第1个,处填入:Command1 第2个,处填入:Label1 第3个,处填入:Control 第4个,处填入:Label2.Caption 第1个,处填入:False 第2个,处填入:True 第3个,处填入:8 第4个,处填入:0 Max = 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 Sub Private Sub Copy_Click() Text2.Text = Text1.Text End 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 If End 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 Sub Private Sub P1_Click() P1.Print "单击图片框" End Sub 第1个,处填入:True 第2个,处填入:Height 第3个,处填入:Enabled 参考答案 第1个,处填入:tmp*a 第2个,处填入:tmp 第3个,处填入:xn(t, i) 第4个,处填入:z Dim 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 + 100 End Sub Private Sub C2_Click() Image1.Height = Image1.Height - 100 Image1.Width = Image1.Width - 100 End 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 max = a(i) If min >= 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 = sum End Sub 参考答案 第1个,处填入:1 第2个,处填入:2 第3个,处填入:Text1.Text， Text3.Text 第4个,处填入:Text2.Text， Text3.Text 第9套 添加一个command1的命令按钮，标题为打开文件) 移动本按钮 步骤2:编写程序代码。 参考答案 Private Sub Command1_Click() CD1.ShowOpen End Sub 参考答案 Private Sub Command1_Click() Command1.Left = Command1.Left - 100 End 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 = ch End 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 = 10 End Sub Private Sub HScroll1_Change() Picture1.Width = HScroll1.Value End Sub 参考答案 第1个,处填入:Text1.Text 第2个,处填入:List1.ListCount , 1 第3个,处填入:Text1.Text 第4个,处填入:i 参考答案 第1个,处填入:LBound 第2个,处填入:UBound 第3个,处填入:a 第4个,处填入:< 第5个,处填入:a(i) 第6个,处填入:arr2 参考答案 Dim sum As Long Private Sub Calc_Click() Text1.Text = "" For i = 2 To 100 Step 2 Text1.Text = Text1.Text & Arr(i) & Space(5) sum = sum + Arr(i) Next i Print sum End Sub Private Sub Read_Click() ReadData End Sub Private Sub Save_Click() WriteData "dataout.txt", sum 第十一套form1添加Lable标题计算机等级考试 三号字 步骤3:编写程序代码。 参考答案 Private Sub Form_Activate() HScroll1.SetFocus End Sub Private Sub HScroll1_Change() Text1.Text = HScroll1.Value End Sub 程序结束 参考答案 第1个,处填入:True 第2个,处填入:Line1.Y1 第3个,处填入:Shape1.Height 参考答案 Private Sub Command2_Click() '考生编写 Dim k As Long Dim m As Long Dim q As Long Dim p As Long Dim r As Long Dim n As Long For k = 1 To 100 If a(k) Mod 2 = 0 Then m = m + a(k) q = q + 1 Else n = n + a(k) p = p + 1 End If Next k r = Int((m + n) / (p + q) + 0.5) m = Int(m / q + 0.5) n = Int(n / p + 0.5) Select Case Combo1.Text Case "所有偶数" Text1 = m Case "所有奇数" Text1 = n Case "所有数" Text1 = r End Select 参考答案 第1个,处填入:Mat(N, M) 第2个,处填入:For Input 第3个,处填入:Input #1, Mat(i, j) 第4个,处填入:Mat(i, 4) , t 第十二套 标题 练习 添加Frame1效果 倾斜 加粗 Private Sub Command1_Click() Label1 = Date End Sub Private Sub Command2_Click() Label1 = Time End Sub 参考答案 Private Sub Command2_Click() Dim sum As Long For k = 1 To 100 For m = 1 To Sqr(a(k)) If a(k) = m ^ 2 Then sum = sum + a(k) n = n + 1 End If Next m Next k Text1 = Fix(sum / n) End Sub 参考答案 第1个,处填入:"演示" 第2个,处填入:Timer1.Enabled 第3个,处填入:Timer1.Enabled 第4个,处填入:Label1.Left + Label1.Width 第5个,处填入:Label1.Left 参考答案 第1个,处填入:9 第2个,处填入:i - 1 第3个,处填入:fmax 第4个,处填入:fmax 第5个,处填入:End 第十三套添加框架 字体 大小 单选按 三角形 参考答案 Private Sub Cmd1_Click() Line4.Visible = True End Sub Private Sub Cmd2_Click() Line4.Visible = False End Sub 参考答案 第1个,处填入:Index 第2个,处填入:0 第3个,处填入:， 1 程序结束 参考答案 第1个,处填入:s 第2个,处填入:f = 10 第3个,处填入:(s - 4) * 1.2 第4个,处填入:Is > 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 <= 90) Then a(k - 64) = a(k - 64) + 1 End If If (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 < a(m) Then max = a(m) End If Next Text2 = max For m = 1 To 26 If a(m) = max Then l = m End If Next Text1 = Chr(l + 64) 第市四套 圆角矩形高宽1000 2000 参考答案 Private Sub Command1_Click() Timer1.Enabled = True End Sub Private Sub Command2_Click() Timer1.Enabled = False End Sub Private Sub Command3_Click() Call sub1 End Sub Private Sub Timer1_Timer() Text1.Text = Text1.Text + 1 End Sub 参考答案 第1个,处填入:5 第2个,处填入:2 * i - 1 第3个,处填入:i + 1 第4个,处填入:(9 - 2 * i) 参考答案 第1个,处填入:Timer1.Enabled 第2个,处填入:Shape2.Top 第3个,处填入:Top 第4个,处填入:Shape2.Left 参考答案 第1个,处填入:1 第2个,处填入:ch Private Sub List1_Click() Text1 = a(List1.ListIndex + 1) End Sub Private Sub Command2_Click() b = Val(Text1) If b >= 0 And b < 500 Then m = 0.3 * b ElseIf b >= 500 And b < 1000 Then m = 0.3 * b * 0.98 ElseIf b >= 1000 And b < 1500 Then m = 0.3 * b * 0.95 ElseIf b >= 1500 And b < 2000 Then m = 0.3 * b * 0.92 ElseIf 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 Sub Private Sub List1_Click() Shape1.FillStyle = List1.Text End 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 Then Text2 = Val(Text2) + 1 ElseIf arr(i) >= 60 And arr(i) < 70 Then Text3 = Val(Text3) + 1 ElseIf arr(i) >= 70 And arr(i) < 80 Then Text4 = Val(Text4) + 1 ElseIf arr(i) >= 80 And arr(i) < 90 Then Text5 = Val(Text5) + 1 ElseIf arr(i) >= 90 And arr(i) <= 100 Then Text6 = Val(Text6) + 1 End If Text1 = Val(Text1) + 1 Next End Sub 第十六套 框架 option1 option2 第一项 第二项 步骤3:编写程序代码。 参考答案 Private Sub Dir1_Change() File1.Path = Dir1.Path End Sub Private Sub Drive1_Change() Dir1.Path = Drive1.Drive End Sub Private Sub File1_Click() Label2 = File1.FileName 参考答案 第1个,处填入:List(i).AddItem Text1.Text 第2个,处填入:48 第3个,处填入:0 参考答案 第1个,处填入:m 第2个,处填入:f(i) 第3个,处填入:t 第4个,处填入:t * i 第5个,处填入:t 参考答案 Private Sub Command1 Click() Dim i As Integer Dim j As Integer Dim k As Integer For i = 1 To 60 For j = 1 To 60 For k = 1 To 60 If i ^ 2 = j ^ 2 + k ^ 2 Then m = m + 1 End If Next k Next j Next i Label1 = m / 2 步骤3:调试并运行程序，关闭程序后按题目要求存盘。 第十七套 标题 列表框 名称为form1的窗体添加一个list1的列 表框，4个列表 数 语文历史 地理 参考答案 Private Sub Command1_Click() PopupMenu menu1 End Sub 参考答案 第1个,处填入:Text1, 1 第2个,处填入:ch 第3个,处填入:n 参考答案 第1个,处填入:True 第2个,处填入:red color 第3个,处填入:Shape1.Left 第4个,处填入:Shape1.Top 第5个,处填入:blue color 参考答案 第1个,处填入:2 第2个,处填入:App.Path & "\" & "in5.txt" 第3个,处填入:s 第4个,处填入:2 Private Sub Command2 Click() Dim ch As String Dim s As String Dim n As Long s = Text1.Text Text1.Text = "" For n = 1 To Len(s) ch = Mid(s, n, 1) If ch = "E" Or ch = "N" Or ch = "T" Then ch = LCase(ch) ElseIf ch = "e" Or ch = "n" Or ch = "t" Then ch = UCase(ch) End If Text1.Text = Text1 & ch Next End Sub 第十八 添加2个框架 标题字号 修饰 10号字 20号字 下划线 Private Sub Command1_Click() Text2 = Text1.SelLength End Sub 参考答案 第1个,处填入:st 第2个,处填入:c 第3个,处填入:word 参考答案 ,处填入:Left = Private Sub C1_Click() Timer1.Enabled = True End Sub Private Sub C2_Click() Timer1.Enabled = False End Sub 参考答案 For i = 1 To Val(Text1.Text) If IsPrime(i) And IsPrime(Val(Text1.Text) - i) Then Label1 = i Label2 = Val(Text1.Text) - i Exit For End If Next i 第十九套 香蕉 Private Sub Command1_Click() CommonDialog1.ShowSave End Sub 参考答案 第1个,处填入:Y 第2个,处填入:X1 第3个,处填入:radius& 第4个,处填入:Label1 参考答案 第1个,处填入:12 第2个,处填入:1 第3个,处填入:s s = 0 For k = 1 To n s = s + f(k) Next Text1 = s 参考答案 Form2中第1个,处:1 Form2中第2个,处:0 Form2中第3个,处:Form1.Label1 Form3中第1个,处:0 Form3中第2个,处:k, 2 第二十套添加Lable的标签，宽高2000 300 等级考试，红桃黑 桃参考答案 Private Sub Command1_Click() Image1.Picture = LoadPicture(App.Path & "\MISC34.ico") End Sub Private Sub Command2_Click() Image1.Picture = LoadPicture(App.Path & "\MISC37.ico") End Sub Private Sub Command3_Click() Set Image1.Picture = Nothing End Sub 参考答案 第1个,处填入:5 第2个,处填入:a 第3个,处填入:4 第4个,处填入:s 第5个,处填入:Text3 参考答案 Private Sub Command1_Click() Dim i As Integer Dim j As Integer Dim m As Long Dim sum As Long m = 1 If n = 10 Or n = 12 Then For i = 2 To n m = i * m Next Text1.Text = m End If sum = 0 If n = 2000 Or n = 1000 Then For j = 1 To n sum = sum + j Next Text1.Text = sum End If End Sub 参考答案 第1个,处填入:b 第2个,处填入:b 第3个,处填入:n 第4个,处填入:b 第二十一套 添加List1 北京 上海 天津 Private Sub Form_Click() InputBox "请输入", "等级考试", "Basic" End Sub 参考答案 第1个,处填入:Len 第2个,处填入:Asc 第3个,处填入:b 第4个,处填入:2 第5个,处填入:x(i) 第1个,处填入:La.ListCount 第2个,处填入:La 第3个,处填入:La 参考答案 第1个,处填入:EOF(1) 第2个,处填入:a(i) For i = 1 To 10 f = True For j = 1 To 9 If a(j) > 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 Sub Private Sub submenu1_Click() Command1.Visible = True End Sub Private 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个,处填入:1 23套，菜单，文件 新建 保存，退出，鸭子。红绿灯，素数 Private Sub Command1_Click() Image1.Left = Image1.Left + 10 End Sub Private Sub Command2_Click() Image1.Left = 360 End 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 k 24套shape1的形状画长宽为1200的正方形，窗体最小化不可用 Private Sub Command1_Click() Label1.Font = "宋体" End Sub Private 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) < Len(R(i)) Then B = R(i) Next i For m = UBound(R) To 1 Step -1 If Len(B) = Len(R(m)) Then Exit For End If Next Text1.Text = Len(B) Text2.Text = R(m) End Sub 25套form1标题为鼠标光标形状的窗体添加文本框，箭头Arrow Cross 参考答案 Private Sub Command1_Click() Text3 = Text1.SelLength Text2 = Text1.SelStart End Sub 参考答案 第1个,处填入:Width 第2个,处填入:Shape2.Top 第3个,处填入:Shape1.Left 第4个,处填入:VScroll1.Value 参考答案 第1个,处填入:Enabled 第2个,处填入:Timer1.Enabled 第3个,处填入:d 第4个,处填入:t + 1 参考答案 c(1) = a(1) For i = 2 To 30 c(i) = a(i) Next c(31) = b(1) For j = 32 To 60 c(j) = b(j - 30) Next For i = 1 To 60 f = True For j = 1 To 59 If c(j) > 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 Next 26套 form1窗体添加文本框，MultiLine True Scrollbars 2 程序 设计 领导形象设计圆作业设计ao工艺污水处理厂设计附属工程施工组织设计清扫机器人结构设计 Option Explicit Private Sub Cmd1_Click() Cmd1.Left = 0 Cmd1.Top = 0 End Sub Private 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 Integer For i = 1 To 1001 If i Mod 5 = 0 Or i Mod 7 = 0 Then s = s + 1 End If Next i Fun = s End Function 参考答案 第1个,处填入:Mat(N, M) As Integer或Mat(5, 5) As Integer 第2个,处填入:For Input 第3个,处填入:Input #1, Mat(i, j) 第4个,处填入:i=j 27套form1窗体添加一个二级下拉菜单 Private Sub Text1_Change() Text2.Text = Text1.Text End 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 If End Sub 第1个,处填入:Filter 第2个,处填入:ShowOpen 第3个,处填入:App.Path & "\" & "in4.txt" 第4个,处填入:Close #1 第1个,处填入:#1 第2个,处填入:Text1.Text 第3个,处填入:n 第4个,处填入:a(k) 第5个,处填入:c 28套，添加文本框，高宽2000 1800 Multiline true 有水平滚动条， 字样设置斜体 参考答案 Private Sub Form_Click() List1.List(3) = "" End Sub Private Sub Form_Load() List1.List(3) = "英语" End Sub 参考答案 Private Sub Option1_Click() Text1.Alignment = 0 End Sub Private Sub Option2_Click() Text1.Alignment = 2 End Sub Private Sub Option3_Click() Text1.Alignment = 1 End Sub Private Sub Option4_Click() Text1.FontName = "宋体" End Sub Private Sub Option5_Click() Text1.FontName = "黑体" 参考答案 第1个,处填入:Timer1.Enabled = False 第2个,处填入:30 第3个,处填入:x0 第4个,处填入:Y2 第5个,处填入:b 第1个,处填入:a(n, 1) 第2个,处填入:7 第3个,处填入:a(n, 8) Private Sub Command2_Click() Dim n As Integer For n = 1 To 5 If m < getmark(n) Then m = getmark(n) Next Text3.Text = m For n = 1 To 5 If m = getmark(n) Then Text2.Text = athlete(n) Next n 29套form1 标题测试 在下黄体添加Frame1标题字体，框内添 加Opt1 opt2 标题隶书宋体 Private Sub Command1_Click() Shape1.FillStyle = 3 End Sub Private Sub Command2_Click() Shape1.FillStyle = 2 End Sub 参考答案 第1个,处填入:"A" 第2个,处填入:+n% 第3个,处填入:a 参考答案 第1个,处填入:Exit For 第2个,处填入:Step -1 第3个,处填入:a(j) 第4个,处填入:a(i) 第5个,处填入:61 参考答案 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) < Len(R(i)) Then B = R(i) Next i Text2.Text = Len(B) Text1.Text = Int((Len(s) - UBound(R)) / (UBound(R) + 1) + 0.5) End Sub 30套根据以下各小题设计Visual Basic 应用程序(包括界面和代码) 名称为 form1 标题为控件数组添加一个Cmd1 的数组控件。。。。。。 Private Sub Command1_Click() Text1.Alignment = 0 End Sub Private Sub Command2_Click() Text1.Alignment = 2 End Sub Private Sub Command3_Click() Text1.Alignment = 1 参考答案 第1个,处填入:True 第2个,处填入:abc 第3个,处填入:n 第4个,处填入:Form1 第5个,处填入:Form2 参考答案 第1个,处填入:0 第2个,处填入:SelLength 第3个,处填入:Lcase$(t) 第4个,处填入:Text2 参考答案 n = 0 For k = 1 To 100 If a(k) Mod 3 = 0 Then num = num + 1 b(num) = a(k) End If Next k For i = 1 To num f = True For j = 1 To num - 1 If b(j) > b(j + 1) Then t = b(j) b(j) = b(j + 1) b(j + 1) = t f = False End If Next j If f Then Exit For End If Next i 31在form1的窗体上添加Label1 Label2 标题 身高，体重 参考答案 Option Explicit Private Sub Command1 Click() Text1.Text = InputBox("请输入身高","输入对话框",100,100) Text2.Text = InputBox("请输入体重","输入对话框",100,100) 参考答案 Private Sub Command1_Click() VScroll1.Max = 2400 VScroll1.Min = 100 VScroll1.LargeChange = 200 VScroll1.SmallChange = 20 End Sub Private Sub VScroll1_Change() Picture1.Height = VScroll1.Value End Sub 参考答案 第1个,处填入:Text1.Text 第2个,处填入:List1.ListCount - 1 第3个,处填入:Text1.Text 第4个,处填入:i 参考答案 第1个,处填入:LBound 第2个,处填入:UBound 第3个,处填入:a 第4个,处填入:> 第5个,处填入:a(i) 第6个,处填入:arr1(i) 第7个,处填入:arr2 程序结束 参考答案 Dim sum As Integer Private Sub Calc_Click() Text1.Text = "" For i = 1 To 100 Step 2 Text1.Text = Text1.Text & Arr(i) & Space(5) sum = sum + Arr(i) Next i Print sum End Sub Private Sub Read_Click() ReadData End Sub Private Sub Save_Click() WriteData "dataout.txt", sum End Sub 32form1添加一个标签控件，名称L1标题 请确认，在添加2个 命令按钮，C1 C2标题是 否 宽高300 800 Private Sub HS1_Change() Text1.Width = HS1.Value End Sub 参考答案 第1个,处填入:ListCount 第2个,处填入:List2 第3个,处填入:k 第4个,处填入:ListIndex 参考答案 Private Sub C1_Click() Dim s As Integer Dim i As Integer Dim j As Integer temp = 1 For i = 0 To 2 If Op1(i).Value = True Then s = Val(Op1(i).Caption) End If Next i For j = 1 To s temp = temp * j Next j Text1.Text = temp End Sub 参考答案 第1个,处填入:2 第2个,处填入:a 第3个,处填入:2 "转换"按钮的事件过程: Private Sub C2_Click() Text1.Text = UCase(Text1.Text) End Sub 33添加Label1 Label2 书名 作者 2个文本框 参考答案 Private Sub Command1_Click() Form1.Caption = Text1 + "," + Text2 步骤2:编写程序代码。 参考答案 Private Sub HScroll1_Change() Form1.Width = HScroll1.Value End Sub Private Sub VScroll1_Change() Form1.Height = VScroll1.Value End Sub End Sub 参考答案 第1个,处填入:Text1 第2个,处填入:List1.ListCount-1 第3个,处填入:Text1 第4个,处填入:i 参考答案 第1个,处填入:LBound 第2个,处填入:UBound 第3个,处填入:0 第4个,处填入:a(i) 第5个,处填入:Sum / 4 第6个,处填入:arr2 参考答案 Private Sub Calc_Click() Text1.Text = "" For i = 1 To 100 If (Arr(i) Mod 3) = 0 Then Text1.Text = Text1.Text & Arr(i) & Space(5) sum = sum + Arr(i) End If Next i Print sum End Sub Private Sub Read_Click() ReadData End Sub Private Sub Save_Click() WriteData "dataout.txt", sum End Sub 34添加一个标签 标题 为输入信息 一个文本框， 国 字 参考答案 Private Sub Command1_Click() Form1.Print Text1.Text Label1.Visible = False Text1.Visible = False 参考答案 Private Sub HScroll1_Change() Text1.FontSize = HScroll1.Value End Sub 参考答案 第1个,处填入:Text1.Text 第2个,处填入:List1.ListCount - 1 第3个,处填入:Text1.Text 第4个,处填入:i 参考答案 第1个,处填入:LBound 第2个,处填入:UBound 第3个,处填入:4 第4个,处填入:3 第5个,处填入:> 参考答案 Private Sub Calc_Click() Text1.Text = "" For i = 1 To 100 If Arr(i) >= 50 Then Text1.Text = Text1.Text & Arr(i) & Space(5) sum = sum + Arr(i) Next i Print sum End Sub Private Sub Read_Click() ReadData End Sub Private Sub Save_Click() WriteData "dataout.txt", sum End Sub 35添加标签Label 标题空白 ，Bordstyle属性为1 Visible 属性 为 False 参考答案 Private Sub Command1_Click() Label1.Visible = True Label1.Caption = Text1.Text Text1.Visible = False End Sub 参考答案 Private Sub HScroll1_Change() Text1.Height = HScroll1.Value Text1.Width = 1.2 * Text1.Height End Sub 参考答案 第1个,处填入:Text1 第2个,处填入:List1.ListCount - 1 第3个,处填入:Text1.Text 第4个,处填入:i 参考答案 第1个,处填入:LBound 第2个,处填入:UBound 第3个,处填入:4 第4个,处填入:3 第5个,处填入:< 参考答案 Private Sub Calc_Click() Text1.Text = "" For i = 1 To 100 If Arr(i) < 50 Then Text1.Text = Text1.Text & Arr(i) & Space(5) sum = sum + Arr(i) End If Next i Print sum End Sub Private Sub Read_Click() ReadData End Sub Private Sub Save_Click() WriteData "dataout.txt", sum End Sub 36添加一个标签 标题为 设置速度 Private Sub Command1_Click() Shape1.Shape = 3 End Sub Private Sub Command2_Click() Shape1.BorderColor = &HFF& End Sub 参考答案 第1个,处填入:Index 第2个,处填入:True 第3个,处填入:Form1.Width 第4个,处填入:0 参考答案 第1个,处填入:Option1(0)(Value 第2个,处填入:Option2.Value 第3个,处填入:s 参考答案 Private Sub Command1_Click() Dim max As Integer max = 0 For i = 1 To 4 For j = 1 To 4 If a(i, j) > max Then max = a(i, j) End If Next j Next i Label3 = max save Label3 End Sub Private Sub Command2_Click() Dim sum As Integer sum = 0 For i = 1 To 4 For j = 1 To 4 If i = j Then sum = sum + a(i, j) End If Next j Next i Label4 = sum save Label4 37添加Label标题为 滚动条控件 一个HScroll水平滚动条 范围1 到100 高300宽3000初始位置20 参考答案 Private Sub Form_Load() Timer1.Enabled = True End Sub Private Sub Timer1_Timer() Shape1.Top = Shape1.Top + 100 End Sub 参考答案 第1个,处填入:Check1.Value 第2个,处填入:"" 第3个,处填入:"#" 第4个,处填入:Text2 参考答案 第1个,处填入:5 第2个,处填入:x 第3个,处填入:x 第4个,处填入:> 参考答案 Dim i As Integer, n As Integer For i = 1 To 7 If a(i, 1) Mod 7 = 0 Then n = n + 1 ElseIf a(1, i) Mod 7 = 0 Then n = n + 1 ElseIf a(7, i) Mod 7 = 0 Then n = n + 1 ElseIf a(i, 7) Mod 7 = 0 Then n = n + 1 End If Next i lblFirst = n For i = 1 To 7 sum = sum + a(1, i) + a(i, 1) + a(7, i) + a(i, 7) Next sum = sum - a(1, 7) - a(1, 7) - a(7, 1) - a(7, 7) lblSecond = sum 38添加Command1 含3个命令按钮 属性 依次为 是 否 取消 我是女生 参考答案 Private Sub shape1_Click() Sha1.Shape = 1 End Sub Private Sub shape2_Click() Sha1.Shape = 3 End Sub 参考答案 Private Sub C1_Click() If Ch2.Value And Ch1.Value Then Text2 = "我的爱好是体育音乐" ElseIf Ch2.Value And Ch1.Value = False Then Text2 = "我的爱好是音乐" ElseIf Ch1.Value And Ch2.Value = False Then Text2 = "我的爱好是体育" Else Text2 = "" End If If Op1.Value Then Text1 = "我是男生" ElseIf Op2.Value Then Text1 = "我是女生" Else Text1 = "" End If End Sub 参考答案 第1个,处填入:0 第2个,处填入:1000 第3个,处填入:List1.List(i) 参考答案 Option Explicit Private Sub Command1_Click() Dim a As String Dim s As String Open App.Path & "\in5.txt" For Input As #1 Do While Not EOF(1) a = Input(1, #1) s = s & a Loop Close #1 Text1 = s End Sub Private Sub Command2_Click() Dim str As String Dim n1 As Integer Dim n2 As Integer Dim n3 As Integer Dim n4 As Integer Dim n5 As Integer Dim n6 As Integer Dim i As Integer For i = 1 To Len(Text1) str = Mid(Text1, i, 1) Select Case str Case "i", "I" n1 = n1 + 1 Case "j", "J" n2 = n2 + 1 Case "k", "K" n3 = n3 + 1 Case "l", "L" n4 = n4 + 1 Case "m", "M" n5 = n5 + 1 Case "n", "N" n6 = n6 + 1 End Select Next Text1 = "字母i或I出现的次数为" & Format(n1, "00") & vbCrLf Text1 = Text1 & "字母j或J出现的次数为" & Format(n2, "00") & vbCrLf Text1 = Text1 & "字母k或K出现的次数为" & Format(n3, "00") & vbCrLf Text1 = Text1 & "字母l或L出现的次数为" & Format(n4, "00") & vbCrLf Text1 = Text1 & "字母m或M出现的次数为" & Format(n5, "00") & vbCrLf Text1 = Text1 & "字母n或N出现的次数为" & Format(n6, "00") End Sub 39 计算机等级考试 程序设计 粗体斜体 参考答案 Private Sub Command1_Click() Text1.FontBold = True End Sub Private Sub Command2_Click() Text1.FontItalic = True End Sub 参考答案 第1个,处填入:Index 第2个,处填入:Text1 Private Sub C1 Click() Timer1.Enabled = True End Sub Private Sub C2 Click() Timer1.Enabled = False End Sub 参考答案 第1个,处填入:a(i) 第2个,处填入:n < i 第3个,处填入:n 第4个,处填入:a(j + 1) 第5个,处填入:n 参考答案 第1个,处填入:Text1.SelLength 第2个,处填入:a(n) + 1 第3个,处填入:1 第4个,处填入:max n < a(j) 第5个,处填入:a(i) = max n 40设计visual Basic应用程序包括界面和代码在名称为Form1的 窗体上添加名称为CD1的通用对话框 参考答案 Private Sub menu2_Click() menu1.Enabled = True End Sub 参考答案 第1个,处填入:> 第2个,处填入:x 第3个,处填入:< 第4个,处填入:y 参考答案 第1个,处填入:List1, List2 第2个,处填入:List1.Text 第3个,处填入:List1.ListIndex 第4个,处填入:List1.ListCount - 1 参考答案 For i = 1 To 7 For j = 1 To 7 If i = j Then Sum = Sum + a(i, j) Next j Next i For i = 1 To 7 For j = 1 To 7 If i = j Or i = 8 - j And a(i, j) Mod 3 = 0 Then Counter = Counter + 1 End If Next j Next i lblFirst = Counter lblSecond = Sum 41标题为图片练习 一个Image1.宽高1800 1200 Private Sub Command1_Click() List1.AddItem List1.Text List1.RemoveItem List1.ListIndex End Sub Private Sub Command2_Click() List1.RemoveItem List1.ListIndex 参考答案 第1个,处填入:True 第2个,处填入:+ 第3个,处填入:- 参考答案 第1个,处填入:1 第2个,处填入:> 第3个,处填入:< 第4个,处填入:Sum 参考答案 Private Sub Command2_Click() '考生编写 Dim sum As Long Dim min As Long Dim b(20) As Integer For i = 1 To 20 min = a(i, 1) For j = 1 To 5 If a(i, j) < min Then min = a(i, j) End If Next j b(i) = min Next i sum = 0 For i = 1 To 20 sum = sum + b(i) Next Text2 = sum / 20 42添加名称为shape1的形状控件 设置为椭圆 短轴800长轴 1600 参考答案 Private Sub List1_Click() HS.Width = List1.Text End Sub 参考答案 第1个,处填入:Index 第2个,处填入:n 第3个,处填入:n + 2 第4个,处填入:n 第5个,处填入:f1 程序结束 参考答案 第1个,处填入:s 第2个,处填入:s, s1 第3个,处填入:<> 第4个,处填入:n 参考答案 Private Sub C1_Click() Dim i As Integer For i = 17999 To 1 Step -1 If isprime(i) Then Text1 = i Exit For End If Next End Sub Private Sub C2_Click() Open App.Path & "\out5.txt" For Output As #1 Print #1, Text1.Text Close #1 End Sub 43 form1添加3个单选按钮，窗体标题为设置单选按钮属性 按 钮1 按钮2 按钮3 选中 不可见 Private Sub Command1_Click() VScroll1.Max = Form1.Height VScroll1.Min = 0 VScroll1.LargeChange = 50 VScroll1.SmallChange = 10 End Sub Private Sub VScroll1_Change() Print VScroll1.Value End Sub 参考答案 第1个,处填入:1000 第2个,处填入:0 第3个,处填入:arrN(i)<500 第4个,处填入:Sum+arrN(i) 参考答案 Function Fun() Dim s As Long, i As Integer s = 0 For i = 0 To 100 If i Mod 2 = 0 Then s = s + i ^ 2 End If Next i Fun = s 参考答案 第1个,处填入:Mat(N, M) As Integer 第2个,处填入:For Input 第3个,处填入:Input #1, Mat(i, j) 第4个,处填入:i + j=6 44添加列表框 标题为列表框的使用属性 北京山西辽宁浙江广 东 参考答案 Private Sub Cmd1_Click() Image1.Picture = LoadPicture(App.Path & "\图片.jpg") End Sub Private Sub Cmd2_Click() Image1.Picture = LoadPicture("") End Sub 参考答案 第1个,处填入:x 第2个,处填入:flag 第3个,处填入:a(k) 第4个,处填入:max 第5个,处填入:num 第1个,处填入:List1.AddItem 第2个,处填入:List1.ListCount - 1 第3个,处填入:i 第4个,处填入:List1.AddItem 第5个,处填入:End 参考答案 第1个,处填入:99 第2个,处填入:i-1 第3个,处填入:i - 1 第4个,处填入:num 第5个,处填入:i 45等级考试 窗体标题为设置标签属性 左边界500顶边界300 参考答案 Private Sub Command1_Click() HScroll1.Max = Form1.Width HScroll1.Min = 0 HScroll1.LargeChange = 50 HScroll1.SmallChange = 10 End Sub Private Sub HScroll1_Change() Print HScroll1.Value End Sub 参考答案 第1个,处填入:1001 第2个,处填入: 0 第3个,处填入:Sum + arrN(i) 第4个,处填入:Sum / 20 参考答案 Function Fun() Dim s As Integer, i As Integer For i = 0 To 200 If i Mod 3 = 0 Then s = s + i End If Next i Fun = s End Function 参考答案 Private Sub Command2_Click() '考生编写 Dim q As Long For m = 1 To 12 q = 0 For n = 1 To 10 q = q + a(m, n) Next n s(m) = Int(q / 10) Next m End Sub 46添加一个名称为C1标题为变宽的命令按钮 参考答案 Private Sub C1_Click() C1.Width = C1.Width + 100 End Sub 参考答案 Private Sub L1_Click() Shape1.Shape = L1.Text End Sub 参考答案 第1个,处填入:calc(i) 第2个,处填入:Option1(i)(Caption 第3个,处填入:Val(Text1) 第4个,处填入:= 1 第5个,处填入:result 参考答案 第1个,处填入:False 第2个,处填入:500 第3个,处填入:Form1.Width 第4个,处填入:0 参考答案 Private Sub Command1_Click() Dim sum As Long For i = 1 To n If arr(i) >= 60 Then Text4 = Val(Text4) + 1 Else Text3 = Val(Text3) + 1 End If sum = sum + arr(i) Next Text2 = Int(sum / n + 0.5) Text1 = n End Sub 47添加一个水平滚动条，窗体标题为设置滚动条属性 最大值和 最小值分别是200和0 初始位置100 考答案 Private Sub Form_Click() Text1.Top = 0 Text1.Left = 0 End Sub Private Sub Text1_Change() Text1.Top = 0 Text1.Left = Form1.Width - Text1.Width End Sub 参考答案 第1个,处填入:1001 第2个,处填入:0 第3个,处填入:arrN(i) > 500 或500 0 Then s = s + i End If Next i Fun = s End Function 参考答案 第1个,处填入:Mat(5,5)As Integer 或Mat(N, M)As Integer 第2个,处填入:For Input 第3个,处填入:Input#1，Mat(i，j) 第4个,处填入:0 第5个,处填入:Sum=Sum+Mat(3，j) 48 文本框练习 添加text1kuandu 1600初始文本为空 字号三号 步骤2:编写程序 代码。 参考答案 Private Sub Command1_Click() Label1.FontSize = Label1.FontSize + 2 End Sub Private Sub Command2_Click() Label1.FontSize = 12 End Sub 参考答案 第1个,处填入:Index 第2个,处填入:True 第3个,处填入:False 第4个,处填入:60 第5个,处填入:i - 1 参考答案 Private Sub Command2_Click() Dim sum As Long Dim max As Integer For i = 1 To 20 max = a(i, 1) For j = 1 To 5 If a(i, j) > max Then max = a(i, j) End If Next j sum = sum + max Next i Text2 = Int(sum / 20) 参考答案 第1个,处填入:0 第2个,处填入:c 第3个,处填入:x 第4个,处填入:m + 1 49标题为考试Combo1 初涉文本为空的下拉式组合框 隶书 宋体 楷体 参考答案 Private Sub Command1_Click() Text1.Enabled = True End Sub Private Sub Text1_Change() Text2 = UCase(Text1) End Sub 参考答案 Private Sub Command2_Click() '考生编写 Dim i As Integer For i = 1 To 10 b = a(i) a(i) = a(21 - i) a(21 - i) = b Next i '以下程序段将已变换的数组元素显示在Text2文本框中 For k = 1 To 20 Text2 = Text2 + Str(a(k)) + Space(2) Next k 参考答案 第1个,处填入:Text1.SelLength = 0 第2个,处填入:sl 第3个,处填入:n 第4个,处填入:26 参考答案 第1个,处填入:n - 1 第2个,处填入:stud(n)(Num 第3个,处填入:j 第4个,处填入:Average 第5个,处填入:stud(j) 50列表框练习内容xxx ddd mmm aaa 计算机等级考试 宋体 字号12 缩小还原 参考答案 Private Sub Command1_Click() Label1.FontSize = Label1.FontSize - 2 End Sub Private Sub Command2_Click() Label1.FontSize = 12 End Sub 参考答案 第1个,处填入:<> 第2个,处填入:Or 第3个,处填入:num 第4个,处填入:> 参考答案 第1个,处填入:Avg 第2个,处填入:Is >= 85 第3个,处填入:Is >= 60 第4个,处填入:End Select 第5个,处填入:n - 1 参考答案 Private Sub Command2_Click() Dim sum As Long Dim max As Long Dim b(20) As Integer For i = 1 To 20 sum = 0 For j = 1 To 5 sum = a(i, j) + sum Next j b(i) = sum / 5 Next i max = b(1) For i = 1 To 20 If b(i) > max Then max = b(i) Next Text2 = max End Sub