下载文档原格式
vb上机练习题及答案一、基本要求熟悉VB集成开发环境掌握代码窗口的应用及录入、编辑代码的基本方法了解VB程序设计的基本步骤二、实习内容实习熟悉VB集成开发环境各组成部分输入一个数，求该数的平方并显示结果第二章一、基本要求熟练掌握各种运算符的应用和优先顺序掌握各种常用函数的功能、参数和返回值掌握立即窗口的使用方法二、实验内容回答整形、长整型、单精度、双精度类型数据占用字节数。
已知直角三角形的两条直角边长，求斜边长。
Private Sub Command1_ClickDim a%, b%, c%a = Val)b = Val)c = SqrPrint cEnd Sub给小学生随机出两位数和一位数的加法题。
Private Sub Command1_ClickDim a%, b%, c%a = Val)b = Val)c = a + bPrint cEnd Sub用文本框输入一个带小数的数，对输入的数四舍五入保留2位小数。
Private Sub Command1_ClickDim x#, y!x = Text1.Texty = RoundPrint yEnd Sub输入某人姓名，判断是否你的本家。
Private Sub Command1_ClickDim a$, b$, p As Booleanb = "李"a = InputBoxIf Left = b Thenp = TrueEnd IfPrint pEnd Sub任意输入西安地区的固定电话号码，将其升为8位。
如原号码为029-*******，升位后为************。
Private Sub Command1_ClickDim x As String, y As Stringx = Text1.Texty = Left & & RightText2.Text = yEnd Sub输入书31页format语句，查看运行结果。
VB上机考试1、利用随机函数产生25个100到999之间的整数，构成5?5的矩阵，输出该矩阵。
Dim a(1 To 5, 1 To 5)Private Sub Form_Click()RandomizeFor i = 1 To 5For j = 1 To 5a(i, j) = Int(Rnd * (999 - 100 + 1) + 100)Print a(i, j);Next jPrintNext iEnd Sub2、利用随机函数产生25个10到99之间的整数，求其平均值(要求保留3位小数，第4位四舍五入)。
Private Sub Form_Click()For i = 1 To 25a = Int(Rnd * (99 - 10 + 1) + 10)Print a;s = s + aNext iPrintAvg = s / 25Print AvgEnd Sub3、在窗体上按下鼠标的右键，记录其坐标。
Private Sub Form_Load()= 1= 2End SubPrivate Sub Form_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)If Button = 2 Then= X & "," & YEnd IfEnd Sub4、利用随机函数产生25个10到99之间的整数，按从小到大的顺序显示。
Dim a(1 To 25)Private Sub Form_Click()ClsFor i = 1 To 25a(i) = Int(Rnd * (99 - 10 + 1) + 10)Print a(i);Next iPrintFor i = 1 To 25 - 1For j = 1 To 25 - iIf a(j) > a(j + 1) Then tmp = a(j): a(j) = a(j + 1): a(j + 1) = tmp Next jNext iFor i = 1 To 25Print a(i);Next iEnd Sub5、利用随机函数产生50个 [1,6] 之间的整数, 分别统计出1的个数，2的个数，3的个数，4的个数，5的个数和6的个数。
国家二级VB机试（上机操作）模拟试卷450(题后含答案及解析) 全部题型 2. 基本操作题 3. 简单应用题 4. 综合应用题基本操作题1．(1)在名称为Form1的窗体上添加两个名称分别为Text1和Text2的文本框，它们的高、宽分别为300、2400和1200、2400。
窗体的标题为“窗口”。
请通过属性窗口设置适当的属性，满足如下要求：①Text2可以业示多行文本，并且有垂直和水平两个滚动条；②程序运行时在Text1中显示输入的字符为“*”。
程序运行后的窗体如图所示。
注意：存盘时必须存放在考生文件夹下。
工程文件名保存为sjt1．vbp，窗体文件名保存为sjt1．frm。
(2)在名称为Form1的窗体上添加一个名称为Image1的图像框，其高、宽分别为1900、1700，通过属性窗口把考生文件夹下的图像文件pic1．bmp载入图像框；再画两个命令按钮控件，名称分别为C1、C2，标题分别为“放大”、“缩小”，如图所示。
要求：①请编写适当的事件过程，程序运行后，如果单击“放大”按钮，则将图像框的高度、宽度均增加100；单击“缩小”按钮，则将图像框的高度、忧度均减少100，要求程序中不得使用任何变量。
②通过属性窗口设置图像框的适当属性，使得在放大、缩小图像框时，其中的图像也自动放大、缩小。
注意：存盘时必须存放在考生文件夹下，工程文件名保存为sjt2．vbp，窗体文件名保存为sjt2．frm。
正确答案：(1)步骤1：新建一个窗体，按照题目要求建立文本框控件并设置其属性，程序中涉及的控件及属性见表3．8和表3．9。
步骤2：调试并运行程序，关闭程序后按题目要求存盘。
(2)步骤1：新建一个窗体，按照题目要求建立控件并设置图像框相应属性，如图3．17所示。
步骤2：按照步骤1设置其他控件相关属性，程亭中涉及的控件及属性见表3．10。
步骤3：打开代码编辑窗口，在指定位置编写如下代码。
参考答案Private Sub C1 Click( )’当单击”放大”按钮时，依次将Imagel的高与宽分别加100 Imagel．Height=Imagel．Height+i00 Imagel．Width=Imagel．Width+100 End Sub Private Sub C2 Click( )’当单击”缩小”按钮，则依次将Imagel的高与宽分别减100 Imagel．Height=Imagel．Height—100 Imagel．Width=Imagel．Width一100 End Sub 步骤4：调试并运行程序，关闭程序后按题目要求存盘。
2007—2008(2) VB上机练习题1．设计一个数字钟表程序，界面如图所示。
运行时单击窗体，显示当前的年月日星期及时间。
2．设计一个数学函数程序，界面如图所示。
程序运行时，在文本框中输入任意数值，单击相应按钮标签中显示结果。
文本框始终处于选中状态。
3．设计口令检测界面，口令自定，运行初始如第一幅图，若口令错，则如第二幅图；否则，将显示另一欢迎窗口，如第三幅图所示。
在连续三次输入错误口令后，给出警告并结束运行。
4．设计一个程序，用户界面如下图所示。
程序运行后，单击“计算”，求出应付款额；单击“清除”，清除所有文本框内容。
5．输入一个学生的学号和考试成绩，然后按如图格式在图片框中输出学号、考试成绩及评语，评语：90~100优秀；80~89良好；70~79中等；60~69及格；0~59不及格。
6．设计一个程序，用户界面如下图所示。
程序运行后，单击Command1按钮，求出最大最小数。
7．设计一个100（随机函数产生）之内的四则运算题，界面如下。
8．设计一个窗体Forml，界面如右图所示。
编写适当的事件过程，程序运行后在第一个文本框中输入圆的半径，单击“计算”按钮，分别在第二个和第三个文本框中显示圆的面积和周长。
9．界面如下图所示。
编写适当的事件过程，程序运行后在三个文本框中分别输入三角形的边长值，单击“判断并计算”按钮，判断它们是否能组成三角形，如果可以在Text4中显示三角形的面积，否则在Text4中显示“FALSE”。
10．某工程运行时，图片框中图可以任意。
单击“隐藏图像”按钮（command2）界面如右图，单击“显示图像”按钮（command1）界面如左图，编写适当的事件过程。
11．在文本框T1中打印100~999之间的所有水仙花数。
（该数为各位数字的立方和。
例如：153=1 3+5 3+3 3）12．有一数列，它的头2个数为0、1，以后的每个数都是其前2个数之和。
编程在文本框T1中输出所有这些数列，直到第30个数或最后一项等于1000为止，同时在另一文本框中输出它们的和。
1.新建工程，界面如下图，将窗体名称改为f1，标题属性为“我的第一个工程”， Text2允许多行，三个命令按钮名称分别为C1、C2、C3，单击C1按钮将Text1的字体改为黑体，Text2的字体改为隶书。
单击C2按钮将Text1的文字颜色改为红色，Text2的背景颜色改为蓝色。
单击C3按钮结束程序运行。
Private Sub Command1_Click()Text1.Font = 黑体End SubPrivate Sub Command2_Click() Text1.ForeColor = vbRedText2.ForeColor = vbBlue End SubPrivate Sub Command3_Click() End End Sub2.新建工程，界面如上图，运行时，鼠标在“改变窗体颜色”按钮上按下时使窗体背景色变为红色，鼠标抬起时使窗体背景色变为绿色。
鼠标在窗体空白地方按下时使Text1的内容为“在窗体上按下了鼠标”，鼠标抬起时使Text1的内容为“在窗体上抬起了鼠标”。
Private Sub Command1_MouseDown (Button As Integer, Shift As Integer, X As Single, Y As Single)Form1.BackColor = vbRed End SubPrivate Sub Command1_MouseUp (Button As Integer, Shift As Integer, X As Single, Y As Single)Form1.BackColor = vbGreen End SubPrivate Sub Form _MouseDown (Button As Integer, Shift As Integer, X As Single, Y As Single) Text1.Text = "在窗体上按下了鼠标" End SubPrivate Sub Form _MouseUp (Button As Integer, Shift As Integer, X As Single, Y As Single) Text1.Text = "在窗体上抬起了鼠标" End Sub3.新建工程，界面如下图，运行时，在文本框Text1中输入内容的同时，在文本框Text2、Text3中显示相同的内容，但字体不同（字体自定）。
以题号保存，如第1题取名：1.Frm 、1.Vbp 。
1、 编制事件过程Command1_Click ，执行该过程时调用InputBox 函数输入x ，按下式计算y 并以标签控件Label1显示y 值。
⎪⎩⎪⎨⎧>+-<=<=-+⋅-<-+=5log 5552sin 5123102x x x x x x x x x y x2、 编程运行时单击命令按钮，输入行数n(n<10)然后在窗体上输出n 层数字金字塔。
3、 编程求f=1-1/(2*3)+1/(3*4)-1/(4*5)+……+1/(19*20)。
在窗体上输出结果，运行效果如下图所示。
4、 计算下式的和，变量x 与n 的数值用输入对话框输入。
在窗体上输出结果，运行效果如下图所示。
)!1(...!4!3!232+++++=n x x x x s n 5、 建立一个5行5列二维数组，要求对角线为1，其余元素为0。
运行结果如图所示。
6、 建立一个5行5列二维数组，要求右上三角元素（含对角线）为1，其余元素为0。
7、 编制程序，用随机函数产生20个两位数的整数，存于4行5列的二维数组中，将数组按矩阵形式输出到窗体，并求出其最大元素及最大元素的行、列坐标。
8、 编制通用函数过程(Sum )，计算1+2+……+N 的值。
在窗体的Click 事件中调用该函数。
9、编制通用函数过程(Fact)，计算N！的值。
在窗体的Click事件中调用该函数。
10、编制通用函数过程(Prime)，用于判断1个整数是否为素数，若是则显示true，若不是则显示false。
在窗体的Click事件中调用该函数。
11、编制通用函数过程(Odd)。
用于判断一个整数的奇偶性。
在窗体的Click事件中调用该函数。
12、编制通用函数过程（Average），计算Double类型一维数组所有元素的平均值。
在窗体的Click事件中调用该函数。
13、编制通用Sub过程(Sort)，用选择法对一维数组按从大到小进行排序。
国家二级VB机试（上机操作）模拟试卷267(题后含答案及解析) 全部题型 2. 基本操作题 3. 简单应用题 4. 综合应用题基本操作题1．在考生文件夹下有一个数据库文件“samp1．accdb”，里边已建立了两个表对象“tGrade”和“tStudent”，同时还存在一个Excel文件“tCourse．xlsx”。
请按以下操作要求，完成表的设计。
(1)将Excel文件“tCourse．xlsx”链接到“samp1．accdb”数据库文件中，链接表名称不变。
要求：数据中的第一行作为字段名。
(2)将“tGrade表中隐藏的列显示出来。
(3)将“tStudent”表中“政治面貌”字段的默认值属性设置为“团员”，并将该字段在数据表视图中的显示标题改为“政治面目”。
(4)设置“tStudent”表的显示格式，使表背景颜色为主题颜色的“橄榄色，强调文字颜色3，深色50％”，文字颜色为标准色中的“黄色”、字号为10号。
(5)将北京五中毕业学生的学号第3、4位改为“09”。
(6)建立“tGrade”和“tStudent”两表之间的关系。
正确答案：(1)【操作步骤】步骤1：单击“外部数据”选项卡下“导入并链接”组中的“Excel”按钮，打开“获取外部数据－Exce电子表格”对话框，单击“浏览”按钮，在考生文件夹找到要导入的“tCourse．xlsx”文件，单击“打开”按钮，选择“通过创建链接表来链接到数槲源”单选框，单击“确定”按钮，如图3．215所示。
步骤2：单击“下一步”按钮，勾选“第一行包含列标题”复选框，单击“完成”按钮，如图3．216所示。
(2)【操作步骤】步骤1：右键单击“tGrade”表对象，从弹出的怏捷菜单中选择“打开”命令。
步骤2：在任一字段名称位置右击，选择“取消隐藏字段”命令，在打开的“取消隐藏列”对话框中勾选“成绩”复选框，单击“关闭”按钮，如图3．217所示。
步骤3：按Ctrl＋S保存修改，关闭数据表视图。
国家二级VB机试（上机操作）模拟试卷460(题后含答案及解析) 全部题型 2. 基本操作题 3. 简单应用题 4. 综合应用题基本操作题1．请根据以下各小题的要求设计Visual Basic应用程序(包括界面和代码)。
(1)在名称为Form1的窗体上画1个名称为Cbol的组合框，组合框的列表项分别是：北京、天津、上海。
请设置组合框的参数，使其外观如图3－6所示。
窗体的标题是“用组合框”。
注意：存盘时，将文件保存至考生文件夹下，且窗体文件名为sjt1．frm，工程文件名为sjt1．vbp。
(2)在名称为Form1的窗体上画1个名称为Pl的图片框，窗体的标题为“程序设计”，如图3－7(a)所示。
编写适当的事件过程，使得程序运行后，单击窗体，则在图片框中显示窗体的标题，并把窗体的标题变为Basic，如图3－7(b)所示。
注意：存盘时，将文件保存至考生文件夹下，且窗体文件名为sjt2．frm，工程文件名为sjt2．vbp。
正确答案：第1小题【操作步骤】步骤1：新建一个“标准EXE”工程，在窗体Form1中加入一个组合框。
按表4－3设置其相关属性。
步骤2：按要求将文件保存至考生文件夹中。
第2小题【操作步骤】步骤1：新建一个“标准EXE”工程，在窗体Form1中加入一个图片框。
按表4－4设置其相关属性。
步骤2：在打开的代码编辑窗口中，编写窗体的Click 事件代码。
参考代码：Private Sub Form Click( ) P1．Print Form1．Caption Form1．Caption＝”Basic”End Sub 步骤3：按要求将文件保存至考生文件夹中。
简单应用题2．(1)在考生文件夹中有一个工程文件sjt3．vbp，窗体上有2个命令按钮、1．个水平滚动条和1个计时器，其名称分别为Command1、Command2、HScroll1和’Timed，如图3－8(a)所示。
程序运行后，按钮Command1、Command2的标题分别立即显示“开始”“停止”，同时把计时器的Intaval属性设置为100，Enabled 属性设置为False。
上机操作练习题1．某数组有20个元素,其值为随机产生的两位整数。
现要求将前10个元素与后10个元素对换。
即第1个元素与第20个元素互换,第2个数与第19个元素互换，…,第10个元素与第11个元素互换.在窗体上输出数组原来各元素的值与对换后各元素的值。
Option explicitDim a(1 to 20) as integer, I as integer，j as integer, t as integerPrivate Sub Form_Load(）ShowPrint "原始数组是：”RandomizeFor i = 1 To 20a(i) = Int（Rnd ＊90）+ 10Print a(i）；If i Mod 10 = 0 Then PrintNext iPrintPrint ”现在数组是：”For i = 1 To 10j = 21 - it = a（i）：a(i）= a(j）：a(j) = tNext iFor i = 1 To 20Print a（i)；If i Mod 10 = 0 Then PrintNext iEnd Sub2．从数组中删除一个数。
先定义一个一维数组，大小、数组的值自定。
从键盘上输入一个数，若这个数在数组当中，就把它删除；若这个数不在数组中，提示“该数不在数组中"注意:1)如果数组中存在多个与该数相同的元素,每一个都能删除；2）能实现多次删除Private Sub Form_Load（）ShowReDim a（9）As Integerm = 1Print ”原来数组为:”For i = 0 To 9a(i) = InputBox(”请输入第”＆m ＆"个数：”）Print a(i)；m = m + 1Next iPrintn = InputBox(”查找的数是："）i = 0：flag = FalseDoIf a(i) = n Thenj = i：flag = TrueFor k = j To UBound（a) - 1a（k）= a（k + 1)Next kReDim Preserve a(UBound(a) - 1)i = i - 1End Ifi = i + 1Loop While (i <= UBound（a）)If flag = False ThenMsgBox n ＆"不在该数组中”ElsePrint ”删除”＆n ＆"后的数组是：”For i = 0 To UBound(a）Print a(i）；Next iEnd IfEnd Sub3．数组a中存放着升序排列的数据，使用array赋值，将inputbox输入的新数插入到数组中，插入后数组仍有序。
国家二级VB机试（上机操作）模拟试卷280(题后含答案及解析) 全部题型 2. 基本操作题 3. 简单应用题 4. 综合应用题基本操作题1．请根据以下各小题的要求设计Visual Basic应用程序(包括界面和代码)。
(1)在名称为Form1，标题为“组合框”的窗体上画1个名称为Combo1的组合框，利用属性窗口设置适当属性使其在程序刚开始运行时的界面如图3—37所示。
注意：存盘时必须存放在考生文件夹下，工程文件名为sjt1．vbp，窗体文件名为sjt1．frm。
(2)在名称为Form1的窗体上画一个名称为Image1的图像框，并通过属性窗口为其装入考生文件夹中的图标文件CARS．ico再画一个名称为Timer1的计时器，一个名称为Command1、标题为“开始”的命令按钮，如图3—37图3—38所示。
要求：通过属性窗口设置适当的属性，再编写适当的事件过程，使得程序运行时，单击“开始”按钮，图片可以每0．2秒向右移动50。
注意：程序中不得使用变量，每个事件过程中只能写一条语句。
存盘时必须存放在考生文件夹下，工程文件名为sjt2．vbp，窗体文件名为sjt2．frm。
正确答案：第1小题步骤1：新建一个“标准EXE”工程，在窗体Form1中加入一个组合框。
按表4—25设置其相关属性。
步骤2：按要求将文件保存至考生文件夹中。
第2小题步骤1：新建一个“标准EXE”工程，在窗体Form1中加入一个图像框、一个定时器和一个命令按钮。
按表4—26设置其相关属性。
步骤2：在打开的代码编辑窗口中，编写命令按钮的Click事件代码和定时器的Timer事件代码。
参考代码：Private Sub Command1_Click( )Timer1．Enabled=TrueEnd SubPrivate Sub Timer1_Timet( )Image1．Left=50+Image1．LeftEnd Sub步骤3：按要求将文件保存至考生文件夹中。
VB上机练习题3
1、实验教材P9 (1)
2、实验教材P9 (2)
3、实验教材P9 (3)
4、在窗体上设计一个标签，要求标签有边框，当程序运行时标签中显示内容为“验证性实验”，窗体的背景颜色为“黄色”，当单击标签时，显示的内容水平居中对齐，双击标签时，标签的背景透明。
5、按照下面窗体的式样设计窗体界面，然后编写程序代码实现下面的加法器功能：当程序运行时单击“出题”按钮，分别在文本框Text1和Text2中随机出[10—90]之间的两位整数（提示：用随机函数Rnd），当单击“=”按钮时，在文本框Text3中显示计算的结果，单击“清除”按钮时，三个文本框中的内容全部清除。
VB上机练习题4
1、设a=2, b=3, c=4, d=5, 求下列表达式的值，将答案写在每题的后面。
(1) a+c < b+d
(2) a+b <> c+d
(3) a > b AND c<=d
(4) b < c AND d>a
(5) a < c OR d<=b
(6) a > b OR c<=d
(7)NOT a>b OR c>=d
(8)3>2*b OR a=c AND b <> c OR c< d
2、将下列数学式子写成vb表达式，将答案写在每题的后面。
(1) 5+(a+b)2
(2)e2+2
(3)2a(7+b)
(4)8e3ln2
(5)
(6)
3、将答案写在每题的后面。
(1)
(2)print chr(97)
(3)print Asc(“B”)
(4)print Asc(“def”)
(5)print Sqr(2)
(6) print sgn(2)
4、写出下列程序的运行结果，将答案写在每题的后面。
设ab$=”ABCDEF”
(1)Print Left(ab$ , 4)
(2)Print Mid(ab$ , 2, 4)
(3)print Right(ab$ , 4)
(4)print Len(ab$)
5、按照运算符的运算顺序(函数>算术运算符>关系运算符>逻辑运算符)
计算表达式的值：10\ 97 / Asc(“a”)*(18.7 mod 4)+Int(8.7-5.5)
6、产生[10，100]区间内的随机整数使用________________________语句？
7、实验教程P10 （6）。
8、编写程序，要求程序运行时在四个文本框中分别任意输入相应的信息（见下图），当单
击“计算”按钮时在窗体中按照下图格式输出此人相应的信息及总分和平均分，平均分保留两位小数（用Format（S，“###.##”）函数实现）。
单击“清除”按钮时清除四个文本框中的内容及窗体中显示的信息。
单击“结束”按钮时结束运行。
运行界面如下图。
（可参考实验教程P16 例2-1）
9、编写程序，要求程序运行时单击“生成”按钮在窗体中输出指定范围内的（范围在程
序运行时由两个文本框任意输入）3个随机整数和这三个随机整数和的平方根，平方根保留两位小数（用Format（S，“###.##”）函数实现）。
单击“清除”按钮时清除两个文本框中的内容及窗体中显示的红色信息。
单击“结束”按钮时结束运行。
运行界面如下图。
VB上机练习题5
1、写出下列程序的运行结果，将答案写在每题的后面。
(1) print chr(70)
(6)print chr(102)
(7)print Asc(“D”)
(8)print Asc(“fde”)
(9)print Ucase(“asdfgHJKL”)
(10)print Lcase(“ABCDefg”)
(11)print String(5, ”$%”)
(12)print String(6, 100)
(13)Print len("good morning")
(14)Print Format(1234567.896, "$#,##.##")
1、写出下列程序的运行结果，将答案写在每题的后面。
设S=”ABC defGH”
(5)Print Left(S , 5)
(6)Print Mid(S , 2, 4)
(7)print Right(S , 4)
(8)print instr(S，“def”)
3、实验教程P20 (3)
4、按照下面窗体的式样设计窗体界面，然后编写程序代码实现下面的功能：单击“显示日期”按钮，在标签中显示当前的日期；单击“显示时间”按钮，在文本框中显示当前的时间;单击“清除”按钮,显示的日期和时间被清除。
5、按照下面的窗体式样设计窗
体界面，然后编写程序代码实现
加法器功能：当程序运行时单击
“出题”按钮，分别用Inputbox语句从键盘上任意输入两个两位数，并分别显示在文本
框Text1和Text2中，当单击“=”按钮时，在文本框Text3中显示计算的结果，单击“清除”按钮时，三个文本框中的内容全部清除。
6. 下面窗体是运行后的界面。
请按照界面式样设计界面，
要求：程序运行时点击“出题”命令按钮，用随机函数在加数和被加数的文本框中随机出10到50之间的两位整数。
请你在第三个文本框中进行做答，然后单击“判题”按钮，如果答对了，就在下面的“标签”控件中显示“答对了！”，否则显示“答错了！”。
按照要求编写程序代码。
7、请按照下图式样设计界面。
程序运行时，当单击“输入圆的半径”按钮后，要求从键盘上任意输入圆的半径，在窗体上打印出圆的周长、面积、体积。
VB 上机练习题6
1、在窗体上画一个名称为Command1的命令按钮，然后编写了如下的事件过程, 问程序运行时，三次单击命令按钮Command1后，在窗体上显示的第三行是（ ）。
(提示：Static 定义的变量为静态变量，静态变量在程序执行结束后不会释放掉，仍然保留当前的值)
Private Sub Command1_Click()
Dim A as integer
Static B as integer
B=B + 3
A=3 + A
Print A; B
End Sub
2、 在窗体上画一个命令按钮，然后编写了如下的事件过程：
程序运行后，单击命令按钮，在输入对话框中分别输入321和456，输出的结果为（ ）
A) 777 777 B) 321456 321456 C) 777 321456 D)321456 777
Private Sub Command1_Click()
Dim a As String, b As Integer
a = InputBox("请输入数字")
b = InputBox("请输入数字")
print a + b ；a & b
End Sub
3、 当VB 执行下面语句后，A 的值为（ ）
A=1
IF A>0 then A=A+1
IF A>1 then A=0
A) 0 B) 1 C) 2 D) 3
4、用Inputbox 语句任意输入三个数，打印三个数，并输出三个数中最小的数。
5、用Inputbox 语句任意输入三个数，求其平均值，输出大于平均值的数。
6、某幼儿园只收2～6岁的小孩，2岁入小班，3～4岁入中班，5～6岁入大班。
输入小孩的岁数，输出入哪类班。
7、分别用行IF 、块IF 和Select case 语句实现如下计算功能：
Y=
8、（选作）输入任意三个整数，按从大到小的顺序
VB 上机练习题７
一、选择题 1、主教材P150 3 （答案： ）
2、主教材P151 5 （答案： ）
3、主教材P151 6 （答案： ）
-2x+1 x<0 x 2 0≤x<10 4x- 4 x ≥10
4、主教材P152 8 （答案：）
5、主教材P152 9 （答案：）
二、编程题
1、程序运行时由InputBox函数输入5个数值(包括正数和负数)，分别计算出正数和负数的和。
要求将输入的原始数据和结果显示在窗体上。
2、计算s=1+1/2+1/3+…+1/n (n可以通过inputbox语句任意指定)。
3、主教材P154 三、2
4、主教材P154 三、4
5、主教材P154 三、9
6、打印100以内的素数，代码如下：
Private Sub Form_Click()
For i = 1 To 100
For j = 2 To Sqr(i)
If i Mod j = 0 Then Exit For
Next j
If j > Sqr(i) Then Print i;
Next i
End Sub。
