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

(1)【操作步骤】

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

第1个？处填入：1

第2个？处填入：tmp * i 第3个？处填入：xn 第4个？处填入：xn(t)

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

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

第1个？处填入：arr 第2个？处填入：Static 第3个？处填入：arr(i) 第4个？处填入：0

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

【综合应用】

【操作步骤】

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

第1个？处填入：9 第2个？处填入：temp 第3个？处填入：j 第4个？处填入：1

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

23◆◆◆◆◆◆◆◆◆◆◆◆◆◆◆◆◆ 【基本操作】

(1)【操作步骤】

步骤1：建立界面，设置窗体的标题为\菜单\，菜单编辑中涉及的属性见表3.73。

表3.73

标题 文件 退出 新建 保存 名称 flie exit new save 内缩符号 0 0 1 1 步骤2：调试并运行程序，关闭程序后按题目要求存盘。 (2)【操作步骤】

步骤1：新建一个窗体，按照题目要求建立图片框控件并设置其属性

步骤2：按照步骤1建立其他控件并设置相关属性，程序中用到的控件及属性见表3.74。

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

Private Sub Command1_Click()

Image1.Left = Image1.Left + 10 End Sub

Private Sub Command2_Click() Image1.Left = 360 End Sub

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

【简单应用】

(1)【操作步骤】

步骤1：打开本题工程文件，设置计时器Timer1的Interval属性为3000，Enabled属性设置为False。 步骤2：分析并编写程序代码。 参考答案

第1个？处填入：2 第2个？处填入：True 第3个？处填入：flag

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

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

第1个？处填入：0

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

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

【综合应用】

【操作步骤】

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

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

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

24◆◆◆◆◆◆◆◆◆◆◆◆◆◆◆◆◆ 【基本操作】

(1)【操作步骤】

步骤1：新建一个窗体，按照题目要求建立形状控件并设置其属性。 程序中用到的控件及属性见表3.75。

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

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

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

Private Sub Command1_Click() Label1.Font = \宋体\End Sub

Private Sub Command2_Click() Label1.Font = \黑体\End Sub

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

【简单应用】

(1)【操作步骤】

步骤1：打开本题工程文件，设置Cmd2的Enabled属性为False。 步骤2：分析并编写程序代码。 参考答案

第1个？处填入：Text1(0) 第2个？处填入：s

第3个？处填入：Cmd1.Enabled 第4个？处填入：Cmd2.Enabled

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

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

第1个？处填入：Input

第2个？处填入：s(i) + a(i, j) 第3个？处填入：s(i) 第4个？处填入：Line2.Y2 第5个？处填入：Visible

步骤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

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

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

25◆◆◆◆◆◆◆◆◆◆◆◆◆◆◆◆◆ 【基本操作】

(1)【操作步骤】

步骤1：新建一个窗体，按照题目要求建立文本框控件并设置其属性。

程序中用到的控件及属性见表3.78。

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

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

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

Private Sub Command1_Click() Text3 = Text1.SelLength Text2 = Text1.SelStart End Sub

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

【简单应用】

(1)【操作步骤】

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

第1个？处填入：Width

第2个？处填入：Shape2.Top 第3个？处填入：Shape1.Left 第4个？处填入：VScroll1.Value

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

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

第1个？处填入：Enabled

第2个？处填入：Timer1.Enabled 第3个？处填入：d 第4个？处填入：t + 1

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

【综合应用】

【操作步骤】

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

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

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

26◆◆◆◆◆◆◆◆◆◆◆◆◆◆◆◆◆ 【基本操作】

(1)【操作步骤】

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

控件 标签1 标签2 属性 Name Caption Name Caption

设置值 Label1 身高 Label2 体重 表3.82 控件 文本框1 文本框2 命令按钮 属性 Name Name Name Caption 设置值 Text1 Text2 Command1 输入 步骤2：分析并编写程序代码。 参考答案

Option Explicit

Private Sub Command1 Click()

Text1.Text = InputBox(\请输入身高\输入对话框\Text2.Text = InputBox(\请输入体重\输入对话框\步骤3：调试并运行程序，关闭程序后按题目要求存盘。 (2)【操作步骤】

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

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

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

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

【简单应用】

(1)【操作步骤】

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

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

第1个？处填入：Text1.Text

第2个？处填入：List1.ListCount - 1 第3个？处填入：Text1.Text 第4个？处填入：i

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

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

参考答案

第1个？处填入：LBound 第2个？处填入：UBound 第3个？处填入：a 第4个？处填入：> 第5个？处填入：a(i) 第6个？处填入：arr1(i) 第7个？处填入：arr2

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

【综合应用】

【操作步骤】

步骤1：打开本题工程文件，利用菜单编辑器，按表3.69中的设置建立菜单项，在窗体Form1中绘制一个文本框，其相关属性设置见表3.85和表3.86。

表3.85 标题控件 读入数据 计算并输出 存盘 名称 Read Calc Save 内缩符号 0 0 0 表3.86 控件 文本框 属性 Name MultiLine ScrollBars Text 设置值 Text1 TRUE 2 步骤2：分析并编写程序代码。 参考答案

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

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

27◆◆◆◆◆◆◆◆◆◆◆◆◆◆◆◆◆ 【基本操作】

1.【操作步骤】

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

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

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

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

Private Sub HS1_Change() Text1.Width = HS1.Value End Sub

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

【简单应用】

1.【操作步骤】

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

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