189 8069 5689
说明：1.共有4个文本框其，其中三个是填入或输出数据的（名称分别是：txta txtb txtc），剩下的那个是符号(txtd)2.共7个按钮，4个是符号按钮，一个计算，一个清零．这是我弄的程序”袖珍计算器”代码也是自己编写的，代码如下：通用声明Dim j As Integer '定义j为整型
站在用户的角度思考问题，与客户深入沟通，找到南城网站设计与南城网站推广的解决方案，凭借多年的经验，让设计与互联网技术结合，创造个性化、用户体验好的作品，建站类型包括：成都网站设计、网站制作、企业官网、英文网站、手机端网站、网站推广、域名与空间、虚拟空间、企业邮箱。业务覆盖南城地区。
Private Sub Text1_Change()End SubPrivate Sub Command1_Click()
txtfuhao.Text = "+" '将”＋”显示到文本框txtfuhao.Text中
End SubPrivate Sub Command2_Click()
txtfuhao.Text = "-" ''将”-”显示到文本框txtfuhao.Text中
End SubPrivate Sub Command3_Click()
txtfuhao.Text = "×" '将”×”显示到文本框txtfuhao.Text中
End SubPrivate Sub Command4_Click()
txtfuhao.Text = "÷" 将”÷”'显示到文本框txtfuhao.Text中
End Sub
Private Sub Command5_Click()
Dim a, b, c As Integer
a = Val(txta.Text) '将txta.Text里的内容转化为数值型,然后再赋给a
b = Val(txtb.Text) '将txtb.Text里的内容转化为数值型,然后再赋给b
If txtfuhao.Text = "+" Then '运算过程
c = a + b '运算过程
ElseIf txtfuhao.Text = "-" Then '运算过程
c = a - b '运算过程
ElseIf txtfuhao.Text = "÷" Then '运算过程
c = a / b '运算过程
ElseIf txtfuhao.Text = "×" Then '运算过程
c = a * b '运算过程
Else
j = MsgBox("您输入的符号不正确", vbOKOnly, "错误信息")
End If
txtc.Text = c '将运算结果c输出到文本框txtc中
End SubPrivate Sub Command6_Click()
txta.Text = "" '将空字符输入到文本框内（刷新）
txtb.Text = "" '将空字符输入到文本框内（刷新）
txtc.Text = "" '将空字符输入到文本框内（刷新）
txtfuhao.Text = "" '将空字符输入到文本框内（刷新）
End SubPrivate Sub Command7_Click()
End '结束程序
End SubPrivate Sub Form_Load()End Sub
大概的过程：
Imports System.Data
Imports System.Data.SqlClient
--------------
Dim a As New SqlDataAdapter
Dim con As SqlConnection
con = New SqlConnection( "Persist Security Info=False;Integrated Security=SSPI;database=northwind;server=.;Connect Timeout=30")
con.Open()
a.SelectCommand = New SqlCommand("select * from table where c=1", con)
a.UpdateCommand = New SqlCommand("update table set b=2 where c=1", con)
a.DeleteCommand = New SqlCommand("delete from table where c=1", con)
a.InsertCommand = New SqlCommand("insert into table values (1,2,3)", con)
a.SelectCommand.ExecuteNonQuery()
a.UpdateCommand.ExecuteNonQuery()
a.DeleteCommand.ExecuteNonQuery()
a.InsertCommand.ExecuteNonQuery()
con.Close()
a.Dispose()
'我不会计时，因此下面代码中没有计时功能，要你自己去创建。
'Text1 As Label , Sui1 As Button , Sui2 As Button , Sui3 As Button , Fil1 As TextBox , Form1 As Form.
Public Class Form1
Private Sub Sui1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Sui1.Click
Dim i As Random = New Random
Dim iText As String = ""
For mn As Int16 = 1 To 30
Dim si As Int16 = i.Next(0, 25)
If si = 0 Then
iText += "a"
ElseIf si = 1 Then
iText += "b"
ElseIf si = 2 Then
iText += "c"
ElseIf si = 3 Then
iText += "d"
ElseIf si = 4 Then
iText += "e"
ElseIf si = 5 Then
iText += "f"
ElseIf si = 6 Then
iText += "g"
ElseIf si = 7 Then
iText += "h"
ElseIf si = 8 Then
iText += "i"
ElseIf si = 9 Then
iText += "j"
ElseIf si = 10 Then
iText += "k"
ElseIf si = 11 Then
iText += "l"
ElseIf si = 12 Then
iText += "m"
ElseIf si = 13 Then
iText += "n"
ElseIf si = 14 Then
iText += "o"
ElseIf si = 15 Then
iText += "p"
ElseIf si = 16 Then
iText += "q"
ElseIf si = 17 Then
iText += "r"
ElseIf si = 18 Then
iText += "s"
ElseIf si = 19 Then
iText += "t"
ElseIf si = 20 Then
iText += "u"
ElseIf si = 21 Then
iText += "v"
ElseIf si = 22 Then
iText += "w"
ElseIf si = 23 Then
iText += "x"
ElseIf si = 24 Then
iText += "y"
ElseIf si = 25 Then
iText += "z"
End If
Next
Text1.Text = iText
Sui1.Enabled = False
Sui2.Enabled = True
End Sub
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Fil1.Enabled = False
Sui2.Enabled = False
Sui3.Enabled = False
End Sub
Private Sub Sui2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Sui2.Click
Fil1.Enabled = True
Sui3.Enabled = True
Fil1.Select()
End Sub
Private Sub Fil1_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Fil1.TextChanged
If Fil1.Text.Count = Fil1.MaxLength Then
Fil1.Enabled = False
End If
End Sub
Private Sub Sui3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Sui3.Click
Fil1.Enabled = False
Sui2.Enabled = False
Sui1.Enabled = True
Sui3.Enabled = False
'完成结果。
MsgBox("suidu:" 30)
End Sub
End Class
新建窗口，添加picture控件
利用line()方法画线
line(开始x坐标,开始y坐标)-(结束x坐标,结束y坐标),线的颜色，画线的方式(默认为线，B为矩形无填充，BF为填充的矩形)
For i = 1 To 16
Picture1.Line (0, Picture1.Height / 2)-(i * (Picture1.Width / 16), 0), RGB(255, 0, 0)
Picture1.Line (0, Picture1.Height / 2)-(i * (Picture1.Width / 16), Picture1.Height), RGB(255, 0, 0)
Picture1.Line (Picture1.Width, Picture1.Height / 2)-(i * (Picture1.Width / 16), 0), RGB(0, 255, 0)
Picture1.Line (Picture1.Width, Picture1.Height / 2)-(i * (Picture1.Width / 16), Picture1.Height), RGB(0, 255, 0)
Next i
如果要在窗口上画也可以调用窗口的line方法即form.line()