2022年二级VB程序设计题库 .pdf

《2022年二级VB程序设计题库 .pdf》由会员分享，可在线阅读，更多相关《2022年二级VB程序设计题库 .pdf（24页珍藏版）》请在淘文阁 - 分享文档赚钱的网站上搜索。

1、题号1.判断是不是素数2.汉字的字幕滚动(祝你考试成功) 3 拨号盘4.字幕放大5.画板6.调色板7.复制黏贴8.改变圆大小9.添加删除10.密码检测11.健康称12.最大化13.居中斜体设置14.字符排序15.滚动条数字移动16.替换17.反弹球18.框架19.图片欣赏20.字体设置21.单选按钮日期22.复制选框点餐23.连表框过滤24.字幕闪烁25.滚动条改变字号26.单选按钮倒计时27.坐标系28.连表迁移30.新旧密码31.电子钟32.文本框计算成绩33.偶数迁移35.文本框计算商品36.加法器1.判断是不是素数Private Sub Command1_Click() x = Val

2、(Text1.Text) For i = 2 To x - 1 If x Mod i = 0 Then Exit For Next If i x - 1 Then Label3.Caption = Text1.Text & 是素数 Else Label3.Caption = Text1.Text & 不是素数 End If End Sub Private Sub Form_Load() End Sub 2.汉字的字幕滚动Private Sub Command1_Click() If Command1.Caption = 开始 Then Command1.Caption = 结束 Timer1.

3、Enabled = True Else Command1.Caption = 开始 Timer1.Enabled = False End If End Sub Private Sub Form_Load() Timer1.Enabled = False Label1.AutoSize = True Label1.Alignment = 2 名师资料总结 - - -精品资料欢迎下载 - - - - - - - - - - - - - - - - - - 名师精心整理 - - - - - - - 第 1 页，共 24 页 - - - - - - - - - Timer1.Interval = 10

4、0 End Sub Private Sub Timer1_Timer() Label1.Left = Label1.Left + 100 If Label1.Left = Form1.Width Then Label1.Left = -Label1.Width End If End Sub 3 拨号器Dim a As String Private Sub Command1_Click(Index As Integer) Text1.Text = Text1.Text & Command1(Index).Index a = Text1.Text End Sub Private Sub Comma

5、nd2_Click() Text1.Text = Timer1.Enabled = True End Sub Private Sub Form_Load() Timer1.Enabled = False End Sub Private Sub Timer1_Timer() Static i As Integer i = i + 1 b = Mid(a, i, 1) If i Len(a) Then Timer1.Enabled = False i = 0 Else Text1.Text = Text1.Text & b End If End Sub 4.字幕放大Private Sub Comm

6、and1_Click() If Command1.Caption = 开始 Then Command1.Caption = 结束 名师资料总结 - - -精品资料欢迎下载 - - - - - - - - - - - - - - - - - - 名师精心整理 - - - - - - - 第 2 页，共 24 页 - - - - - - - - - Timer1.Enabled = True Else Command1.Caption = 开始 Timer1.Enabled = False End If End Sub Private Sub Form_Load() Timer1.Enabled

7、= False Label1.AutoSize = True Label1.Alignment = 2 Timer1.Interval = 200 End Sub Private Sub Timer1_Timer() Label1.FontSize = Label1.FontSize + 2 End Sub 5.画板Picture1.Cls End Sub Private Sub Form_Load() End Sub Private Sub Option1_Click() Picture1.DrawWidth = 1 End Sub Private Sub Option2_Click() P

8、icture1.DrawWidth = 5 End Sub Private Sub Picture1_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single) If Button = 1 Then 名师资料总结 - - -精品资料欢迎下载 - - - - - - - - - - - - - - - - - - 名师精心整理 - - - - - - - 第 3 页，共 24 页 - - - - - - - - - Picture1.PSet (X, Y), CommonDialog1.Color Print

9、Picture1.CurrentX, Picture1.CurrentY End If End Sub 6.调色板Private Sub Command1_Click() Label2.ForeColor = Shape1.FillColor End Sub Private Sub Form_Load() End Sub Private Sub HScroll1_Scroll(Index As Integer) Shape1.FillColor = RGB(HScroll1(0).Value, HScroll1(1).Value, HScroll1(2).Value) End Sub 7.复制

