- 博客(3)
- 收藏
- 关注
RSS订阅原创 随机生成10个整数
Dim a(1 To 10) As IntegerPrivate Sub Command1_Click() Form_LoadEnd Sub Private Sub Form_Load() Dimp As String 'p用来显示随机生成的10个数 Randomize p = "" Fori = 1 To 10 '生成10个随机整数
2012-05-16 19:13:56
3260
原创 随机生成十个不重复的整数
第一篇：Private Sub Form_Load()Me.FontSize = 18Dim a(100) As Integer, b(100) As IntegerDim i As Integer, j As Integer, k AsIntegerForm1.AutoRedraw = TrueRandomizeFor i = 1 To 100a(i) = i
2012-05-09 18:05:27
752
原创 判断整除并求和
Private Sub Command1_Click()Dim m As Integer, n As Integer, d AsIntegerDim s As Long '保存结果m = Val(Text1.Text)n = Val(Text2.Text)d = Val(Text3.Text)s = 0sum m, n, d, sLabel4.Caption = m
2012-05-03 22:21:19
430
空空如也
空空如也
TA创建的收藏夹 TA关注的收藏夹
TA关注的人