- 博客(7)
- 收藏
- 关注
原创 10000个随机数字选择法
Dim a(1 To 10000) As IntegerPrivate Sub Command1_Click()Form_LoadEnd SubPrivate Sub Command2_Click()p = ""For i = 1 To 9999 For j = i + 1 To 10000 If a(i) t =
2016-05-12 17:36:59 1139
原创 十的阶乘
Private Sub Command1_Click()ClsPrint 阶乘(10)End SubPrivate Function 阶乘(n As Integer) As LongIf n = 1 Then阶乘 = 1Else阶乘 = n * 阶乘(n - 1)End IfEnd Function
2016-04-21 16:41:18 580
原创 VB 求余数和商
Option Base 1Private Sub Command1_Click()Dim yushu As ByteDim shang As ByteDim n2() As ByteDim n1() As ByteDim n1len As LongDim n2len As LongDim i As LongDim tempresult As Byten1le
2016-04-21 16:37:32 6008
原创 VB中将10个数大到小排列
Private Sub Command1_Click()ClsFont.Size = 40Dim n As IntegerDim sierdun(10) As Integern = LBound(sierdun)While n sierdun(n) = Int(Rnd * 1000) n = n + 1Wend Dim swap As I
2016-03-31 17:34:10 2520
原创 VB中列出10个数
Private Sub Command1_Click() Cls Font.Size = 30 Dim n As Integer Dim sierdun(10) As Integer n = 1 While n sierdun(n) = Int(Rnd * 1000) n = n + 1 W
2016-03-31 16:26:16 319
原创 3.17 vb 另外一种等量变换 (随机)ROM
Private Sub Command1_Click()ClsDim b As Integer, c As IntegerDim d As Integerc = Int(Rnd() * 1000)b = Int(Rnd() * 1000)Print "b=" & bPrint "c=" & cd = cc = bb = d
2016-03-17 17:44:06 210
原创 3.17 VB 变量 变换
将a与b的值进行变换Private Sub Command1_Click() Cls Dim a As Integer, b As Integer, c As Integer a = 10: b = 20 Print "a=" & a Print "b=" & b c = a a = b b = c Pr
2016-03-17 17:22:19 288
空空如也
空空如也
TA创建的收藏夹 TA关注的收藏夹
TA关注的人