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

（1）【操作步骤】

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

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

步骤1：新建一个窗体，按照题目要求建立驱动器列表框、目录列表框、文件列表框控件并设置其属性。步骤2：按照步骤1建立其他控件并设置相关属性，程序中用到的控件及属性见表3.44和表3.45。

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

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

【简单应用】

（1）【操作步骤】

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

第1个？处填入：List(i).AddItem Text1.Text 第2个？处填入：48 第3个？处填入：0

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

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

第1个？处填入：m 第2个？处填入：f(i) 第3个？处填入：t 第4个？处填入：t * i 第5个？处填入：t

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

【综合应用】

【操作步骤】

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

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：调试并运行程序，关闭程序后按题目要求存盘。

12◆◆◆◆◆◆◆◆◆◆◆◆◆◆◆◆◆ 【基本操作】

（1）【操作步骤】

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

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

步骤1：建立界面，添加一个命令按钮设置Name属性为Command1，Caption属性为弹出菜单。程序中用到的控件及属性见表3.47。

表3.47 标题 文件 打开 关闭 保存 名称 menu1 m1 m2 m3 内缩符号 0 1 1 1 步骤2：编写程序代码。 参考答案

Private Sub Command1_Click() PopupMenu menu1 End Sub

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

【简单应用】

（1）【操作步骤】

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

第1个？处填入：Text1, 1 第2个？处填入：ch 第3个？处填入：n

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

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

第1个？处填入：True

第2个？处填入：red color 第3个？处填入：Shape1.Left 第4个？处填入：Shape1.Top 第5个？处填入：blue color

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

【综合应用】

【操作步骤】

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

第1个？处填入：2

第2个？处填入：App.Path & \第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 = \ ch = LCase(ch)

ElseIf ch = \ ch = UCase(ch) End If

Text1.Text = Text1 & ch Next End Sub

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

13◆◆◆◆◆◆◆◆◆◆◆◆◆◆◆◆◆ 【基本操作】

（1）【操作步骤】

步骤1：建立界面，并设置控件的属性。程序中的控件及属性见表3.48和3.49。 表3.48 控件 框架1 框架2 属性 Name Caption Name Caption 设置值 Frame1 字号 Frame2 修饰

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

（2）【操作步骤】

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

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

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

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

【简单应用】

（1）【操作步骤】

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

第1个？处填入：st 第2个？处填入：c 第3个？处填入：word

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

步骤1：打开本题工程文件， 设置计时器Interval属性为100，Enabled属性设置为False。 步骤2：分析并编写程序代码。 、

参考答案

？处填入：Left =

Private Sub C1_Click() Timer1.Enabled = True End Sub

Private Sub C2_Click() Timer1.Enabled = False End Sub

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

【综合应用】

【操作步骤】

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

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

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

14◆◆◆◆◆◆◆◆◆◆◆◆◆◆◆◆◆ 【基本操作】

（1）【操作步骤】

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

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

步骤1：新建一个窗体，按照题目要求建立命令按钮控件及通用对话框并设置其属性。程序中用到的控件及属性见表3.52。

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

Private Sub Command1_Click() CommonDialog1.ShowSave End Sub

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

【简单应用】

（1）【操作步骤】

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

第1个？处填入：Y 第2个？处填入：X1

第3个？处填入：radius& 第4个？处填入：Label1

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

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

第1个？处填入：12 第2个？处填入：1 第3个？处填入：s s = 0

For k = 1 To n s = s + f(k) Next

Text1 = s

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

【综合应用】 【操作步骤】

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

Form2中第1个？处：1 Form2中第2个？处：0

Form2中第3个？处：Form1.Label1 Form3中第1个？处：0 Form3中第2个？处：k, 2

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

15◆◆◆◆◆◆◆◆◆◆◆◆◆◆◆◆◆ 【基本操作】

（1）【操作步骤】

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

步骤2：调试并运行程序

关闭程序后按题目要求存盘。 （2）【操作步骤】

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

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

Private Sub Command1_Click()

Image1.Picture = LoadPicture(App.Path & \End Sub

Private Sub Command2_Click()

Image1.Picture = LoadPicture(App.Path & \End Sub

Private Sub Command3_Click() Set Image1.Picture = Nothing End Sub

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

【简单应用】

（1）【操作步骤】

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

第1个？处填入：5 第2个？处填入：a 第3个？处填入：4 第4个？处填入：s 第5个？处填入：Text3

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

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

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

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

【综合应用】

【操作步骤】

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

第1个？处填入：b 第2个？处填入：b 第3个？处填入：n 第4个？处填入：b

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

16◆◆◆◆◆◆◆◆◆◆◆◆◆◆◆◆◆ 【基本操作】

（1）【操作步骤】

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

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

步骤1：新建一个窗体，按照题目要求建立滚动条控件并设置其属性，如图3.64所示。 步骤2：按照步骤1建立其他控件并设置相关属性，程序中用到的控件及属性见表3.57。

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

Private Sub Form_Activate() HScroll1.SetFocus End Sub

Private Sub HScroll1_Change() Text1.Text = HScroll1.Value End Sub

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

【简单应用】

（1）【操作步骤】 步骤1：打开本题工程文件，设置形状控件的Top属性为360，FillStyle属性为0，FillColor属性为&H000000FF&，Shape属性为3。

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

第1个？处填入：True 第2个？处填入：Line1.Y1

第3个？处填入：Shape1.Height

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

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

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

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

【综合应用】

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