全国计算机二级考试VB机试常见题型汇总.docx

全国计算机二级考试VB机试常见题型汇总.docx

《全国计算机二级考试VB机试常见题型汇总.docx》由会员分享，可在线阅读，更多相关《全国计算机二级考试VB机试常见题型汇总.docx（24页珍藏版）》请在冰豆网上搜索。

全国计算机二级考试VB机试常见题型汇总

几种简单操作

任何情况下，按回车键都相当于单击"是"（C1）按钮；按ESC键都相当于单击"否"（C2）按钮（把C1的Default属性设置为"true", 把C2的Cancel属性性设置为"true"

还需在C2的Click事件中使用C1的SetFocus方法。

Private Sub C2_Click（）

    C1.SetFocus

End Sub

滚动条的刻度值改变文本框的宽度

PrivateSubVsb1_Change（）

Text1.width=hs1.Value

EndSub

当使用Tab键选择控制按钮时，焦点从Cmd2上跳过，直接过渡到Cmd3。

设置Cmd2的TabStop属性为False。

在图片框的中心画出一个点

图片框Picture1、控制按钮Cmd1，标题为"画点"。

（Pset方法的格式为：

对象名.Pset（x，y），其中x，y为点的坐标。

x＝Me.Picture1.Width / 2，y＝Me.Picture1.Height / 2）

1    Private Sub Command1_Click（）

2    Me.Picture1.PSet （Me.Picture1.Width / 2, Me.Picture1.Height / 2）

3    End Sub

单击Cmd1，按钮移动到窗体的左上角

单击Cmd2，按钮在长度和宽度上各扩大到原来的2倍

1    Private Sub Cmd1_Click（）

2    Cmd1.Move 0, 0

3    End Sub

4    Private Sub Cmd2_Click（）

5    Cmd2.Width = Cmd2.Width * 2

6    Cmd2.Height = Cmd2.Height * 2

7    End Sub

新建一个工程，在窗体上创建命令按钮，名称为C1。

创建一个组合框控件，命名为Com1。

程序运行，实现功能单击C1按钮，读取打印机的字体。

并在组合框中的列表框中显示第一种字体。

程序运行时的界面如图所示。

1    Option Explicit

2    Dim i As Integer

3    Private Sub C1_Click（）

4    For i = 0 To Printer.FontCount - 1

5    Com1.AddItem （Printer.Fonts（i））

6    Next

7    Com1.Text = Com1.List（0）

8    End Sub

时间及图形相关题型

有一个圆和一条直线构成一个钟表；单击"开始"按钮，则钟表上的指针（即Line1）开始顺时针旋转（每秒转6?

，一分钟一圈）；单击"停止"按钮，则指针停止旋转1    Dim lenth As Integer, q As Integer

2    Const PI = 3.14159

3    Private Sub Command1_Click（）

4     Timer1.Enabled = True

5    End Sub

6    Private Sub Command2_Click（）

7    Timer1.Enabled = False

8    End Sub

9    Private Sub Form_Load（）

10        lenth = Line1.Y2 - Line1.Y1

11        q = 90

12    End Sub

13    Private Sub Timer1_Timer（）

14        q = q - 6

15        Line1.Y1 = Line1.Y2 - lenth * Sin（q * PI / 180）

16        Line1.X1 = Line1.X2 + lenth * Cos（q * PI / 180）

17    End Sub

4

单击"计时"每秒显示一次，还是每10秒显示一次

1    Dim num

2    Private Sub Command1_Click（）

3        Timer1.Enabled = True

4    End Sub

5    Private Sub Timer1_Timer（）

6         num = num + 1

7        If num < 60 Then

8            If Option1.Value = True Then

9                Text2.Text = num

10            Else

11                If （num / 10 = CInt（Int（num / 10））） Then

12                    Text2.Text = Text2.Text + 10

13                End If

14           End If

15        Else

16            Text2.Text = 0

17            num = 0

18            Text1.Text = Text1.Text + 1

19        End If

20    End Sub

"开始"，该按钮禁用，标题变为"继续"，标签会自左向右移动，每个时间间隔移动20，移动出窗体右边界后，自动从左边界向右移动；

单击"停止"命令按钮，则该按钮变为禁用，"继续"按钮变为有效，同时标签停止移动；再次单击"继续"命令按钮后，标签继续移动。

1    Private Sub Form_Load（）

2    Command1.Caption = "开始"

3    Command2.Caption = "停止"

4    Timer1.Interval = 50

5    Timer1.Enabled = False

6    Label1.Caption = "热烈欢迎"

7    Label1.AutoSize = True

8    Label1.FontSize = 16

9    Label1.FontBold = True

10    End Sub

11    Private Sub Command1_Click（）

12    Command1.Caption = "继续"

13    Timer1.Enabled = True

14    Command1.Enabled = False

15    Command2.Enabled = True

16    End Sub

17    Private Sub Command2_Click（）

18    Timer1.Enabled = False

19    Command2.Enabled = False

20    Command1.Enabled = True

21    End Sub

22    Private Sub Timer1_Timer（）

