二级c上机考试题库 国家计算机等级考试二级visual basic上机题库(word版)

《二级c上机考试题库 国家计算机等级考试二级visual basic上机题库(word版)》由会员上传分享，免费在线阅读，更多相关内容在教育资源-天天文库。

1、二级c上机考试题库国家计算机等级考试二级VisualBasic上机题库(word版)导读：就爱阅读网友为您分享以下“国家计算机等级考试二级VisualBasic上机题库(word版)”的资讯，希望对您有所帮助，感谢您对92to.com的支持!Text1.SetFocusEndSubPrivateSubCommand2_Click()IfText1.Enabled=FalseThenMsgBox"请先使用"输入密码"功能！"Else'IfText1<>"？"Thenn=n+1'If?

2、=39ThenMsgBox"三次密码输入错误，你无权进入本系统！"EndElseMsgBox"第"+Str(n)+"次密码输入错误，请重试！"Text1=""Text1.SetFocusEndIfElseText1.Enabled=FalseText1=""'？.Hide'？.ShowEndIfEndIfEndSub窗体2的代码PrivateSubCommand1_Click()Form2.HideForm1.ShowEndSub程序结束参考答案第1个？

3、处填入：True第2个？处填入：abc第3个？处填入：n第4个？处填入：Form1第5个？处填入：Form29步骤3：调试并运行程序，关闭程序后按题目要求存盘。(2)【操作步骤】步骤1：打开本题工程文件。步骤2：分析并编写程序代码。程序提供代码OptionBase1DimsAsStringPrivateSubCommand1_Click()OpenApp.Path&"in4.dat"ForInputAs#1s=Input(LOF(1),#1)Close#1Text1.Text=sEndSubPrivateSubCommand2_Click

4、()DimmAsInteger'IfLen(s)=？ThenMsgBox"请先使用"读数据"功能！"Else'IfText1.？=09ThenMsgBox"请先选中文本！"Elset=""Fori=1ToText1.SelLengthc=Mid(Text1.SelText,i,1)Ifc<>""Thent=t+cElse'If?="the"Thenm=m+1EndIft=""EndIfNexti

5、'?=Str(m)EndIfEndIfEndSub程序结束参考答案第1个？处填入：0第2个？处填入：SelLength第3个？处填入：Lcase$(t)第4个？处填入：Text2步骤3：调试并运行程序，关闭程序后按题目要求存盘。三、综合应用题在考生文件夹下有一个工程文件sjt5.vbp，其功能是：①9单击"读数据"按钮，则将考生文件夹下in5.dat文件中的100个正整数读入到数组a中，同时在Text1文本框中显示。②单击"分组"按钮，则将数组a中所有3的倍数的元素存入数组b中，并对数组b中的元素按升序排序后显示在文本框

6、Text2中。在给出的窗体文件中已经有了全部控件(如图所示)，但程序不完整。要求：编写适当的程序部分使其实现上述功能。注意：考生不得修改窗体文件中已经存在的控件和程序，在结果程序运行之前，必须先执行"分组"操作，然后再用窗体右上角的关闭按钮结束程序，否则将没有成绩。最后，程序按原文件名进行存盘。【操作步骤】步骤1：打开本题工程文件。步骤2：分析并编写程序代码。程序提供代码OptionBase1Dima(100)AsInteger,numAsIntegerPrivateSub9Command1_Click()DimkAsIntegerOpenApp.

7、Path&"in5.dat"ForInputAs#1Fork=1To100Input#1,a(k)Text1=Text1+Str(a(k))+Space(1)NextkClose#1EndSubPrivateSubCommand2_Click()Dimb(100)AsIntegernum=0IfLen(Text1.Text)=0ThenMsgBox"请先执行"读数据"功能！"Else'考生编写(功能：生成b数组，且按从小到大顺序排序)'注意：请务必将数组b的元素个数