VB程序,随机产生20个学生的成绩,并显示.统计各分数段人数,即0~59,60~69,70~79,80~89,90~100,并显示结果
来源:百度知道 编辑:UC知道 时间:2024/06/19 02:15:54
20个学生的成绩也要显示出来
'添加窗体Form1,按钮Command1,然后添加如下代码:
Private Sub Command1_Click()
Dim s(19), a(4), i, temp As Integer
Me.AutoRedraw = True
Cls
For i = 0 To 19
Randomize
s(i) = Int(Rnd * 101)
temp = Int(s(i) / 10)
If temp = 10 Then
a(4) = a(4) + 1
ElseIf temp < 5 Then
a(0) = a(0) +
VB程序,随机产生20个学生的成绩,并显示.统计各分数段人数,即0~59,60~69,70~79,80~89,90~100,并显示结果
VB设计:随机产生20个学生的成绩,并显示.统计各分数段人数,即50~59, 60~69, 70~79,80-89,90-100。
VB设计:随机产生20个学生的成绩,并显示.统计各分数段人数,即50~59 60~69 70~79 80-89,90-100。
急! VB. 编写产生随机整数过程,输出N个指定范围的随机整数.
vb:编写一程序 产生10个100~200间的随机整数,找出其中的最大数和最小数。
编一VB程序,随机产生10个30~100(包括30,100)的正整数,求最大值,最小值和平均值,并显示整个数组的值和结果
随机产生10个数字 放到textbox里 vb代码
给个JAVA程序在1到20里随机产生5个数字
vb 随机生成20个100以内的正整数
编一个程序,随机产生20个整数,求出最大数和最小数并输出。