10、黏贴Option Explicit Private Sub Command1_Click() Clipboard.SetText Text1.SelText End Sub Private Sub Command2_Click() Clipboard.Clear Clipboard.SetText Text1.SelText Text1.SelText = End Sub Private Sub Command3_Click() Text1.SelText = Clipboard.GetText() End Sub Private Sub Command4_Click() Text1.SelT

11、ext = End Sub Private Sub Form_Load() End Sub 名师资料总结 - - -精品资料欢迎下载 - - - - - - - - - - - - - - - - - - 名师精心整理 - - - - - - - 第 4 页，共 24 页 - - - - - - - - - 8.改变圆大小Private Sub Form_Load() Shape1.Width = 3400 Shape1.Height = 3400 Shape1.Left = 500 Shape1.Top = 500 Label2.Caption = 3400 HScroll1.Value =

12、 3400 End Sub Private Sub HScroll1_Change() Call HScroll1_Scroll End Sub Private Sub HScroll1_Scroll() Shape1.Width = HScroll1 Shape1.Height = HScroll1 Shape1.Left = 2200 - HScroll1.Value / 2 Shape1.Top = 2200 - HScroll1.Value / 2 Label2.Caption = HScroll1.Value End Sub 9.添加删除Private Sub Command1_Cl

13、ick() If Text1.Text = Then MsgBox 没有内容，不予添加 Else List1.AddItem Text1.Text, 0 For i = List1.ListCount To 1 Step -1 List1.List(i) = List1.List(i - 1) Next List1.List(0) = Text1.Text Text1.Text = End If Text1.SetFocus End Sub Private Sub Command2_Click() If List1.ListIndex = -1 Then MsgBox 请选择要删除的项目 El

14、se List1.RemoveItem List1.ListIndex 名师资料总结 - - -精品资料欢迎下载 - - - - - - - - - - - - - - - - - - 名师精心整理 - - - - - - - 第 5 页，共 24 页 - - - - - - - - - End If End Sub Private Sub Form_Load() End Sub 10.密码检测Private Sub Form_Load() End Sub Private Sub Text1_KeyPress(KeyAscii As Integer) Static times As Integ

15、er If KeyAscii = 13 Then If Text1.Text = 1234567 Then Label2.Caption = 欢迎关临 Else times = times + 1 If times = 1 Then Label2.Caption = 密码不符，请再输入一遍 Text1.Text = Else Label2.Caption = 非法用户，请退出 Text1.Enabled = False End If End If End If End Sub 11.健康称Private Sub Command1_Click() Select Case (Text2.Text)

16、 / Val(Text1.Text - 105) Case Is 1.1 Label5.Caption = 偏胖，注意节食 Case Is = 0.9 Label5.Caption = 正常 Case Else Label5.Caption = 偏瘦，增加营养 End Select End Sub Private Sub Form_Load() 名师资料总结 - - -精品资料欢迎下载 - - - - - - - - - - - - - - - - - - 名师精心整理 - - - - - - - 第 6 页，共 24 页 - - - - - - - - - End Sub Private S

17、ub Text1_KeyPress(KeyAscii As Integer) If KeyAscii 57 Then KeyAscii = 0 End Sub Private Sub Text2_KeyPress(KeyAscii As Integer) If KeyAscii 57 Then KeyAscii = 0 End Sub 12.最大化Private Sub cmdmaxsize_Click() If cmdmaxsize.Caption = 最大化 (&L) Then design10 最大化 .WindowState = 2 cmdmaxsize.Caption = 还原 (&

18、B) Else design10 最大化 .WindowState = 0 cmdmaxsize.Caption = 最大化 (&L) End If cmdmaxsize.Left = (design10 最大化 .Width - cmdmaxsize.Width) / 2 cmdmaxsize.Top = (design10 最大化 .Height - cmdmaxsize.Height) / 2 End Sub Private Sub Form_Load() cmdmaxsize.Left = (design10 最大化 .Width - cmdmaxsize.Width) / 2 cmd

19、maxsize.Top = (design10 最大化 .Height - cmdmaxsize.Height) / 2 End Sub 13.居中斜体设置Text1.FontItalic = False Case 斜体 Text1.FontBold = False Text1.FontItalic = True Case 粗体 Text1.FontBold = True Text1.FontItalic = False Case 粗斜体 Text1.FontBold = True Text1.FontItalic = True 名师资料总结 - - -精品资料欢迎下载 - - - - - -

