Dim sum As Integer id As Integer Dim

  • Slides: 15
Download presentation

如果要定义并赋值全班同学姓名 Dim sum As Integer, id As Integer Dim sname(37) As String 定义与输入 List

如果要定义并赋值全班同学姓名 Dim sum As Integer, id As Integer Dim sname(37) As String 定义与输入 List 1. Clear sname(0) = "陈正皓" ············ sname(37) = "陈祥浩" num = Text 1. Text 随机抽取 For i = 1 To num id = Int(Rnd * 38) List 1. Add. Item sname(id) Next i

Dim a(1 to 40 ) as integer ‘将存放成绩的数组定义成整数型 窗体加载随机产生 40个成绩，并在 list 1中显示 Private Sub

Dim a(1 to 40 ) as integer ‘将存放成绩的数组定义成整数型 窗体加载随机产生 40个成绩，并在 list 1中显示 Private Sub Form_Load() Dim i As Integer Randomize For i = 1 To 40 a(i) = Int(Rnd * 100) List 1. Add. Item Str(a(i)) Next End Sub 计算平均分并显示 Private Sub Command 1_Click() Dim i As Integer Dim ave As Single Dim s As Integer For i = 1 To 40 s= s+ a(i) Next ave= s / 40 Text 1. Text = Str(ave) End Sub

Ichun Chen Dim Sum Dim sum is aIchun Chen Dim Sum Dim sum is a
Dim chicken As Integer Dim foot As IntegerDim chicken As Integer Dim foot As Integer
SOLAR SYSTEM DIM dim dim adjective Having orSOLAR SYSTEM DIM dim dim adjective Having or
DIM SUM 101 Ha Gow Siu Mai DimDIM SUM 101 Ha Gow Siu Mai Dim
Sub Main Dim x9 As Integer Dim iSub Main Dim x9 As Integer Dim i
Dim mu As Integer 2 15 Dim xDim mu As Integer 2 15 Dim x
Arrays Dim One Dim 9 As Integer 10Arrays Dim One Dim 9 As Integer 10
Dim i as integer Dim x as floatDim i as integer Dim x as float
2 7 Dim As Dim Dimension Integer String2 7 Dim As Dim Dimension Integer String
8 3 sum sum i Lexer Parser sum8 3 sum sum i Lexer Parser sum
Riemann Sum Riemann Sum Formula Riemann Sum StepRiemann Sum Riemann Sum Formula Riemann Sum Step
Sum and Difference Formulas Sum Formulas Sum andSum and Difference Formulas Sum Formulas Sum and
3 Dim i as integer s as integer3 Dim i as integer s as integer
type sharrecord x integer y integer R integertype sharrecord x integer y integer R integer