下载后可任意编辑杭州电子科技大学信息工程学院考试试卷（ ）卷考试课程VB 程序设计 2 测试考试日期2024-5-7成绩课程号老师号任课老师姓名张海平考生姓名学号年级专业 注意：请将答案填入答卷纸，交卷时，请将试卷与答卷纸分开交，谢谢。试题一、程序填空题说明：阅读下列程序说明和相应程序，在每小题提供的若干可选答案中，选择一个正确答案。程序 1、【程序说明】设计列表框选择项目程序。在左侧列表框 List1 中已有若干选项，选择其中的某项后，单击“>”按钮，将该选项移入到右侧列表框 List2 中，同时在 List1 中删除该项。假如单击“>>>”按钮，将List1 中所有选项移入到 List2 中，同时清空 List1。图显示程序运行界面。Private 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、【程序说明】单击窗体后输出 6～100 之间所有整数的质数因子。Private Sub pp( k As Integer) Dim i As Integer i=2 While k>1 If = 0 Then Print i; Else i=i+1 End 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, 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 （ 4 ） Command1.Enabled = FalseEnd SubPrivate Sub Command2_Click() EndEnd SubPrivate Sub Form_Load() C...
VIP