23    If Label1.Left < Width Then

24    Label1.Left = Label1.Left + 20

25    Else

26    Label1.Left = 0

27    End If

28    End Sub

一个滚动条、一个图像框、一个定时器

窗体上的灯泡会闪烁，而且可以通过滚动条来调节灯泡的闪烁速度1    Private Sub Form_Load（）

2    Me.Image1.Picture = LoadPicture（App.Path & "\light.bmp"）

3    End Sub

4    Private Sub HScroll1_Change（）

5    'Me.Timer1.Interval = Me.HScroll1.value

6    End Sub

7    Private Sub Timer1_Timer（）

8    'Me.Image1.Visible = not Me.Image1.Visible

9    End Sub

数据处理相关的题型

单击"计数"按钮，就从0开始从小到大开始计数，每隔一秒，文本框中的数加 l；

单击"倒计数"按钮，从当前值开始从大到小的计数，每隔一秒减少1，为0时，该控制按钮变为灰色禁用。

PrivateSubForm_Load（）

Me.Text1.Text=0

Me.Command2.Enabled=False

Me.Timer1.Enabled=False

Me.Timer2.Enabled=False

EndSub

DimsAsLong

PrivateSubCommand1_Click（）

Me.Timer1.Enabled=True

Me.Command2.Enabled=True

EndSub

PrivateSubCommand2_Click（）

Me.Timer2.Enabled=True

Me.Timer1.Enabled=False

EndSub

PrivateSubTimer1_Timer（）

s=Val（Me.Text1.Text）

s=s+1

Me.Text1.Text=s

EndSub

PrivateSubTimer2_Timer（）

s=Val（Me.Text1.Text）

s=s-1

Me.Text1.Text=s

Ifs=0Then

Me.Command2.Enabled=False

Me.Timer2.Enabled=False

EndIf

EndSub

"读入文件"，"存结果"

"加密"，：

第奇数个字符，若是字母，则把它变为它后面的字符（若为"Z"则变为"A"），不是字母则不变；对于第偶数个字符，若是字母，则把它变为它前面的字符（若为"A"则变为"Z"），不是字母则不变。

大小写字母都遵循此规则。

1    Command1（读入文件）的事件过程代码如下：

2    Open App.Path & "\inzhyy11.txt" For Input As #1

3    Input #1, s

4    Close #1

5    Me.Text1.Text = s

6    Command2（加密）的事件过程代码如下：

7    Dim l As Integer

8    Dim s0 As String

9    s = Me.Text1.Text

10    l = Len（s）

11    For i = 1 To l

12    s0 = Mid（s, i, 1）

13    If isletter（s0） = True Then

14    If i Mod 2 = 0 Then

15    If s0 = "A" Then

16    s0 = "Z"

17    ElseIf s0 = "a" Then

18    s0 = "z"

19    Else

20    s0 = Chr（Asc（s0） - 1）

21    End If

22    Else

23    If s0 = "Z" Then

24    s0 = "A"

25    ElseIf s0 = "z" Then

26    s0 = "a"

27    Else

28    s0 = Chr（Asc（s0） + 1）

29    End If

30    End If

31    End If

32    Me.Text2.Text = Me.Text2.Text + s0

33    Next I

"显示"，则读入中的文本，并在文本框中显示

"统计"，ASCII码大于等于70而小于等于100的字符个数，

"保存"，则把统计结果存。

Dimsen0AsString

DimsenAsString

PrivateSubCommand1_Click（）

OpenApp.Path&"\inzhyy10.txt"ForInputAs#1

LineInput#1,sen0

sen=sen+sen0

Close#1

Me.Text1.Text=sen

EndSub

PrivateSubCommand2_Click（）

DimnAsInteger

DimoldSenAsString

DimchAsString

oldSen=Text1.Text

strlen=Len（oldSen）

Fori=1Tostrlen

ch=Mid（oldSen,i,1）

IfAsc（ch）>=70AndAsc（ch）<=100Then

n=n+1

EndIf

Nexti

Text1.Text=Me.Text1.Text+Str（n）

EndSub

PrivateSubCommand3_Click（）

OpenApp.Path&"\outzhyy10.txt"ForOutputAs#1

Write#1,Me.Text1.Text

Close#1

EndSub

"读入数据"，读入in005.txt中的100个整数，放入一个数组中（数组下界为1），并显示

"保存数据"按钮，前50个数据在文本框Text1中显示出来，并1    Private Sub Command1_Click（）

2    Dim i（1 To 100） As Integer

3    Dim j As Integer

4    j = 0

5    Open App. Path & "\in005.txt" For Input As #1

6    For j = 1 To 100

7       Input #1, i（j）

8    Next

9    Close #1

10    For j = 1 To 100

11       Text1. Text = Text1. Text & i（j） & Space（5）

12    Next

13    End Sub

14    Private Sub Command2_Click（）

15    Dim temp As Long

16    Dim j As Integer

17    Text1. Text = ""

18    For j = 1 To 50

19       Text1. Text = Text1. Text & i（j） & Space（5）

