vb编写的简单学生成绩查询系统 Sub pingbi3() Form10.Command4.Visible = False End Sub Sub pingbi1() Form2.修改.Visible = False Form2.添加.Visible = False Form2.删除.Visible = False End Sub Sub pingbi2() Form10.Command2.Visible = False End Sub Private Sub 管理员_Click() Unlo
部分源代码： Private Sub Command1_Click() Dim sql As String Dim param As ADODB.Parameter Dim cmd As ADODB.Command Set cmd = New ADODB.Command Set param = New ADODB.Parameter sql = "select * from book where [图书编码]= ? " If Command1.Caption = "添加记录" Then Com
用vb编写的函数作图软件的代码: Const Pi = 3.1415926535 '定义圆周率 Dim a, wor '定义用于在Picture1上的一个位置打印字符函数 Private Function PrintWord(X, Y, Word As String) With Picture1 .CurrentX = X .CurrentY = Y .ForeColor = RGB(0, 0, 255) End With Picture1.Print Word End Function '定
VB数组应用实例-成绩统计 输入成绩部分： Private Sub Command1_Click() Dim i As Integer Picture1.Cls For i = 1 To N score(i) = Val(InputBox("请输入第" & i & "位学生的成绩")) Picture1.Print score(i); If i Mod 5 = 0 Then Picture1.Print Next i Command2.Enabled = True Command3.Enabl
go top thisform.command1.enabled=.f. thisform.command4.enabled=.t. thisform.command3.enabled=.t. thisform.command2.enabled=.f. thisform.dy thisform.refresh “上一条”按钮的代码如下： skip -1 thisform.command3.enabled=.t. thisform.command5.enabled=.t. if bof( ) m
用vb做一个简单的射击游戏 Option Explicit Dim RandX As Single Dim RandY As Single Dim Score As Single Dim Thisscore As Single Dim Average As Single Dim Shot As Integer Dim Appear As Boolean Dim Distance As Single Private Sub Command1_Click() Timer1.Enabled = Tr
Dim n As Integer, Lines As Integer, i As Integer, w As Integer, a As Boolean Private Sub Command1_Click() Command6.Visible = False a = Not a '变量开关,再次打开文件时进行判断 If a = True Then no1: Dim infile As String '打开通用对话框，获取文件名称 CommonDialog1.InitDir = "" Comm
Dim filem As String '保存文件名 Dim str As String Dim msg Dim bu As Boolean '用于判断文本框中的内容是否改变 Public Nexts As Double '用于存储查找末字符的位置 Public Sv, mo As Double 'sv用于存储查的下一个字符的位置，mo用于存储查找第一次查找字符的位置 Dim Cmt(3) As Single, Cml(3) As Single, Cmw(3) As Single, Cmh(3
Dim a As Integer Option Explicit Private Sub Command1_Click() Command2.Enabled = False Command3.Enabled = True Command4.Enabled = False End Sub Private Sub Command2_Click() Command1.Enabled = False Command3.Enabled = True Command4.Enabled = False En
Dim b As Single Dim a(9, 9) As Integer Dim b1(9, 9) As Integer Dim b2(9, 9) As Integer Dim cmd(9, 9) As CommandButton Dim lab(9, 9) As Label Private Sub Command1_Click(Index As Integer) x = Index: i = x \ 10: j = x Mod 10 If a(i, j) = 1 Then Call ba
