ViSual Basic 程序设计上机试题考试规定：1、考试时间为 2 个小时。2、不得使用 U 盘，不得使用 VB 课件：违反此规定者按作弊解决。3、考试目录为 F:\Source，规定将程序保存到该文献夹下。4、每完毕一题，在该文献夹中保存以题目序号命名的 frm 和 vbp 文献。例如第二题的成果保存为 2.frm 和 2.vbp。第一题：20 分1、设计一种以下界面的成绩计算程序。其中总评成绩中平时占 20％，期中和期末各占 30%和 50%。程序成果保存为 1.frm 和 1.vbp。参 考 代码：Private sub Command1_Click() Label1.caption=0.2*val(text1)+0.3*val(text2)+0.5*val(text3)End SubPrivate sub Command2_Click() Text1=””: Text2=”” : Text3=””Text1.setfocusEnd Sub第二题：20 分一种四位数，各位之和等于其前两位，各位之积各于其后二位，试求之。界面自定。程序成果保存为 2.frm 和 2.vbp。参考答案：该题的成果为 1236For a=1 to 9For b=0 to 9For c=0 to 9For d=0 to 9X=1000*a+100*b+10*c+dIf a+b+c+d=10*a+b and a*b*c*d=10*c+d then print xNext d,c,b,a第三题：20 分3、设计一种以下界面的菜单程序，规定效果：单击菜单项可调出对应功效。提示： Shell函数的格式为 shell 途径，１。程序成果保存为 3.frm 和 3.vbp。程序成果保存为 3.frm 和 3.vbp。参考程序：Private Sub Mnote_Click() Shell "notepad.exe", 1End SubPrivate Sub MExit_Click() EndEnd Sub第四题：25 分编程实现以下程序，当在列表框中单击某一学生姓名时，在文本框出现学生的籍贯。对应的学生信息以下表：序号姓名籍贯1王芸姗安徽2林丽菲辽宁3张雪涛陕西规定的程序界面：程序成果保存为 4.frm 和 4.vbp。参考答案：Dim a, bPrivate Sub Form_Load() a = Array("王芸姗", "林丽菲", "张雪涛") b = Array("安徽", "辽宁", "陕西") For i = LBound(a) To UBound(a) List1.AddItem a(i) Next iEnd SubPrivate Sub List1_Click() Text1 = b(List1.ListIndex)End Sub第五题：25 分用形状控件在窗体上画一种蓝色小球，运行时可用上、下、左、右四个方向键控制其移动。程序界面为：程序成果保存为 5.frm 和 5.vbp。参考程序：Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer) Select Case KeyCode Case vbKeyUp: Shape1.Move Shape1....
VIP
