VB题库上机答案.doc

1、第一套（窗体标题 设置按钮属性 命令按钮 等级考试）运行后 命令按钮不可见 命令按钮标题 字号 字体用三号字黑体Private Sub Form_Click()Label1.Top = 0Label1.Left = Form1.Width - Label1.WidthEnd Sub参考答案第1个？处填入：1001第2个？处填入：Min第3个？处填入：arrN(i) arrN(i)Function Fun()Dim s As Integer, i As IntegerFor i = 0 To 1000If i Mod 7 a(j + 1) Thent = a(j + 1)a(j + 1) = a

2、(j)a(j) = tEnd IfNext jNext iFor j = 1 To 50ch = ch + Str(a(j) + “Next jText2.Text = chEnd Sub第十套 Liable1 Liable2 姓名 年龄参考答案Private Sub Command1_Click()Form1.Print Text1.Text & “,现年“ & Text2.Text & “岁“End Sub参考答案Private Sub Command1_Click()HScroll1.Max = 1500HScroll1.Min = 100HScroll1.LargeChange = 1

3、00HScroll1.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 In

4、tegerDim max As Integern = Len(s)For i = 1 To nk = Asc(Mid$(s, i, 1)If (k = 65 And k = 97 And k = 0 And b = 500 And b = 1000 And b = 1500 And b = 2000 Thenm = 0.3 * b * 0.9End IfText2 = Int(m)End Sub第十五套 名称 FORM1 窗体 标题 改变颜色按钮参考答案Private Sub C1 Click()Form1.BackColor = &HFF&End SubPrivate Sub List1_C

5、lick()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 nIf arr(i) = 60 And arr(i) = 70 And arr(i) = 80 And arr(i) = 90 And arr(i) a(j + 1) Thent = a(j)a(j) = a(j + 1)a(j + 1) =

6、 tf = FalseEnd IfNext jIf f ThenExit ForEnd IfNext 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

7、第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个？处填入

8、：LCase(t)第4个？处填入：Text2参考答案For k = 1 To 100flag = Truei = 2Do While i c(j + 1) Thent = c(j)c(j) = c(j + 1)c(j + 1) = tf = FalseEnd IfNextIf f ThenExit ForEnd IfNext26 套 form1 窗体添加文本框，MultiLine True Scrollbars 2 程序设计Option ExplicitPrivate Sub Cmd1_Click()Cmd1.Left = 0Cmd1.Top = 0End SubPrivate Sub Cmd

9、2_Click()Cmd2.Height = Cmd2.Height * 2Cmd2.Width = Cmd2.Width * 2参考答案第1个？处填入：1000第2个？处填入：Max第3个？处填入：arrN(i) Max或Max b(j + 1) Thent = b(j)b(j) = b(j + 1)b(j + 1) = tf = FalseEnd IfNext jIf f ThenExit ForEnd IfNext i31 在 form1 的窗体上添加 Label1 Label2 标题 身高，体重参考答案Option ExplicitPrivate Sub Command1 Click(

10、) Text1.Text = InputBox(“请输入身高 “,“输入对话框“,100,100) Text2.Text = InputBox(“请输入体重“,“输入对话框“,100,100)参考答案Private Sub Command1_Click()VScroll1.Max = 2400VScroll1.Min = 100VScroll1.LargeChange = 200VScroll1.SmallChange = 20End SubPrivate Sub VScroll1_Change()Picture1.Height = VScroll1.ValueEnd Sub参考答案第1个？处

11、填入：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 IntegerPrivate Sub Calc_Click()Text1.Text = “For i = 1 To 100 Step 2Text1.Text = Text1.Text & Arr(i) & Space(5)sum = sum + Arr

12、(i)Next iPrint sumEnd SubPrivate Sub Read_Click()ReadDataEnd SubPrivate Sub Save_Click()WriteData “dataout.txt“, sumEnd Sub32form1 添加一个标签控件，名称 L1 标题 请确认，在添加 2个命令按钮，C1 C2 标题是 否 宽高 300 800Private Sub HS1_Change()Text1.Width = HS1.ValueEnd Sub参考答案第1个？处填入：ListCount第2个？处填入：List2第3个？处填入：k第4个？处填入：ListIndex

13、参考答案Private Sub C1_Click()Dim s As IntegerDim i As IntegerDim j As Integertemp = 1For i = 0 To 2If Op1(i).Value = True Thens = Val(Op1(i).Caption)End IfNext iFor j = 1 To stemp = temp * jNext jText1.Text = tempEnd Sub参考答案第1个？处填入：2第2个？处填入：a第3个？处填入：2“转换“ 按钮的事件过程：Private Sub C2_Click()Text1.Text = UCas

14、e(Text1.Text)End Sub33 添加 Label1 Label2 书名 作者 2 个文本框 参考答案Private Sub Command1_Click()Form1.Caption = Text1 + “,“ + Text2步骤2：编写程序代码。参考答案Private Sub HScroll1_Change()Form1.Width = HScroll1.ValueEnd SubPrivate Sub VScroll1_Change()Form1.Height = VScroll1.ValueEnd SubEnd Sub参考答案第1个？处填入：Text1第2个？处填入：List

15、1.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 100If (Arr(i) Mod 3) = 0 ThenText1.Text = Text1.Text & Arr(i) & Space(5)sum = sum + Arr(i)End IfNext iPrint sumEnd SubPrivate Sub

16、Read_Click()ReadDataEnd SubPrivate Sub Save_Click()WriteData “dataout.txt“, sumEnd Sub34 添加一个标签 标题 为输入信息 一个文本框， 国 字参考答案Private Sub Command1_Click()Form1.Print Text1.TextLabel1.Visible = FalseText1.Visible = False参考答案Private Sub HScroll1_Change()Text1.FontSize = HScroll1.ValueEnd 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()