福建省计算机二级vb真题+答案

Private Sub Command1_Click()

Picture1.Print "欢迎参加计算机应用水平考试" End Sub

Private Sub Command2_Click()

Picture1.Cls

End Sub

Private Sub Command1_Click() Text1.Text = ""

Text2.Text = ""

End Sub

Private Sub Text1_Click() Text1.Text = "单击试验成功" End Sub

Private Sub Text2_DblClick() Text2.Text = "双击试验成功" End

Sub

答案略

Private Sub Command1_Click() Combo1.AddItem Combo1.Text

End Sub

Private Sub Command2_Click() Combo1.RemoveItem Combo1.ListIndex End Sub

Private Sub Command1_Click()

If Text2.Text = "123456" Then

Form1.Caption = "系统登录成功" Else

Form1.Caption = "口令错误"

End If

End Sub

Private Sub Option1_Click() Text1.Text = "我是本科生" End Sub

Private Sub Option2_Click() Text1.Text = "我是研究生" End Sub

Private Sub Command1_Click() List2.AddItem List1.Text

End Sub

Private Sub Command2_Click() List2.RemoveItem List2.ListIndex End Sub

Private Sub Command1_Click() Label1.ForeColor = vbRed Label1.Caption = Text1.SelText Text1.SelText = ""

End Sub

Private Sub Command1_Click() Text2.Text = Text1.SelText Text1.SetFocus

End Sub

Private Sub Command1_Click() Text2.Text = LCase(Text1.Text) End Sub

Private Sub Command2_Click() Text2.Text = UCase(Text1.Text) End Sub

Private Sub Command1_Click() Text1.Enabled = False Command1.Enabled = False End Sub

Private Sub Command2_Click() Text2.Text = Text1.Text

Text1.Text = ""

Text1.Enabled = True Command1.Enabled = True End Sub

Private Sub HScroll1_Change()

Text1.ForeColor = RGB(HScroll1.Value, 0, 0) End Sub

Private Sub pfc_Click() Label1.Caption = Val(Text1.Text) ^ 2 - Val(Text2.Text) ^ 2

End Sub Private Sub pfh_Click()

Label1.Caption =

Val(Text1.Text) ^ 2 +

Val(Text2.Text) ^ 2

End Sub

Private Sub qc_Click()

Label1.Caption = ""

Text1.Text = ""

Text2.Text = ""

End Sub

Private Sub clea_Click()

Text1.Text = ""

End Sub

Private Sub dis_Click()

Text1.Text = "计算机等级考试" End Sub

Private Sub cyxy_Click()

'略

End Sub

Private Sub jsy_Click()

Text1.Text = "床前明月光" & vbCrLf & "疑是地上霜" _ & vbCrLf & "举头望明月" & vbCrLf & "低头思故乡" End Sub

Private Sub QC_Click()

Text1.Text = ""

End Sub

Private Sub fontname1_Click()

Text1.FontName = "黑体"

End Sub

Private Sub fontname2_Click()

Text1.FontName = "楷体_GB2312"

End Sub

Private Sub Form_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single) If button = 2 Then

Form1.PopupMenu zt

End If

End Sub

Private Sub Form_Click() Timer1.Enabled = False End Sub Private Sub T1_Click()

Timer1.Enabled = True

End Sub

Private Sub Timer1_Timer()

T1.Text = Time

End Sub

Private Sub Command1_Click() Label1.Caption = "0"

Timer1.Enabled = True

End Sub

Private Sub Command2_Click() Timer1.Enabled = False

End Sub

Private Sub Timer1_Timer()

Label1.Caption = Label1.Caption + 1

End Sub

Private Sub c1_Click()

pic1.Cls

pic1.Line (0, 550)-(1800, 550)

End Sub

Private Sub c2_Click()

pic1.Cls

pic1.Circle (900, 550), 400

End Sub

+

Private Sub Command1_Click() Picture1.cls

Picture1.Line (0, 0)-(1200, 1000),vbred End Sub

Private Sub Command2_Click() Picture1.cls

Picture1.Circle (600, 500), 300, , , , 0.5 End Sub

Private Sub Command1_Click()

Picture1.Line (0, 0)-(1600, 1100), vbRed End Sub

Private Sub Command2_Click()

Picture1.Circle (800, 500), 400, vbBlue, , , 2 End Sub

Private Sub Command1_Click()

Picture1.Cls

Picture1.Circle (1000, 600), 500, vbRed End Sub

Private Sub Command2_Click()

Picture1.Line (646, 246)-(1354, 954), vbBlue End Sub

Private Sub HScroll1_Change()

Shape1.Width = HScroll1.Value

Shape1.Height = HScroll1.V alue

End Sub

Private Sub Command1_Click() Picture1.Cls

Picture1.Line (400, 300)-(1000, 700), , B End Sub

Private Sub Command2_Click() Picture1.Cls

Picture1.Circle (700, 500), 300, , , , 2 End

Sub

答案略

Private Sub HScroll1_Change() Shape1.Width = HScroll1.Value Shape1.Height = HScroll1.V alue

End Sub

Private Sub Command1_Click()

Timer1.Enabled = True

End Sub

Private Sub Command2_Click() Timer1.Enabled = False

End Sub Private Sub Timer1_Timer()

Shape1.Width = Shape1.Width + 20 Shape1.Height = Shape1.Height + 20 Shape1.Left = Shape1.Left - 10 Shape1.Top = Shape1.Top - 10

End Sub

答案略

答案略

Private Sub Command1_Click()

List1.AddItem (Combo1.Text)

End Sub

Private Sub Command2_Click()

MsgBox "你共选了" & List1.ListCount & "门课", , "tjlb" End Sub