计算机二级VB机考题库(7)

1.【操作步骤】

步骤1：打开本题工程文件。 步骤2：分析并编写程序代码。 参考答案

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

步骤3：调试并运行程序，关闭程序后按题目要求存盘。 2.【操作步骤】

步骤1：打开本题工程文件。 步骤2：分析并编写程序代码。 参考答案

第1个？处填入：Filter 第2个？处填入：ShowOpen

第3个？处填入：App.Path & \第4个？处填入：Close #1

步骤3：调试并运行程序，关闭程序后按题目要求存盘。

【综合应用】

【操作步骤】

步骤1：打开本题工程文件。 步骤2：分析并编写程序代码。 参考答案

第1个？处填入：#1

第2个？处填入：Text1.Text 第3个？处填入：n 第4个？处填入：a(k) 第5个？处填入：c

步骤3：调试并运行程序，关闭程序后按题目要求存盘。

33◆◆◆◆◆◆◆◆◆◆◆◆◆◆◆◆◆ 【基本操作】

1.【操作步骤】

步骤1：建立界面，并设置控件的属性。程序中用到的控件及属性见表3.115。

步骤2：调试并运行程序，关闭程序后按题目要求存盘。 2.【操作步骤】

步骤1：建立界面，并设置控件的属性。程序中用到的控件及属性见表3.116。 表3.116 控件 列表框 属性 Name List 设置值 List1 数学 物理 化学 语文 步骤2：编写程序代码。 参考答案

Private Sub Form_Click() List1.List(3) = \End Sub

Private Sub Form_Load() List1.List(3) = \英语\End Sub

步骤3：调试并运行程序，关闭程序后按题目要求存盘。

【简单应用】

1.【操作步骤】

步骤1：建立界面，并设置控件的属性。程序中用到的控件及属性见表3.117～3.119。

参考答案

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 = \黑体\End Sub

步骤3：调试并运行程序，关闭程序后按题目要求存盘。 2.【操作步骤】

步骤1：打开本题工程文件。 步骤2：分析并编写程序代码。 参考答案

第1个？处填入：Timer1.Enabled = False 第2个？处填入：30 第3个？处填入：x0 第4个？处填入：Y2 第5个？处填入：b

步骤3：调试并运行程序，关闭程序后按题目要求存盘。

【综合应用】

【操作步骤】

步骤1：打开本题工程文件。 步骤2：分析并编写程序代码。 参考答案

第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 End Sub

步骤3：调试并运行程序，关闭程序后按题目要求存盘。

34◆◆◆◆◆◆◆◆◆◆◆◆◆◆◆◆◆ 【基本操作】

1.【操作步骤】

步骤1：按照题目要求建立窗体和控件，并设置控件的属性。程序中用到的控件及属性见表3.120。

步骤2：调试并运行程序，关闭程序后按题目要求存盘。 2.【操作步骤】

步骤1：按照题目要求建立窗体和控件，并设置控件的属性。程序中用到的控件及属性见表3.121和表3.122。 表3.121 控件 形状控件 属性 Name Height Width Shape 设置值 Shape1 1000 1000 3

步骤2：编写程序代码。 参考答案

Private Sub Command1_Click() Shape1.FillStyle = 3 End Sub

Private Sub Command2_Click() Shape1.FillStyle = 2 End Sub

步骤3：调试并运行程序，关闭程序后按题目要求存盘。

【简单应用】

1.【操作步骤】

步骤1：打开本题工程文件，并设置控件的属性。程序中用到的控件及属性见表3.123。

表3.123 控件 文本框 命令按钮 属性 Name Text Name Caption 设置值 Text1 C1 转换 步骤2：分析并编写程序代码。 参考答案

第1个？处填入：\第2个？处填入：+n% 第3个？处填入：a

步骤3：调试并运行程序，关闭程序后按题目要求存盘。 2.【操作步骤】

步骤1：打开本题工程文件。 步骤2：分析并编写程序代码。 参考答案

第1个？处填入：Exit For 第2个？处填入：Step -1 第3个？处填入：a(j) 第4个？处填入：a(i) 第5个？处填入：61

步骤3：调试并运行程序，关闭程序后按题目要求存盘。

【综合应用】

【操作步骤】

步骤1：打开本题工程文件，添加两个名称分别是Label1和Label2，标题分别为\单词的平均长度为\和\最长单词的长度为\的标签，以及标题分别为Text1和Text2，初始内容都为空的文本框。

步骤2：分析并编写程序代码。 参考答案

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) = \ 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

步骤3：调试并运行程序，关闭程序后按题目要求存盘。

