VB期中考试试题.docVIP

VB期中考试试题 把答案写在答题纸上，不用抄题。 一、VB语言基础题 教材P58的第4、5题 二、程序语句的改错题 1、教材P95 第6题的第1小题 2、教材P95 第6题的第2小题 三、计算下列语句的执行次数 教材P95 第9题的1至4小题 四、读程序题 1、教材P95 第10题 2、教材P96 第13题 3、教材P96 第14题 五、编写程序 1、写一程序：单击窗体，用inputbox函数输入一学生成绩score，如果成绩score≥90，在窗体上输出优秀；score≥80,输出良好；score≥60，输出合格；否则为不合格。 2、写一程序：完成教材P268的第3题 答案： 一、P58的第4、5题 第4题 Chr(Int(Rnd * 10 + Asc(C))) Int(Rnd*101+100) (X0 and Y0 ) or (X0 and Y0) 答二 X*Y0 (X mod 5=0 )or (X mod 7)=0 (X mod 10)*10+X\10 Round(x*100)/100 Ucase(C)=”A” and Ucase(C)=”Z” Mid(S,5,6) X=10 and X20 (z-x)*(z-y)0 Xz and yz 第5题 1）188 2）200100 3）68．56 4）876554 5）2000-2-29 6）6 二、1、教材P95 第6题的第1小题 2、教材P95 第6题的第2小题 1）x=y 2) x10 and x20 三）教材P95 第9题的1至4小题 1）6 2）19 3）0 4）死循环 四）1、教材P95 第10题 2、教材P96 第13题 3、教材P96 第14题 1）第40号语句共执行了13次，第50号语句共执行了12次，执行第90号语句后显示的结果是：13 0 2 2）结果：10100 功能：将十进制转换成二进制 3）结果：22 484 功能：求二个数的最大公约数和最小公倍数 五）1、写一程序：单击窗体，用inputbox函数输入一学生成绩score，如果成绩score≥90，在窗体上输出优秀；score≥80,输出良好；score≥60，输出合格；否则为不合格。 1） Private Sub Form_Click() n = Val(InputBox(输入一个学生成绩)) If n = 90 Then Print 优秀 ElseIf n = 80 Then Print 良好 ElseIf n = 60 Then Print 合格 Else Print 不合格 End If End Sub 2、写一程序：完成教材P268的第3题 2） Private Sub Form_Click() S = 0 T = 1 n = 1 Do S = S + 1 / T T = T + n n = n + 1 Loop Until 1 / T 0.0001 Print S=; S End Sub