【心得筆記】VB「基本控制元件」解題步驟 - 在鍵盤上飛舞的日子

字體：小中大

【心得筆記】VB「基本控制元件」解題步驟

2009/01/11 16:54:26瀏覽1344｜回應0｜推薦0

這是我參加「中華民國電腦技能基金會」Visual Basic 2003「試窗程式設計認證」的心得筆記，詳實紀錄每題解題步驟，不僅是我的學習歷程，希望也能對於準備參加這項技能認證的同學，有所助益。

Visual Basic 102試題程式碼

Private Sub Command1_Click()
ans = Val("&H" & Text1.Text)
MsgBox "這個數字轉成十進位是" & ans, , "MSGBOX"
End Sub

Visual Basic 104試題程式碼

'本段程式，設定粗體、斜體、底線
Private Sub Check1_Click(Index As Integer)
Select Case Index
    Case 0
      word.FontBold = Check1(0)
    Case 1
      word.FontItalic = Check1(1)
    Case 2
     word.FontUnderline = Check1(2)
End Select
End Sub
'本段程式，設定靠左、靠右、置中
Private Sub Option1_Click(Index As Integer)
word.Alignment = Index
End Sub
'本段程式，設定字體大小
Private Sub Combo1_click()
word.FontSize = Combo1
End Sub

Visual Basic 106試題程式碼

Private Sub Form_Load()
   Me.Show
   Picture1.ForeColor = vbBlue '設其前景色為藍色
   Picture2.ForeColor = vbRed   '設其前景色為紅色
   Picture2.Print "塵緣如夢，幾番起伏總不平"
   Picture1.Print "塵緣如夢，幾番起伏總不平"
   Picture1.Top = Picture2.Top      '使Picture1與Picture
   Picture1.Left = Picture2.Left      '重疊
   Picture1.Width = 0              '將Picture1之寬度設為0
   Picture1.ZOrder 0               '將Picture1置於最上層
End Sub
Private Sub Command1_Click()
Timer1.Enabled = True
End Sub
Private Sub Timer1_Timer()
If Picture1.Width < Picture2.Width Then
     Picture1.Width = Picture1.Width + 50
     Picture1.Cls
     Picture1.Print "塵緣如夢，幾番起伏總不平"
End If
End Sub

Visual Basic 108試題程式碼

Private Sub Command1_Click()   '上
Shape1.Top = Shape1.Top - 50
End Sub
Private Sub Command2_Click()   '左
Shape1.Left = Shape1.Left - 50
End Sub
Private Sub Command3_Click()   '下
Shape1.Top = Shape1.Top + 50
End Sub
Private Sub Command4_Click()   '右
Shape1.Left = Shape1.Left + 50
End Sub
Private Sub Command5_Click()
End
End Sub

Visual Basic 110試題程式碼

Private Sub Command1_Click()
Dim aa As New Form1
aa.Tag = Me.Tag + 1
aa.Top = Me.Top + Me.Height / 10
aa.Left = Me.Left + Me.Width / 10
aa.Caption = "My Form-" & aa.Tag
aa.BackColor = QBColor(aa.Tag Mod 16)
aa.Show
End Sub
Private Sub Command2_Click()
Unload Me
End Sub

》》》延伸閱讀

︱基本控制元件︱控制元件整合︱返回首頁︱

( 心情隨筆｜校園筆記 )