35◆◆◆◆◆◆◆◆◆◆◆◆◆◆◆◆◆

【基本操作】

1.【操作步骤】

步骤1：建立界面，并设置控件的属性。程序中涉及控件及属性见表3.124。

步骤2：调试并运行程序，关闭程序后按题目要求存盘。 2.【操作步骤】

步骤1：建立界面，并设置控件的属性。程序中涉及的控件及属性见表3.125和表3.126。

步骤2：编写程序代码。 参考答案

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 End Sub

步骤3：调试并运行程序，关闭程序后按题目要求存盘。

【简单应用】

1.【操作步骤】

步骤1：打开本题工程文件，添加一个名称为Text1的文本框，初使文本内容为空，Enabled属性设置为False，并将其PasswordChar属性设置为\

步骤2：分析并编写程序代码。 参考答案

第1个？处填入：True 第2个？处填入：abc 第3个？处填入：n 第4个？处填入：Form1 第5个？处填入：Form2

步骤3：调试并运行程序，关闭程序后按题目要求存盘。 2.【操作步骤】

步骤1：打开本题工程文件。 步骤2：分析并编写程序代码。 参考答案

第1个？处填入：0

第2个？处填入：SelLength 第3个？处填入：Lcase$(t) 第4个？处填入：Text2

步骤3：调试并运行程序，关闭程序后按题目要求存盘。

【综合应用】

【操作步骤】

步骤1：打开本题工程文件。 步骤2：分析并编写程序代码。 参考答案

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

步骤3：调试并运行程序，关闭程序后按题目要求存盘。

36◆◆◆◆◆◆◆◆◆◆◆◆◆◆◆◆◆ 【基本操作】

1.【操作步骤】

步骤1：建立界面，并设置控件的属性。程序中涉及的控件及属性见表3.127。

步骤2：调试并运行程序，关闭程序后按题目要求存盘。 2.【操作步骤】

步骤1：建立界面，并设置控件的属性。程序中用到的控件及属性见表3.128。

步骤2：编写程序代码。 参考答案

Private Sub Command1_Click() List1.AddItem List1.Text

List1.RemoveItem List1.ListIndex End Sub

Private Sub Command2_Click()

List1.RemoveItem List1.ListIndex

End Sub步骤3：调试并运行程序，关闭程序后按题目要求存盘。

【简单应用】

1.【操作步骤】

步骤1：打开本题工程文件，并设置控件的属性。程序中涉及的控件及属性见表3.129。

步骤2：分析并编写程序代码。 参考答案

第1个？处填入：True 第2个？处填入：+ 第3个？处填入：-

步骤3：调试并运行程序，关闭程序后按题目要求存盘。 2.【操作步骤】

步骤1：打开本题工程文件，添加两个标签和一个图片框，属性见下表3.130。

步骤2：分析并编写程序代码。 参考答案

第1个？处填入：1 第2个？处填入：> 第3个？处填入：< 第4个？处填入：Sum

步骤3：调试并运行程序，关闭程序后按题目要求存盘。

【综合应用】

【操作步骤】

步骤1：打开本题工程文件，添加一个标题为\各行最小数的平均值为\的标签Label2，再添加一个初始内容为空的文本框Text2。

步骤2：分析并编写程序代码。 参考答案

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 End Sub

步骤3：调试并运行程序，关闭程序后按题目要求存盘。

37◆◆◆◆◆◆◆◆◆◆◆◆◆◆◆◆◆ 【基本操作】

1.【操作步骤】

步骤1：按题目要求添加控件，并设置其属性。程序中用到的控件及属性见表3.131。

步骤2：调试并运行程序，关闭程序后按题目要求存盘。 2.【操作步骤】

步骤1：程序中用到的控件及属性见表3.132。

步骤2：编写程序代码。 参考答案

Private Sub List1_Click() HS.Width = List1.Text End Sub

步骤3：调试并运行程序，关闭程序后按题目要求存盘。

【简单应用】

1.【操作步骤】

步骤1：打开本题工程文件。 步骤2：分析并编写程序代码。 参考答案

第1个？处填入：Index 第2个？处填入：n 第3个？处填入：n + 2 第4个？处填入：n 第5个？处填入：f1

步骤3：调试并运行程序，关闭程序后按题目要求存盘。 2.【操作步骤】

步骤1：打开本题工程文件。 步骤2：分析并编写程序代码。

百度搜索“77cn”或“免费范文网”即可找到本站免费阅读全部范文。收藏本站方便下次阅读，免费范文网，提供经典小说综合文库计算机二级VB机考题库(7)在线全文阅读。