《计算机基础实验(VB)》期末考试

《《计算机基础实验(VB)》期末考试》由会员上传分享，免费在线阅读，更多相关内容在教育资源-天天文库。

1、2010级《计算机基础实验（VB）》期末考试1、考试形式：开卷机试2、考试时间：60分钟3、考试题目：在以下30道试题中抽取3道（易：25分、中：30分、难：45分各一道）。每人的题号由程序自动抽取，不得擅自更改。4、试题上交时需注意事项：（1）建立一个文件夹（以自己的班级学号姓名命名，如“编导2001005班**号***”），文件夹中包含3个子文件夹，子文件夹的名称为所抽取试题的题号（如某生抽取试题题号为4、15、28，则3个子文件夹的名称分别为“4”、“15”、“28”），将所抽取试题的程序依次对应放入相应的文件夹。（2）程序设

2、计完成后，除按要求保存外，还需生成相应的可执行文件。（“文件”菜单——“生成工程.exe”）（3）上交前确保每个题目的程序都保存无误，是否是程序的快捷方式。重点检查是否每个子文件夹中都有相应的工程文件（*.vbp）和窗体文件（*.frm）。最后提醒：任何将外部存储设备连上电脑的行为都视同为作弊，期末考试成绩以0分计。附：考试题目难度：易（1--10）1、在代码中自动加载一个标签的标题和文本框的文本，单击“修改”按钮后交换标签中的标题和文本框中的文本。PrivateSubCommand1_Click()s=Label1.Caption

3、Label1.Caption=Text1.TextText1.Text=sEndSubPrivateSubForm_Load()Label1.Caption="标签"Text1.Text="文本框"EndSub2、求一次方程的根输入系数a、b的值，求一次方程ax+b=0的根，效果图如下PrivateSubCommand1_Click()DimaAsSingleDimbAsSingleDimxAsSinglea=Text1.Textb=Text2.Textx=(-b)/aText3.Text=xEndSubPrivateSubComm

4、and2_Click()Text1.Text=""Text2.Text=""Text3.Text=""EndSub3、信息框设计设计如下对话框，选择“是”则操作正确，选择“否”则提示重新操作。PrivateSubCommand1_Click()DimintTmpAsIntegerintTmp=MsgBox("此项操作正确吗？",vbYesNo+vbQuestion,"提示")IfintTmp=vbYesThenMsgBox"操作正确!",vbOKOnly+vbInformation,"恭喜"ElseMsgBox"重新操作!",vbO

5、KOnly+vbCritical,"不好意思哦"EndIf4、设计窗体及控件如图所示，在文本框中输入内容，然后单击命令按钮，在文本框中输入的内容同时显示在标签和命令按钮上。PrivateSubCommand1_Click()Label1.Caption=Text1.TextCommand1.Caption=Text1.TextEndSub5、设计一个收款计算程序如图所示，用户输入商品的“单价”，“数量”和“折扣”后，单击“计算”按钮将显示“应付款”，单击“清除”按钮清除文本框中所有数据。PrivateSubCommand1_Clic

6、k()DimaAsSingle,bAsSingle,cAsSingle,dAsSinglea=Val(Text1.Text)b=Val(Text2.Text)c=Val(Text3.Text)d=a*b*cText4.Text=Str(d)EndSubPrivateSubCommand2_Click()Text1.Text=""Text2.Text=""Text3.Text=""Text4.Text=""EndSub6、理解大小写转换函数。在文本框中输入英文字母，按“转大写”按钮，文本变为大写，按“转小写”按钮，文本变为小写。单击“

7、退出”按钮，程序结束。PrivateSubCommand1_Click()Text1.Text=UCase(Text1.Text)EndSubPrivateSubCommand2_Click()Text1.Text=LCase(Text1.Text)EndSubPrivateSubCommand3_Click()EndEndSub7、在窗体上输出100——200之间（包括100和200）不能被3整除的奇数及这些数的和。PrivateSubCommand1_Click()Fori=100To200IfiMod3<>0AndiMod2<

8、>0ThenPrinti;s=s+in=n+1IfnMod5=0ThenPrintEndIfNextPrintPrintsEndSub8、设S=1*2*3*…*n，求S不大于400000时最大的n。PrivateSubCommand1