、3、4小题。1．给出一个百分制的成绩，要求输出成绩的相应等级。（7分）90分以上为“A”，80～89分为“B”，70～79分为“C”，60～69分为“D”，60分以下为“E”。2．求
由键盘输入。（7分）3．产生20个0，99之间的随机整数，并按从小到大的顺序输出。（8分）4．产生并输出一个6×6的二维数组A：（8分）（1）两条对角线上元素的值为1，其余元素为小于30的随机整数。（2）计算各行元素的平均值，输出平均值最大和平均值最小的行号。5．输出12……100的和，并求出1～100之间能被17整除的数据的个数（8分）6．从键盘输入10个数，求出其中的最大数，最小数和平均值。（8分）
VB试题答案及评分标准一、单项选择题（每题1分，共10分）1．B6．D2．A7．A3．C8．B4．C9．D5．D10．B
二、填空题（每空1分，共10分）1．
Mod130A
d
Mod170
f1、对象3．LEFT“VisualBasic60”64．65．False6．Autosize7．：8．Optio
Explict9．Co
stDim
三、将下列数学表达式转换成VB表达式（每题1分，共6分）1、a22abb22、x13y143、8expxlog104、2si
314164cos3141645、xyzsqrx2y2z26、log1absabab四、判断题（每题1分，共10分）1．×2．√3．×4．√5．×6．√7．×8．×9．×10．√五、根据题意，将下列程序补充完整（每空1分，共10分）1．（1）i
tr
d91102．（1）ij（2）I10（2）
exti（2）flag1（2）fI1fI2
3．（1）i
tsqrx或者x14．（1）dimf15asi
teger
六、写出下面程序的输出结果（每题4分，共24分）
f1、y652、Zhe
gZhouZho
gYua
Go
gXueYua
ZZZG3．1243232分2分
4．18275．3456756789789101191011121311121314156．7七、编写程序1privatesubcomma
d1_clickdimxasi
tegergradeasstri
gxtext1textselectcasexcase90to100grade”A”case80to89grade”B”case70to791分1分4分
fgrade”C”case60to69grade”D”caseis60grade”E”caseelsemsgbox“请重新输入”e
dselectpri
t“该学生成绩为”gradee
dsub2．PrivateSubcomma
d1_clickDim
asi
tegerfaslo
g1分
text1textf1forI1to
ffI
extItext2textfe
dsub3．PrivateSubComma
d1_ClickDima1To20AsI
tegerRa
domize1分2分3分1分1分
fFori1To20aiI
tR
d100Pri
taiNextPri
tFori1To19Forji1To20IfaiajThe
taiaiajajtE
dIfNextjNextiFori1To20Pri
taiNextiE
dSub4．PrivateSubComma
d1_ClickDima1To61To6AsI
tegerDimaverAsSi
gleRa
domizeFori1To6Forj1To62分
2分
3分
1分
3分
fIfijOrr