VB复习题(带答案)(1).pdfVIP

VB复习题(带答案)(1)

Lt

D

程序填空

Else

1、功能：要求输入假设干学生的成绩，计算平均分和高于平均分的人数，并将这两个数据放入x1=p

数组的最后。x2=p

PrivateSubForm_Click()**********SPACE**********

Dimmark()AsInteger,i%,n%,aver【?】endif

输入学生的人数输入学生的人数

ReDimmark(1Ton)**********SPACE**********

aver=0【?】else

Fori=1Tonq=Sqr(-d)/(2*a)

mark(i)=Int(Rnd*101)

aver=aver+mark(i)EndIf

NextiEndSub

**********SPACE**********preserve3、功能：以下程序用于判断一个正整数〔≥3〕是否为素数。

ReDim【?】mark(1Ton+2)增加两个元素,存放平均分和高于平均分的人数,原来的学生成绩仍保存PrivateSubForm_Click()PrivateSubForm_Click()

mark(n+1)=aver/n请输入一个正整数〔≥3〕〕

mark(n+2)=0k=Int(Sqr(n))

Fori=1Ton