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

》》》延伸閱讀

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