- 博客(13)
- 收藏
- 关注
RSS订阅原创 vb
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-19 17:14:39
164
原创 冒泡排序
Dim a(1 To 10) As IntegerPrivate Sub Command1_Click() From_LoadEnd SubPrivate Sub Command2_Click() p = "" For i = 1 To 9 For j = 1 To 10 - i If a(j) t = a(j): a(j) = a(j + 1):
2016-05-07 18:00:04
110
原创 选择排序
Dim a(1 To 10) As IntegerPrivate Sub Command1_Click() From_LoadEnd SubPrivate Sub Command2_Click() p = "" For i = 1 To 9 For j = i + 1 To 10 If a(i) t = a(i): a(i) = a(j): a(j
2016-05-07 17:56:20
135
原创 多位数乘一位数
Private Sub Command1_Click() Cls Dim a() As Long, i As Long Dim b As String Dim c As Long Dim changdu As Long changdu = Len(Text1.Text) ReDim a(changdu) For i = 1 To ch
2016-04-21 17:33:56
138
原创 三位数乘一位数
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 17:28:41
208
原创 10个随机数和
5：Private Sub Command1_Click()sum = 0n = 1Do Until n > 10Randomizea(n) = Int(Rnd * 1000)sum = sum + a(n)n = n + 1LoopPrint sumEnd Sub6：Private Sub Command1_Click()s
2016-04-21 16:52:42
241
原创 10个随机数和
Private Sub Command1_Click()ClsFont.Size = 30Print f(100)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 17:41:55
124
原创 10个随机数和
Private Sub Command1_Click()ClsDim n As Integer, s As IntegerDim a(10) As Integern = 1While n a(n) = Int(Rnd * 1000)n = n + 1Wendn = 1While n Print a(n)n = n + 1Wends =
2016-04-07 17:34:47
129
原创 10个随机数和
Dim sum As IntegerDim i As IntegerDim a As IntegerPrivate Sub command1_click() sum = 0 For i = 1 To 10 Randomize a = Int(1000 * Rnd) sum = sum + a MsgBox "10个随机数和为:" & su
2016-04-07 17:25:55
131
原创 10个随机数的和
Private Sub Command1_Click()ClsDim i As IntegerDim a(10) As IntegerDim sum As IntegerRandomizeFor i = 1 To 10a(i) = Int(Rnd * 1000) + 1sum = sum + a(i)Next iPrint sumEnd Sub
2016-04-07 16:29:48
169
原创 教育技术余晓红
Private Sub 排序了_Click()ClsMe.Font.Size = 10Dim a As IntegerDim b As IntegerDim c As IntegerDim d As IntegerDim e As IntegerDim f As IntegerDim g As IntegerDim h As IntegerDim i A
2016-03-24 17:46:01
197
空空如也
空空如也
TA创建的收藏夹 TA关注的收藏夹
TA关注的人