20、 - - - - - - - - - - - - 名师精心整理 - - - - - - - 第 7 页，共 24 页 - - - - - - - - - End Select End Sub Private Sub Form_Load() Combo1.AddItem 左对齐 Combo1.AddItem 居中 Combo1.AddItem 右对齐 Combo2.AddItem 常规 Combo2.AddItem 斜体 Combo2.AddItem 粗体 Combo2.AddItem 粗斜体 End Sub 14.字符排序Dim x() As String * 1 Private Sub Co

21、mmand1_Click() m = Len(Text1.Text) ReDim x(m) As String * 1 For i = 1 To m x(i) = Mid(Text1.Text, i, 1) Next For i = 1 To m - 1 For j = i + 1 To m If x(i) x(j) Then a = x(i): x(i) = x(j): x(j) = a Next Next For i = 1 To m Print x(i); Next Command1.Enabled = False End Sub Private Sub Form_Load() End

22、Sub 15.滚动条字移动Private Sub Command1_Click() End End Sub 名师资料总结 - - -精品资料欢迎下载 - - - - - - - - - - - - - - - - - - 名师精心整理 - - - - - - - 第 8 页，共 24 页 - - - - - - - - - Private Sub Form_Load() HScroll1.Max = Width / 2 HScroll1.Min = 0 End Sub Private Sub HScroll1_Change() Call HScroll1_Scroll End Sub Priv