20    Next

21    putdata i, 50

22    End Sub

输入8个数据，存入out050.txt；

"查找"按钮，输入一个数据，查找，如果找到，显示位置；如果没有找到，"没有该数据"。

PrivateSubCommand1_Click（）

DimsAsInteger

OpenApp.Path&"\out050.txt"ForOutputAs#1

Fors=1To8

b（s）=InputBox（"请输入数据"）

Print#1,b（s）

Nexts

Close#1

EndSub

OptionBase1

Privateb（8）AsVariant

PrivateSubSearch（a（）AsVariant,ByValkeyAsVariant,indexAsVariant）

DimI%

ForI=LBound（a）ToUBound（a）

Ifkey=a（I）Then

index=I

ExitSub

EndIf

NextI

index="没有该数据"

EndSub

PrivateSubCommand2_Click（）

Dimarr

arr=InputBox（"请输入数据"）

CallSearch（b,arr,n）

Text1.Text=n

EndSub

菜单有关的题型、文字处理相关的

弹出菜单：

加粗、斜体、下划线、

1    Private Sub Text1_MouseDown（Button As Integer, Shift As Integer, X As Single, Y As Single）

2    If Button = 2 Then

3    Me.PopupMenu Format

4    End If

5    End Sub

6    Private Sub M1_Click（）

7    Me.Text1.FontBold = True

8    End Sub

9    Private Sub M2_Click（）

10    Me.Text1.FontItalic = True

11    End Sub

12    Private Sub M3_Click（）

13    Me.Text1.FontUnderline = True

14    End Sub

主菜单"应用程序"，两个子菜单项"增加应用程序"和"减少应用程序"及分隔线

单击"增加应用程序"时在分隔线下面增加一个新的菜单项

单击"减少应用程序"时删除分隔线下面一个指定的菜单项

要求：

题目中所给的程序不完整，请读懂程序后将其补充完整，以原文件名保存。

试题源程序：

1    Dim Menucounter As Integer

2    Private Sub AddAp_Click（）

3    msg$ = "Enter file path:

"

4    Temp$ = InputBox$（msg$, "Add Application"）

5    'Menucounter =Menucounter＋1

6    Load AppName（Menucounter）

7    AppName（Menucounter）.Caption = Temp$

8    AppName（Menucounter）.Visible = True

9    End Sub

10    Private Sub DelAp_Click（）

11    Dim N As Integer, I As Integer

12    msg$ = "Enter number to delete:

"

13    N = InputBox（msg$, "Delete Application"）

14    'If N >Menucounter Or N < 1 Then

15    MsgBox "超出范围！

"

16    Exit Sub

17    End If

18    'If N > N Or N < 1 Then

19    '  AppName（I）.Caption = AppName（i＋1）.Caption

20    Next I

21    Unload AppName（Menucounter）

22    Menucounter = Menucounter - 1

23    End Sub

24    Private Sub AppName_Click（Index As Integer）

25    x = Shell（AppName（Menucounter）.Caption, 1）

26    End Sub

打印、帮助、打开、字体、颜色、退出

将"打开"的功能补充完整（限制打开的类型为*.txt和*.exe文件，默认为txt文件）

单击"打开"按钮，选择考生文件夹下的in049.txt，将文本读到文本框中，

并单击"字体"按钮，将文本框中的文字设置为粗斜体。

PrivateSubCommand1_Click（）（打印）

DimiAsInteger

CommonDialog1.CancelError=True

OnErrorGoToCancel

CommonDialog1.Action=5

Fori=1ToCommonDialog1.Copies

PrintForm

Nexti

Cancel:

EndSub

PrivateSubCommand2_Click（）（帮助）

CommonDialog1.CancelError=True

OnErrorGoToCancel

CommonDialog1.HelpCommand=&HB

CommonDialog1.HelpFile="C:

\windows\help\windows.hlp"

CommonDialog1.Action=6

Cancel:

EndSub

PrivateSubCommand3_Click（）（打开）

CommonDialog1.CancelError=True

OnErrorGoToCancel

CommonDialog1.Action=3

Text1.ForeColor=CommonDialog1.Color

Cancel:

EndSub

PrivateSubCommand4_Click（）（字体）

CommonDialog1.Flags=&H3&Or&H1&Or&H2&

CommonDialog1.CancelError=True

OnErrorGoToCancel

CommonDialog1.Action=4

Text1.FontBold=CommonDialog1.FontBold

Text1.FontItalic=CommonDialog1.FontItalic

Text1.FontStrikethru=CommonDialog1.FontStrikethru

Text1.FontName=CommonDialog1.FontName

Text1.FontSize=CommonDialog1.FontSize

Cancel:

EndSub

PrivateSubCommand5_Click（）（颜色）

End

EndSub

PrivateSubCommand6_Click（）（退出）

DimsAsString

CommonDialog1.CancelError=True

OnErrorGoToCancel

CommonDialog1.Filter="（文本文件*.txt）*.txt|*.txt|（可执行文件*.com）*.com|*.com"

CommonDialog1.F