大学常见的VB编程题大学常见的VB编程题.doc

vb点菜例题 Private Sub cdwh_Click() Form3.Show End Sub Private Sub Command1_Click() If Text3.Text = Then MsgBox (请填写桌次！) Exit Sub End If Form2.Show End Sub Private Sub dc_Click() If Text3.Text = Then MsgBox (请填写桌次！) Exit Sub End If Form2.Show End Sub Private Sub Form_Load() Dim db As New ADODB.Connection Dim dwz As New ADODB.Recordset Dim strCnn As String strCnn = Provider=Microsoft.Jet.OLEDB.4.0;Data Source=food.mdb Set db = New ADODB.Connection 建立连接 db.Open strCnn Set dwz = New ADODB.Recordset 建立记录集 dwz.CursorLocation = adUseClient dwz.CursorType = adOpenStatic dwz.LockType = adLockOptimistic dwz.Open select * from vegetable where bz=1 , db, , , adCmdText 查找出表中所列特价菜 If Not dwz.EOF Then dwz.MoveFirst Else List1.AddItem (今日无特价菜！) End If 2.0欢迎程序 Private Sub Command1_Click() Text1.FontSize = 22 Text1.Text = 欢迎使用Visual Basic 6.0 End Sub Private Sub Command2_Click() Text1.Text = End Sub Private Sub Command3_Click() End End Sub 2.1 输入输出示例 Private Sub Command1_Click() Dim r!, l!, s! r = InputBox(请输入圆的半径： + Chr(13) + Chr(10) + _ 然后单击确定, 输入框, , 1000, 1000) l = 2 * 3.14159 * r s = 3.14159 * r * r Text1.Text = r Text2.Text = l Text3.Text = s End Sub Private Sub Command2_Click() End End Sub Private Sub Form_Load() Text1 = Text2 = Text3 = End Sub 例2.2 简单文本编辑器 Option Explicit Dim str As String Private Sub CmdCopy_Click() str = Text1.SelText End Sub Private Sub CmdCut_Click() str = Text1.SelText Text1.SelText = End Sub Private Sub CmdDel_Click() Text1 = Text2 = End Sub Private Sub CmdExit_Click() End End Sub Private Sub CmdPas_Click() Text2.SelText = str End Sub Private Sub Form_Load() Text1 = Text2 = End Sub 例2.3 用户登录 Option Explicit Dim n% Private Sub Command1_Click() Dim a%, b%,