电脑桌面
添加小米粒文库到电脑桌面
安装后可以在桌面快捷访问

信息工程学院2024重修考试AVIP专享VIP免费

信息工程学院2024重修考试A_第1页
信息工程学院2024重修考试A_第2页
信息工程学院2024重修考试A_第3页
下载后可任意编辑杭州电子科技大学信息工程学院考试试卷( )卷考试课程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...

1、当您付费下载文档后,您只拥有了使用权限,并不意味着购买了版权,文档只能用于自身使用,不得用于其他商业用途(如 [转卖]进行直接盈利或[编辑后售卖]进行间接盈利)。
2、本站所有内容均由合作方或网友上传,本站不对文档的完整性、权威性及其观点立场正确性做任何保证或承诺!文档内容仅供研究参考,付费前请自行鉴别。
3、如文档内容存在违规,或者侵犯商业秘密、侵犯著作权等,请点击“违规举报”。

碎片内容

元素商铺+ 关注
实名认证
内容提供者

欢迎挑选合适的文档

确认删除?
VIP
微信客服
  • 扫码咨询
会员Q群
  • 会员专属群点击这里加入QQ群
客服邮箱
回到顶部