23、ate Sub HScroll1_Scroll() Label1.Left = HScroll1.Value End Sub 16.替换Private Sub Command3_Click() For i = 1 To Len(Text1.Text) - 1 If Text2.Text = Mid(Text1.Text, i, Len(Text2.Text) Then Text1.SelStart = i Text1.SelLength = Len(Text2.Text) Exit For End If Next If i Len(Text1.Text) - 1 Then MsgBox 没找到

24、！ Else Text1.SelText = Text3.Text End If End Sub Private Sub Form_Load() End Sub 17.反弹球Private Sub Form_Load() Timer1.Enabled = False x = 200 y = 200 End Sub Private Sub mnu_b_Click() x1 = Shape1.Left y1 = Shape1.Top 名师资料总结 - - -精品资料欢迎下载 - - - - - - - - - - - - - - - - - - 名师精心整理 - - - - - - - 第 9 页

25、，共 24 页 - - - - - - - - - Timer1.Enabled = True Timer1.Interval = 100 End Sub Private Sub mnu_s_Click() Timer1.Enabled = False End Sub Private Sub Timer1_Timer() x2 = x1 + x y2 = y1 + y Dim k As Long If x2 + Shape1.Width Me.ScaleWidth Then k = Me.ScaleWidth - Shape1.Left - Shape1.Width x = -200 If y

26、 0 Then Shape1.Move Shape1.Left + k, Shape1.Top + k Else Shape1.Move Shape1.Left + k, Shape1.Top - k End If y1 = Shape1.Top x1 = Shape1.Left GoTo EXT End If If x2 0 Then Shape1.Top = Shape1.Top + k Else Shape1.Top = Shape1.Top - k End If y1 = Shape1.Top x1 = Shape1.Left GoTo EXT End If If y2 0 Then

27、Shape1.Left = Shape1.Left + k 名师资料总结 - - -精品资料欢迎下载 - - - - - - - - - - - - - - - - - - 名师精心整理 - - - - - - - 第 10 页，共 24 页 - - - - - - - - - Else Shape1.Left = Shape1.Left - k End If y1 = Shape1.Top x1 = Shape1.Left GoTo EXT End If If y2 + Shape1.Height Me.ScaleHeight Then k = Me.ScaleHeight - Shape1

28、.Top - Shape1.Height Shape1.Top = Shape1.Top + k y = -200 If x 0 Then Shape1.Left = Shape1.Left + k Else Shape1.Left = Shape1.Left - k End If y1 = Shape1.Top x1 = Shape1.Left GoTo EXT End If Shape1.Top = y2 Shape1.Left = x2 x1 = x2 y1 = y2 EXT: End Sub 18.框架Private Sub Check2_Click() If Check2.Value

29、 = 1 Then Option1.Enabled = True Option2.Enabled = True End If End Sub 名师资料总结 - - -精品资料欢迎下载 - - - - - - - - - - - - - - - - - - 名师精心整理 - - - - - - - 第 11 页，共 24 页 - - - - - - - - - Private Sub Command1_Click() Label3.Caption = Combo1.Text + Chr(13) + Text1.Text + Chr(13) + a End Sub Private Sub Form

30、_Load() Combo1.Enabled = False Text1.Enabled = False Option1.Enabled = False Option2.Enabled = False End Sub Private Sub Label3_Click() End Sub Private Sub Option1_Click() If Option1.Value = True Then a = windows 2000 End Sub Private Sub Option2_Click() If Option1.Value = True Then a = windows 98 En

31、d Sub 19.图片欣赏Option Explicit Private Sub Dir1_Change() File1.Path = Dir1.Path If File1.ListCount = 0 Then Picture1.Picture = LoadPicture() End Sub Private Sub Drive1_Change() Dir1.Path = Drive1.Drive End Sub Private Sub File1_Click() If Right(File1.Path, 1) Then Picture1.Picture = LoadPicture(File1.

32、Path & & File1.FileName) Else Picture1.Picture = LoadPicture(File1.Path & File1.FileName) Picture1.Picture = LoadPicture(dir1.Path & File1.FileName) 名师资料总结 - - -精品资料欢迎下载 - - - - - - - - - - - - - - - - - - 名师精心整理 - - - - - - - 第 12 页，共 24 页 - - - - - - - - - End If Print File1.Path Print Dir1.Path E

33、nd Sub Private Sub Form_Load() File1.Pattern = *.bmp;*.gif;*.Jpg End Sub 20.字体设置Private Sub beij_Click() CommonDialog1.Action = 3 Text1.BackColor = CommonDialog1.Color End Sub Private Sub Form_Load() End Sub Private Sub wenzi_Click() CommonDialog1.Action = 3 Text1.ForeColor = CommonDialog1.Color End

34、 Sub Private Sub ziti_Click() CommonDialog1.Flags = 257 CommonDialog1.Action = 4 Text1.FontName = CommonDialog1.FontName Text1.FontSize = CommonDialog1.FontSize Text1.FontBold = CommonDialog1.FontBold Text1.FontItalic = CommonDialog1.FontItalic . End Sub 21.单选按钮日期Private Sub Form_Load() End Sub Priv

35、ate Sub Option1_Click(Index As Integer) Select Case Option1(Index).Index Case 0 名师资料总结 - - -精品资料欢迎下载 - - - - - - - - - - - - - - - - - - 名师精心整理 - - - - - - - 第 13 页，共 24 页 - - - - - - - - - Select Case Weekday(Date) Case 1 a = 7 Case Else a = a - 1 End Select Text1.Text = 今天是星期 & a Case 1 Text1.Text

36、 = 今天是 & Year(Date) & 年 Case 2 Text1.Text = 今天是 & Month(Date) Case 3 Text1.Text = 今天是 & Date End Select End Sub 22.复制选框点餐Option Explicit Private Sub Check1_Click() If Check1.Value = 1 Then Text1.Enabled = True Text1.SetFocus Else Text1.Enabled = False Text1.Text = End If End Sub Private Sub Check2_C

37、lick() If Check2.Value = 1 Then Text2.Enabled = True Text2.SetFocus Else Text2.Enabled = False Text2.Text = End If End Sub Private Sub Check3_Click() If Check3.Value = 1 Then 名师资料总结 - - -精品资料欢迎下载 - - - - - - - - - - - - - - - - - - 名师精心整理 - - - - - - - 第 14 页，共 24 页 - - - - - - - - - Text3.Enabled =

38、 True Text3.SetFocus Else Text3.Enabled = False Text3.Text = End If End Sub Private Sub Command1_Click() Dim Total As Single Total = 0 If Check1.Value = 1 Then Total = Total + 13 * Val(Text1.Text) End If If Check2.Value = 1 Then Total = Total + 18 * Val(Text2.Text) End If If Check3.Value = 1 Then To

39、tal = Total + 25 * Val(Text3.Text) End If MsgBox 一共 & Total & 元, vbOKOnly End Sub Private Sub Frame1_DragDrop(Source As Control, X As Single, Y As Single) End Sub Private Sub Text1_KeyPress(KeyAscii As Integer) If KeyAscii 59 Then KeyAscii = 0 End If End Sub Private Sub Text2_KeyPress(KeyAscii As In

40、teger) If KeyAscii 59 Then KeyAscii = 0 End If End Sub Private Sub Text3_KeyPress(KeyAscii As Integer) If KeyAscii 59 Then KeyAscii = 0 End If End Sub 23.连表框过滤名师资料总结 - - -精品资料欢迎下载 - - - - - - - - - - - - - - - - - - 名师精心整理 - - - - - - - 第 15 页，共 24 页 - - - - - - - - - Private Sub File1_Click() a = I

41、If(Right(File1.Path, 1) , , ) Text1.Text = Dir1.Path + a + File1.FileName Open Text1.Text For Input As #1 Do While Not EOF(1) Line Input #1, a Text2.Text = Text2.Text + a + Chr(13) + Chr(10) Loop Close #1 End Sub Private Sub File1_DblClick() x = Shell(c:windowsnotepad.exe & Text1.Text, vbNormalFocus

42、) End Sub Private Sub Form_Load() File1.Pattern = *.txt End Sub Private Sub Dir1_Change() File1.Path = Dir1.Path End Sub Private Sub Drive1_Change() Dir1.Path = Drive1.Drive End Sub 24.字幕闪烁Dim flag As Integer Private Sub Command1_Click() If Command1.Caption = 开始 Then Command1.Caption = 结束 Timer1.Ena

