vb上机试题50套解析

《vb上机试题50套解析》由会员上传分享，免费在线阅读，更多相关内容在教育资源-天天文库。

1、改变文本框中文本的字体：PrivateSubCmd1_Click()Txt1.FontName="楷体_GB2312"EndSub要在单击一次窗体后，命令按钮同时向右、向下移动100：PrivateSubCmd1_Click()Cmd1.Left=Cmd1.left+100Cmd1.Top=Cmd1.Top+100EndSub每隔1秒，标签中的数字加1（计时器的Interval属性值设置为1000毫秒，Enabled属性值设置为True，在计时器的Timer事件过程中将标签中的数值加1）（计时器控件

2、）PrivateSubTmr1_Timer()Lab1.Caption=Lab1.Caption+1EndSub在考生文件夹中有一个工程文件vbsj4.vbp及窗体文件vbsj4.frm。在名称为Form1的窗体上有一个名称为Cmd1的命令按钮，其标题为“下一个”。要求在窗体上建立一个单选按钮数组Opt1，含4个单选按钮，标题分别为“A”、“B”、“C”和“D”，初始状态下，“A”为选中状态。【审题分析】本题源程序在命令按钮的单击事件过程中，首先利用For循环语句（循环变k的初值为0，终值为3）逐一

3、检查单选按钮数组中的每个元素是否被选中，若选中则用变n记录下选中单选按钮的索引号，即n=k。循环结束后，取消对当前选中单选按钮的选择，且变n增1；接着判断n的值是否为4，若是则将n的值置为0，重新从单选按钮数组的第1个元素开始；最后设置索引号为n的单选按钮被选中。【操作步骤】步骤1：打开考生文件中的本题工程文件vbsj4.vbp，按表50-4在窗体中用"复制"和"粘贴"命令画出包含4个元素的单选数组和1个命令按钮并设置属性。步骤2：打开代码编辑窗口，去掉程序中的注释符"'"，将问号"？"改为正确的内

4、容。参考代码：PrivateSubCmd1_Click()Fork=0To3IfOpt1(k).ValueThenn=kEndIfNextkOpt1(n).Value=Falsen=n+1Ifn=4Thenn=0EndIfOpt1(n).Value=TrueEndSub步骤3：按要求将文件保存至考生文件夹中。三、综合应用题编写一个程序，输入货物的数量及单价，求总价并输出。【审题分析】本题其实就是设计一个简单的乘法运算，为避免不必要的错误，可在执行运算前用Val函数将文本框中数字字符串转换为数值数据。

5、【操作步骤】打开代码编辑窗口，编写"总价"命令按钮的单击事件过程。PrivateSubCmd1_Click()DimnumAsIntegerDimrmbAsCurrencynum=Val(Txt1.Text)rmb=Val(Txt2.Text)Pic1.ClsPic1.Printnum*rmbEndSub第51套试题答案及详解一、基本操作题第1小题【审题分析】本题只需按要求在窗体上画出滚动条并设置其属性，并在滚动条的Change事件过程中执行语句：Form1.PrintHsb1.Value。【操作步

6、骤】步骤1：新建一个"标准EXE"工程，在窗体Form1中画一个水平滚动条，其属性及其值见表51-1。表51-1步骤2：在代码编辑窗口中，编写水平滚动条的Change事件过程。参考代码：PrivateSubHsb1_Change()Form1.PrintHsb1.ValueEndSub步骤3：按要求将文件保存至考生文件夹中。第2小题【审题分析】本题只需按要求在窗体上画出控件并设置其属性，并在按钮的Click事件过程中用图片框的Print语句输出"这是一个图片框"。【操作步骤】步骤1：新建一个"标准E

7、XE"工程，在窗体Form1中画一个图片框和一个命令按钮，其属性及其值见表51-2。表51-2步骤2：在代码编辑窗口中，编写水平滚动条的Change事件过程。参考代码：PrivateSubCmd1_Click()Pic1.Print"这是一个图片框"EndSub步骤3：按要求将文件保存至考生文件夹中。二、简单应用题在Txt1和Txt2中分别输入两个整数，单击“计算”按钮后，可把两个整数之间的所有整数（含两个整数）累加起来并在Txt3中显示出来【审题分析】本题"计算"按钮单击事件过程源代码的设计思路：

8、先用两变a和b分别记录在两个文本框输入的数据，并通过比较大小，使变b的值始终大于变a的值，t为交换变a和b值的中间变。然后利用For循环（循环变i的初值为a，终值为b），将i的值逐个累加到变s，循环结束时将变s的值显示在文本框中。第2小题【审题分析】本题全部控件已画出，相关属性设置也在程序源码的窗体加载事件中设置，只需按题目要求完善其他相关事件过程。由于标签在窗体上的移动是在计时器的Timer事件过程中完成的，单击"开始"按钮时就应启动计时器，因此Cmd1_Click