gaogaogaowj-CSDN博客

原创 vb27

Option ExplicitConst mxlogintimes As Integer = 3Private Sub cmdlogin_Click()Dim cn As ConnectionDim rs As RecordsetSet cn = New ConnectionSet rs = New Recordsetcn.ConnectionString = "p

2016-05-26 17:57:37 244

原创 vb26

Private Sub Command1_Click()ClsDim a(100) As IntegerDim i As IntegerDim j As IntegerFor i = 1 To 100a(i) = 10 + Int(Rnd() * 100)Next iPrintFor i = 1 To 99For j = i + 1 To 100If

2016-05-12 17:43:18 310

原创 vb25

Private Sub Command1_Click()Type studentname As Stringstuno As Stringsex As Booleanage As Byteprof As Stringgrade As StringEnd TypeDim gaowenjing As studentgaowenjing.name = "高文静"

2016-05-12 17:17:42 392

原创 vb24

Private Sub Command1_Click()Me.Font.Size = 6Dim a(10) As IntegerFor i = 1 To 10a(i) = 10 + Int(Rnd() * 100)Print a(i)Next iPrintFor i = 2 To 10If a(1) swap a(1), a(i)End If

2016-05-07 18:09:57 248

原创 vb23

Private Sub Command1_Click()Dim a(10) As IntegerDim i As IntegerFor i = 1 To 10a(i) = 10 + Int(Rnd() * 100)Print a(i)Next iPrintDim j As IntegerFor j = 1 To 9For i = j + 1 To 10

2016-05-07 17:47:23 163

原创 vb22

Private Sub Command1_Click()Me.Font.Size = 30Dim a As IntegerDim b As IntegerDim s As StringDim yushu As Bytea = 1230: b = 16While a yushu = a Mod bs = f(yushu) & sa = a \ bWend

2016-05-07 16:59:37 293

原创 vb21

Private Sub Command1_Click()Me.Font.Size = 30Print shiliujinzhi(230)End SubPrivate Function shiliujinzhi(m As Byte) AsStringDim n As Byten = mConst shiliu As Byte = 16Dim returns As St

2016-04-28 16:54:59 293

原创 vb20

Private Sub Command1_Click()Me.Font.Size = 30Print erjinzhi(235)End SubPrivate Function erjinzhi(m As Byte) AsStringDim n As Byten = mConst er As Byte = 2Dim returns As String Dim

2016-04-28 16:53:38 365

原创 vb19

Private Sub Command1_Click()Me.Font.Size = 30Dim n As Byten = 23Const er As Byte = 2Dim shang As ByteDim yushu(1 To 5) As Byte Dim i As Bytei = 5shang = n \ eryushu(i) = n Mod er

2016-04-28 16:22:55 235

原创 vb18

Private Sub Command1_Click()ClsMe.Font.Size = 50Dim a() As ByteDim r() As ByteDim b As StringDim c As ByteDim i As LongDim l As Longl = Len(Me.Text1.Text)ReDim a(l) For i = 1 T

2016-04-21 17:40:36 468

原创 vb17

