vb部分考试试题及答案.doc
18页1、1. 图5Private Sub Command1_Click()考生应完成的程序* Begin *Open “in5.dat” for input as #1 Input #1, sClose #1Text1.text=sEnd Subprivate Sub Command2_Click()考生应完成的程序Stetemp2=”For i=1 to len(s) Ch=mid(s,i,1) If i mod 2 0 then If isletter(cstr(ch)=true then If ch=”Z” then Ch=”A” Elseif ch=”z” then Ch=”a” Else Ch=chr(asc(ch)+1) End if End if Else If isletter(cstr(ch)=true then If ch=”A” then Ch=”Z” Elseif ch=”a” then Ch=”z” Else Ch=chr(asc(ch)-1) End if End if End if Strtemp2=strtemp2+ch Next i Text2.text=st
2、rtemp2* End *End SubFunction isletter(a As String) As Boolean If A = a And a = Z Or a = a And a = z Then isletter = True Else isletter = False End IfEnd FunctionPrivate Sub Command3_Click() Open out5.dat For Output As #1 Print #1, Text2.Text Close #1End Sub 2. (a) (b) Private Sub Command1_Click() If Option1.Value = True And Text1.Text Then List1.AddItem Text1.Text Text1.Text = ElseIf Option2.Value = True And List1.ListIndex = 0 Then List1.RemoveItem List1.ListIndex Else MsgBox 未输入或未选定项目 End If E
《vb部分考试试题及答案.doc》由会员xt****7分享,可在线阅读,更多相关《vb部分考试试题及答案.doc》请在金锄头文库上搜索。
自考中国近代史纲要-简答题.doc
2019年下半年司法考试(试卷三)题库检测试题 附答案.doc
国家司法考试(试卷三)题库综合试题 含答案.doc
生物必修二第三章基因的本质测试题.doc
生活中的经济学第二次作业答案.doc
追寻幸福中国伦理史视角考试答案.doc
近代史纲要选择答案.doc
港澳台学生联考辅导班-中文试卷(含答案)-诗歌鉴赏6-15北京博飞.doc
霸道县交规模拟考试精选第10套试题.doc
行政伦理考试名词N.doc
红楼梦100字简答题.doc
过期面包与难民情景面试题.docx
科学发展简史模拟试卷及答案.doc
潍坊干部学习网答案-党的执政能力建设的基本内涵与核心问题.doc
港澳台全国联招试卷-中文专题含答案-标点3-12北京博飞.doc
阳光心态考试结果.doc
近代史纲要选择题库第四章.doc
南财大财政学线上模拟题和答案.docx
霸道县交规模拟考试精选第7套试题.doc
陕西培训网构建丝绸之路新经济带加快“三个陕西”建设步伐》考试第三套.doc
2024-05-02 19页
2024-05-02 4页
2024-05-02 3页
2024-05-02 6页
2024-05-02 2页
2024-05-02 1页
2024-05-02 6页
2024-05-02 4页
2024-05-02 22页
2024-05-02 2页