文档介绍:一、计算 1+2+3+4+…..+100的和。
Dim k as integer, sum as integer
Sum=0
For k =1 to 100
Sum =sum +k
Next k
二、随机产生10个两位整数由窗体的load事件完成
Private sub form_load()
Randomize
For I = 1 to 10
Abc(i)=int((99-10+1)*rnd +10)
Next
End sub
三、随机产生10个两位整数。找出其中的最大数。最小数和平均数
Option base 1
Dim a (10) as integer
Private mand1_click()
form_loda
=”“
=”“
=”“
end sub
Private mand2_click()
Dim max as integer,min as integer,s as integer
Max=10
Min=100
S=0
For I = 1 to 10
If a(i) > max then max = a(i)
If a(i) < min then min = a(i)
S= s+a(i)
Next
=max
=min
=s/10
Private mand3_click()
Dim p as string
Randomize
For I =1 to 10
a(i)=int((99+1-10)*rnd+10)
p=p & str(a(i)) & ”,”
next
=ltrim(left(p,len(p)-1))
end sub
四、如果要求产生的随机整数互不相同将上面的private开始的部分换成下面的部分。
Private Sub Form_Load()
Dim p As String
Randomize
p = ""
For i = 1 To 10
Do
x = Int(99 + 1 - 10)
yes = 0
For j = 1 To i - 1
If x = a(j) Then yes = 1: Exit For
Next
Loop While yes = 1
a(i) = x
p = p & Str(a(i)) & ","
Next
= LTrim(Left(p, Len(p) - 1))
End Sub
五、直角三角形
Private Sub Form_Click()
Dim x As Integer
Dim y As Integer
Dim z As Integer
Dim k As Integer
k = o
For x = 1 To 50
For y = x To 50
For z = y To 50
If z * z = x * x + y * y And z <= 50 Then
Print x; y; z
k = k + 1
End If
Next z