43、bled = True Else Command1.Caption = 开始 Timer1.Enabled = False End If End Sub Private Sub Form_Load() 名师资料总结 - - -精品资料欢迎下载 - - - - - - - - - - - - - - - - - - 名师精心整理 - - - - - - - 第 16 页，共 24 页 - - - - - - - - - Timer1.Enabled = False Label1.AutoSize = True Label1.Alignment = 2 Timer1.Interval = 200

44、End Sub Private Sub Timer1_Timer() If flag = 1 Then Label1.ForeColor = vbRed flag = 0 Else Label1.ForeColor = vbBlue flag = 1 End If End Sub 25.滚动条改变字号Private Sub Form_Load() HScroll1.Value = 12 Text1.Text = 12 HScroll1.Max = 72 HScroll1.Min = 12 End Sub Private Sub HScroll1_Change() Label1.FontSize

45、 = HScroll1.Value Text1.Text = HScroll1.V alue End Sub Private Sub HScroll1_Scroll() Call HScroll1_Change End Sub 26.单选按钮倒计时Option Explicit Private i As Long Private Sub Command1_Click() Command1.Enabled = False Timer1.Enabled = True Frame1.Enabled = False End Sub Private Sub Form_Load() Option1.Val

46、ue = True Timer1.Interval = 1000 名师资料总结 - - -精品资料欢迎下载 - - - - - - - - - - - - - - - - - - 名师精心整理 - - - - - - - 第 17 页，共 24 页 - - - - - - - - - Timer1.Enabled = False Command1.Enabled = True End Sub Private Sub Option1_Click() i = 60 End Sub Private Sub Option2_Click() i = 5 * 60 End Sub Private Sub

47、Option3_Click() i = 10 * 60 End Sub Private Sub Timer1_Timer() i = i - 1 Label1.Caption = (i 60) & 分 & (i Mod 60) & 秒 If i = 0 Then Timer1.Enabled = False Label1.Caption = 时间到 Command1.Enabled = True Frame1.Enabled = True End If End Sub 27.坐标系Option Explicit Private Sub Command1_Click() Picture1.Dra

48、wWidth = 3 Picture1.Scale (-10, -10)-(10, 10) Picture1.Line (0, -10)-(0, 10) Picture1.Line (-10, 0)-(10, 0) Picture1.CurrentX = 1 Picture1.CurrentY = 1 Picture1.Print (0,0) End Sub 名师资料总结 - - -精品资料欢迎下载 - - - - - - - - - - - - - - - - - - 名师精心整理 - - - - - - - 第 18 页，共 24 页 - - - - - - - - - Private S

49、ub Command2_Click() Dim Pi As Double Pi = 3.1415926 Picture1.DrawWidth = 2 Picture1.FillStyle = 0 Picture1.FillColor = vbGreen Picture1.Circle (0, 0), 7, vbRed, -Pi / 6, -5 * Pi / 6 End Sub Private Sub Command3_Click() End End Sub Private Sub Form_Load() End Sub 28.连表迁移Private Sub Command1_Click() I

50、f List1.ListIndex = -1 Then MsgBox 请选择 Else List2.AddItem List1.Text List1.RemoveItem List1.ListIndex End If End Sub Private Sub Command2_Click() Do While List1.ListCount 0 List2.AddItem List1.List(0) List1.RemoveItem 0 Loop End Sub 其他两个 Text1.Text Then If flag = 1 Then Label1.BackColor = vbRed flag