Private Sub Command1_Click()Dim a As ByteDim b As StringDim c As Byteb = Mid(Me.Text1.Text, 1, 1)a1 = Int(Val(b))b = Mid(Me.Text1.Text, 2, 1)a2 = Int(Val(b))b = Mid(Me.Text1.Text, 3,

2016-04-21 16:40:20 407

原创 vb16

Private Sub Command1_Click()ClsDim n1 As ByteDim n2 As ByteDim yushu As ByteDim shang As ByteDim typeresult As Byten1 = Int(Val(Me.Text1.Text))n2 = Int(Val(Me.Text2.Text))tempresult

2016-04-14 17:21:24 495

原创 vb15

Option Base 1Private Sub Command1_Click()Me.Font.Size = 30Dim n1() As Byte, n1Len As LongDim n2() As Byte, n2Len As LongDim yushu1 As ByteDim yushu2 As ByteDim shang As ByteDim tem

2016-04-14 17:06:50 307

原创 vb14

Private Sub Command1_Click()Font.Size = 30Print 阶乘(1)End SubPrivate Function 阶乘(n As Integer) As LongIf n = 1 Then阶乘 = 1Else 阶乘 = n * 阶乘(n - 1) End If End Function

2016-04-14 16:29:25 182

原创 vb13

**又是一节vb课没有上节课讲的难，但是也不简单***Private Sub Command1_Click()Font.Size = 30Print 阶乘(11)End SubPrivate Function 阶乘(n As Integer) As LongIf n = 1 Then阶乘 = 1Else 阶乘 = n * 阶乘(n - 1) End If End Fun

2016-04-14 16:24:35 580

原创 vb12

Private Sub Command1_Click() Cls Dim a As Integer, i As Integer, sum As Integer sum = 0 For i = 1 To 10 Randomize a = Int(1000 * Rnd) sum = sum + a MsgBox “10个随机数的和为： ” & sum NextEnd Sub

2016-04-07 17:36:27 188

原创 vb11

Private Sub Command1_Click() Cls Dim sum As Integer, i As Integer, a As Integer sum = 0 i = 1 Do While i <= 10 Randomize a = Int(1000 * Rnd) sum = sum + a i = i + 1 Loop MsgBox “10个随机数的和为： ”

2016-04-07 17:30:02 972

原创 vb10

Private Sub Command1_Click() Cls Dim sum As Integer, i As Integer, a As Integersum = 0 i = 1 Do Until i > 10 Randomize a = Int(1000 * Rnd) sum = sum + a i = i + 1 Loop MsgBox “10个随机数的和为; ” &

2016-04-07 17:24:38 200

原创 vb9

Private Sub Command1_Click() Cls Dim n As Integer, s As Integer Dim a(10) As Integer n = 1 While n <= 10 a(n) = Int(Rnd * 1000) n = n + 1 Wend n = 1 While n <= 10 Print a(n) n = n + 1 Wend

2016-04-07 17:05:45 326

原创 vb8

Dim sum As Integer Dim i As Integer Dim a As Integer Private Sub command1_click() sum = 0 For i = 1 To 10 Randomize a = Int(1000 * Rnd) sum = sum + a MsgBox “10个随机数的和为: ” &

2016-04-07 16:57:56 500

原创 vb7

Private Sub Command1_Click() Cls Dim i As Integer Dim a(10) As Integer Randomize For i = 1 To 10 a(i) = Int(Rnd * 1000) + 1 Sum = Sum + a(i) Next i Print SumEnd

2016-04-07 16:55:44 526

原创 vb6

这是第二个好累啊还要写七个Option ExplicitPrivate Sub Command1_Click() Cls Dim i As Integer Dim a(10) As Integer Dim sum As Integer Randomize For i = 1 To 10 a(i) = Int(Rnd * 1000) + 1

2016-04-07 16:29:38 218

原创 vb5

Private Sub Command1_Click()ClsPrint f(10)End SubPrivate Function f(x As Integer) As Long If x = 1 Then f = x Else f = x + f(x - 1) End IfEnd Function

2016-04-07 16:18:17 191

原创 vb4

Option Base 1Private Sub Command1_Click()ClsFont.size = 30Dim n As IntegerDim size As Integersize = Int(Val(Me.Text1.Text))Dim xierdun() As IntegerReDim xierdun(size)n = LBound

2016-03-31 17:51:25 366

原创 vb3

真是要疯了好难啊。。。。在同学的帮助下终于完成了Private Sub Command1_Click()ClsFont.Size = 20Dim n As IntegerDim xierdun(15) As Integern = 1While n xierdun(n) = Int(Rnd * 1000)n = n + 1WendD

2016-03-31 17:13:07 256

原创 vb2

很难智商不够用了。。。。Private Sub Command1_Click()ClsFont.Size = 20Dim n As IntegerDim xierdun(15) As Integern = 1While n xierdun(n) = Int(Rnd * 1000)n = n + 1Wendn = 1While n

2016-03-31 16:40:58 175

原创 vb1

（1）打开VB（2）在form中拉伸形成一个commond button（3）双击commond button在其中输入下面的字符Private Sub Command1_Click()ClsDim a As IntegerDim b As IntegerDim c As IntegerDim d As IntegerDim e As Int

2016-03-24 17:44:26 252 1

gaogaogaowj的博客