(人力、财管88+2)信息工程学院2011重修考试A.docVIP

杭州电子科技大学信息工程学院考试试卷（ ）卷 考试课程 VB程序设计2测试 考试日期 2012-5-7 成绩 课程号 教师号 任课教师姓名 张海平 考生姓名 学号 年级 专业 财务管理、人力资源 注意：请将答案填入答卷纸，交卷时，请将试卷与答卷纸分开交，谢谢。 试题一、程序填空题 说明：阅读下列程序说明和相应程序，在每小题提供的若干可选答案中，挑选一个正确答案。 程序1、【程序说明】单击窗体后输出6～100之间所有整数的质数因子。 Private Sub pp( k As Integer) Dim i As Integer i=2 While k1 If = 0 Then Print i; Else i=i+1 End If Wend Print End Sub Private Sub Form_Click() For i = 6 To 100 Next i End Sub 程序2、【程序说明】运行时单击命令按钮后，输入n（n10）、然后在窗体内输出1个如图所示的n层数字金字塔（图中所示是输入n=6的结果）。 【程序】 Private Sub Command1_Click() Dim i As Byte, j As Byte, n As Byte Do n = InputBox(n=,输入1-9之间的整数) Loop While For i = 1 To n Print ; 设置该行输出的起始位置 For j = 1 To Print Trim(Str(i)); Next i End Sub 程序3、【程序说明】以下程序可以将列表框中同时选中的多个列表项删除，请将程序补充完整。 Private Sub cmdDel_Click() i = 0 Do While i （1） If List1.Selected(i) = True Then （2） Else （3） End If Loop End Sub 试题二、程序阅读题 程序1、请写出单击窗体后，窗体上的显示结果。 Private Sub Form_Click() Dim a(5) As Byte, i As Byte a(0) = 1 For i = 1 To 5 a(i) = a(i - 1) + i: Print a(i); Next i End Sub 程序2、写出运行时在文本框中依次输入3个以回车结束的字符串abc34、xy12$和+-*/后，列表框显示内容。 Private Sub Text1_KeyPress(K As Integer) Static n As Integer If K = Asc(0) And K = Asc(9) Then K = 0 If K = 13 Then List1.AddItem Text1.Text, n n = n + 1 Text1.Text = End If End Sub 程序3、 请写出单击窗体后，窗体上的显示结果。 Dim i As Integer, j As Integer, k As Integer, h As Integer Private Sub Form Click() i = 3: j = 6: k = 9 Call q(1, i): Print i; j; k, Call q(2, j): Print i; j; k, Call q(3, k): Print i; j; k, End Sub Private Sub p(i) i = i + 1: Print i; j; k, End Sub Private Sub q(ByVal h, j) i = j If h = 0 Then Call p(j) Else If h = 1 Then Call p(i) Else j = j + 1 End If End Sub 试题三、程序设计题 编制函数过程，计算两个数的最小公倍数。 【】计算数学表达式 3、编程，用户界面如图10