新建 文本文档.txt

Visual Basic 的一些典型例题的VB程序和结果

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


用随即函数产生50个[10，100]的随机整数，并按照由小到大的顺序打印出来。（每行显示10个，共五行，用选择和冒泡两种方法）

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