(市场营销78+2)信息工程学院2011重修考试A

1、杭州电子科技大学信息工程学院考试试卷（ ）卷考试课程VB程序设计2测试考试日期2012-5-7成绩课程号教师号任课教师姓名张海平考生姓名学号年级专业 注意：请将答案填入答卷纸，交卷时，请将试卷与答卷纸分开交，谢谢。试题一、程序填空题说明：阅读下列程序说明和相应程序，在每小题提供的若干可选答案中，挑选一个正确答案。程序1、【程序说明】设计列表框选择项目程序。在左侧列表框List1中已有若干选项，选择其中的某项后，单击“”按钮，将该选项移入到右侧列表框List2中，同时在List1中删除该项。如果单击“”按钮，将List1中所有选项移入到List2中，同时清空List1。图显示程序运行界面。Pri

2、vate Sub Command1_Click() “”按钮图 列表框选择项目程序运行界面 If List1.ListIndex -1 Then List2.AddItem End IfEnd SubPrivate Sub Command2_Click() “”按钮 For i = 0 To Next i List1.ClearEnd Sub程序2、【程序说明】单击窗体后输出6100之间所有整数的质数因子。Private Sub pp( k As Integer) Dim i As Integer i=2 While k1 If = 0 Then Print i; Else i=i+1 End

3、 If Wend PrintEnd SubPrivate Sub Form_Click() For i = 6 To 100 Next iEnd Sub程序3、【程序说明】窗体上已建立命令按钮Command1（开始）、Command2（结束）和文本框Text1，Text1中输入字符个数不得超过100个。开始运行时，“结束”命令按钮不能响应；按“开始”命令按钮后，将文本框中的字符按其ASCII码值由小到大顺序从左到右重新排列，并在窗体上输出重新排列后的字符串，同时“结束”命令按钮能响应，“开始”按钮不能响应。Private Sub Command1_Click() Dim n As Byte,

4、i As Byte, j As Byte, p As Byte Dim a(100) As String * 1, str1 As String, t As String str1 = Text1.Text: n = Len(str1) For i = 1 To n: （1） : Next i For i = 1 To n - 1 p = i For j = i + 1 To n If a(p) a(j) Then （2） Next j If p i Then t = a(i): （3） : a(p) = t Next i For i = 1 To n: Print a(i);: Next i

5、 （4） Command1.Enabled = FalseEnd SubPrivate Sub Command2_Click() EndEnd SubPrivate Sub Form_Load() Command2.Enabled = FalseEnd SubEnd Sub试题二、程序阅读题程序1、顺序写出运行时在文本框控件Text1中输入：“abcd”后，列表框控件List1中的各表项。 Dim s As String Private Sub Form_Load() List1.Clear Text1.Text = End Sub Private Sub Text1_Change() s =

6、 Text1.Text+ s List1.AddItem s,0End Sub程序2、写出单击窗体后依次输入 28、16，窗体上的显示结果。Private Function ys(m As Integer, n As Integer) As Integer ys = n While m Mod n 0 ys = m Mod n m = n: n = ys WendEnd FunctionPrivate Sub Form_Click() Dim a As Integer, b As Integer Dim c As Integer, d As Integer a = InputBox(a=):

7、c = a b = InputBox(b=): d = b Print ys(a, b); a; b Print ys(c + 4, d + 4); c; dEnd Sub程序3、写出单击窗体后，窗体上的显示结果。Dim x As IntegerPrivate Sub Form_Load() Timer1.Interval = 1000 Timer1.Enabled = TrueEnd SubPrivate Sub Timer1_Timer() Call sub1(x) x = x + 1 If x = 5 Then Timer1.Enabled = FalseEnd SubPublic Sub sub1(n As Integer) n = n + 1 Print n=; nEnd Sub试题三、程序设计题1、 编写自定义函数，计算x的n次方（n为自然数）。并用该自定义函数实现1n+2n+20n。2、 编制通用Sub过程，将Single类型一维数组反序排放（如实参数组元素依次为6、5、9、7，调用后为7、9、5、6；若为-3.2、4、2.6、31、7.3，调用后为7.3、31、2.6、4、-3.2）。3、编程，用户界面如图所示（可先用Form_Load添加几个单词到列表框）。要求：（1）单击“添加单词”按