?? 新建 文本文檔.txt
字號(hào):
1.
2.
for input as #1
for output as #2
Not Eof (1)
Str1=Input(Lof(1), #1)
Close
Kill (old.dat)
3
for output as #1
for input as #2
書上115頁 第2題
Option Explicit
Option Base 1
Dim a(20) As Integer
Private Sub Command2_Click()
Dim n As Integer
Dim i As Integer
Dim j As Integer
Dim b As Integer
Randomize
For i = 1 To 20
a(i) = Int(Rnd * 91 + 10)
Text1.Text = Text1.Text & Str(a(i))
Next i
For i = 1 To 20
For j = i + 1 To 20
If a(i) = a(j) Then
n = n + 1
b = 20 - n
End If
Next j
Next i
Print b
End Sub
用隨即函數(shù)產(chǎn)生50個(gè)[10,100]的隨機(jī)整數(shù),并按照由小到大的順序打印出來。(每行顯示10個(gè),共五行,用選擇和冒泡兩種方法)
Dim a%(1 To 50)
Private Sub command1_Click()
Dim i%
Dim j%
Randomize
j = 0
For i = 1 To 50
a(i) = Int(Rnd * 91 + 10)
j = j + 1
Text1.Text = Text1 & Str(a(i))
If i Mod 10 = 0 Then Text1 = Text1 & Chr(13) & Chr(10)
Next i
End Sub
Private Sub Command2_Click()
Dim i%
Dim j%
Dim team%
For i = 1 To 49
For j = i + 1 To 50
If a(i) > a(j) Then
team = a(i)
a(i) = a(j)
a(j) = team
End If
Next j
Text2 = Text2 & Str(a(i))
If i Mod 10 = 0 Then Text2 = Text2 & Chr(13) & Chr(10)
Next i
Text2 = Text2 & Str(a(i))
End Sub
Private Sub Command3_Click()
Dim i%
Dim j%
Dim team%
For i = 1 To 49
For j = 1 To 50 - i
If a(j) < a(j + 1) Then
team = a(j + 1)
a(j + 1) = a(j)
a(j) = team
End If
Next j
Text3 = Text3 & Str(a(j))
If i Mod 10 = 0 Then Text3 = Text3 & Chr(13) & Chr(10)
Next i
Text3 = Text3 & Str(a(j))
End Sub
Private Sub Command4_Click()
End
End Sub
?? 快捷鍵說明
復(fù)制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號(hào)
Ctrl + =
減小字號(hào)
Ctrl + -