作业
zhaomengfan123
这个作者很懒,什么都没留下…
展开
-
作业作业
Private Sub Command1_Click() Dim n As Integer Dim sierdun(15) As Integer n = 1 While n sierdun(n) = Int(Rnd * 1000) n = n + 1 Wend n = 1 While n Print sierdun(n) n = n + 1 Wend End Sub原创 2016-04-07 16:27:18 · 252 阅读 · 0 评论 -
作业作业2
Private Sub Command1_Click() Cls Font.Size = 30 Dim n As Integer Dim sierdun(12) As Integer n = LBound(sierdun) While n sierdun(n) = Int(Rnd * 1000) n = n + 1 Wend 开始排序 Dim swap As Integer原创 2016-04-07 16:28:45 · 234 阅读 · 0 评论 -
又一次作业
Private Sub Command1_Click() 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 Sum End Sub原创 2016-04-07 16:51:21 · 160 阅读 · 0 评论 -
作业作业作业
Private Sub Command1_Click() Cls Print f(10) End Sub Private Function f(x As Integer) As Long If x = 1 Then f = x Else f = x + f(x - 1) End If End Function原创 2016-04-07 17:32:20 · 161 阅读 · 0 评论 -
4.14
Private Sub Command1_Click() Dim n1 As Byte Dim n2 As Byte Dim yushu As Byte Dim shuang As Byte Dim tempResult As Byte n1 = Int(Val(Me.Text1.Text)) n2 = Int(Val(Me.Text2.Text)) tempResult = n1原创 2016-04-14 16:45:27 · 162 阅读 · 0 评论