VB顺序结构练习
VB第三章 顺序结构
返回以e为底，x为指数的幂。 Exp(1)=2.71828182845905
Int(x)
Fix(x)
均为数值类型
均为数值类型
返回不超过x的最大整数
Int(3.5)=3；Int(-3.5)=-4
Round(x)
均为数值类型
Rnd([x])
均为数值类型
若 x 为正数，返回整数部分； Fix (3.5)=3；Fix (-3.5ቤተ መጻሕፍቲ ባይዱ=-3 若x为负，返回数大于或等于x 的第一个负整数。 返回 x 经过四舍五入以后的结 Round(3.5)=4；Round(-3.5)= -4 果。 1. 缺省参数时，随机返回一个0到1之间的小数（包含0不包含1）； 2. x<0，每次使用相同随机种子得到相同结果； 3. x>0，产生下一个随机数； 4. x=0，产生最近生成的随机数； 在使用Rnd之前，最好先使用Randomize语句初始化随机数生成器以避 免使用相同种子产生相同随机数列。
3.货币型数据
货币数据类型是为表示钱款而设置的，精确到十数点后4位(小数 点前有15位)，在小数点后4位以后的数字将被舍去。它与浮点数的区 别是：浮点数中的小数点是“浮动”的，即小数点可以出现在数的任 何位置，而货币类型数据的小数点是固定的。
4.日期型数据
日期型数据是用来表示日期的，它由年月日及时间（可缺省）按 照一定的排列组成，由一对#号作为定界符。如：#8/24/2001 1:20 PM# 表示2001年8月24日下午1时20分。
1.字符串型数据
字符串是一个由ASCII字符组成的字符序列，在Visual Basic程序中需要用双引号把组成字符串的字符包括起来 例： “南华大学” “Visual Basic”
VB课件第4章Visual Basic 顺序结构
语法格式： [对象名.] Print [表达式列表]
对象名：可以是窗体（Form）、图片框 （PictureBox）或打印机（Printer）的名称， 如果省略对象名，则在当前窗体上直接输出。
表达式列表
可以是一个或多个表达式，各表达式之间可用 逗号（，）或分号（；）分隔。如果省略，则 输出一个空行。
值类型时，自动转换成数值类型再赋值。但当表达 式中有非数字字符或空串时，就会出错。 （3）当逻辑类型赋值给数值类型时，True转换 为-1，False转换为0；反之，当数值类型赋值给 逻辑类型时，非0转换为True，0转换为False。 （4）任何非字符类型赋值给字符类型时，均自动 转换为字符类型。
End Sub
4.5 注释、暂停与结束语句
1.注释语句
为了提高程序的可读性两种格式：
Rem <注释内容>
a
b
' 注释内容
例如：
Rem 交换a和b的值
c
c = a ' c为临时单元
a=b
b=c
关于注释语句的几点说明
(1)注释语句是非执行语句，只对程序有关部分起注释 作用
(2)格式2主要放在其他语句后面对其进行说明，单撇号 “'”可以直接写在其他语句后面。
(7)一个赋值语句只能给一个变量赋值，在程 序中出现连等的情况，例如a = b = 5,系统 认为最左边的“=”是赋值号，以后“=”均为 比较运算中的符号，在赋值时，先进行比较运 算，再将运算结果赋给变量。
(8)不要将赋值运算与代数方程的概念相混淆。
如：x = x + 1
4.3 Print 语句
vb三种基本结构练习题
vb三种基本结构练习题1、计算圆的面积（顺序结构）dim r,s,c as singler=inputbox("输入r的值")s=3.14*r*rc=2*3.14*rprint sprint c2、小明去买电池，2.5元一节，买电池超过10节，超出的部分按八折出售。
输入小明买电池的数量，输出小明应付的钱数。
（选择语句）dim a as integerdim q as singlea=inputbox("输入小明买的电池数")if a>10 thenb=25+(a-10)*2.5*0.8elseb=a*2.5end ifprint b3、求1+2+3+4+……+100的和。
（循环语句）dim i,sum as integerfor i=1 to 100sum=sum+inext iprint sum4、输入数字n，求n！（n!=1*2*3*……*n）（循环语句）dim i,sum,n as longn=inputbox("输入n的值")sum=1for i=1 to nsum=sum*inext iprint sumVB上机练习汇总1、在窗体上任意位置画一个文本框和一个命令按钮，编写程序，当用户单击命令按钮时，文本框移动到窗体的左上角，并且文本框的大小是原来的2倍。
2、在窗体上任意位置画一个文本框和一个命令按钮，设置窗体的标题属性为“信息窗口”；命令按钮的标题属性为“确定”。
编写程序，当用户单击命令按钮时，在文本框中显示“包头师范学院”，要求字体为隶书、加粗、加下划线、字号为20、颜色为红色。
3、在窗体上任意位置画两个命令按钮，分别设置它们的标题属性为：加载图片、显示信息。
编写程序，当用户单击第一个命令按钮时，在窗体上加载一幅图片（图片自定）。
当用户单击第二个命令按钮时，在窗体上打印信息“包头师范学院“。
4、例1:在窗体上部设置一个文本框，文本框的下面设置3 个命令按钮，其中左边按钮中标有“单击此按钮”，中间按钮中标有“清除”，右边按钮中标有“程序结束”。
VB顺序结构编程练习题(2)
VB顺序结构编程练习题(2)1、有一个“就是它”的猜数游戏，步骤如下：请你任意输入一个三位数，在这三位数后重复一遍，得到一个六位数，467→467467。
把这个数连续除以7，11，13，最后的商就是你输入的三位数。
请编程加以验证。
2、某学校开运动会，要在正六边形的操场的周围插上彩旗。
如果每边插a面彩旗(包括每个角上的彩旗)，a变量数可由键盘输入，问总共需要多少面彩旗?3、计算图形的周长和面积．4、编写求下列自然数等差数列之和的程序，数列的首项和末项由键盘输入。
4+5+6+7+8+9+10+11+12+13+14+15{提示：等差数列的和=(首项+末项)×项数／2)、项数=末项-首项+1}5、输入一个学生的情况，包括学号(用整数表示)、姓名(用第一个字母表示)、语文成绩、英语成绩和数学成绩，然后输出学号、姓名、总分和语数外三门课的平均成绩（保留两位小数）。
6、输入三条边的整数值a、b、c，输出该三边构成的三角形的面积。
7、输入一个三位整数，输出该三位数的各位数字之和，以及它的反序数。
8、三个小朋友做游戏，第一个人把自己的糖果等分为三份，多余的吃掉，一份留给自己，另两份分别给其他两位；接下来，第二个人也仿照第一做法做了一遍，最后第三个人也如前面的人一样做了一遍。
请输出三人做完游戏后各自的糖果数。
(三人刚开始时各自的糖果数用键盘输入)。
9、输入一元二次方程的三个系数(b2>4ac)，输出该方程的二个实数根。
10、输入两个整数给A,B两个变量，编程交换A,B两个变量的值，并输出。
(用两种以上方法)。
VB 第03章 顺序结构程序设计
程序设计的一般步骤
第一步，分析问题。
第二步，程序流程设计。 第三步，人机界面设计。
第四步，程序代码设计。
第五步，运行、调试。 第六步，编译、发布。
字符数。
例如： Print “后面有8个空格”; Spc(8); “前面有8个空格”
输出结果： 后面有8个空格 前面有8个空格
Tab(n) ——用来将插入点定位在绝对列号上，n 为列号。例 如： 输出结果： Print Tab(10); “姓名”; Tab(25); “年龄” 姓名 年龄
Cls方法
InputBox函数
例如：
Dim strName As String * 40 strName = InputBox(“请输入你的姓名” + vbCrLf + “然后单击确定” , “输入框” ) 也可以使用如下语句： Dim strName As String * 40 strName = InputBox( “请输入你的姓名” + Chr(13) +
‘ 计算 x*3 的值，得6，把6赋给y
‘ 计算 x+1 的值，把 3 赋给 x ‘ 把 “Hello” 赋给a$ ‘ 0.1 赋给 sRate
Text1.Text ＝ “欢迎使用 Visual Basic 6.0 ”
注意：当表达式的类型与变量的类型不一致时，强制转换成左
边的类型。 例如： iA% = 10 / 3.0 ' iA中的结果为3
[对象名.] Print [表达式列表]
其中：对象名——一般为窗体名。省略此项，表示在当前窗体
上输出。 表达式列表——是一个或多个表达式。若为多个表达式， 则各表达式之间用“，”或“；”隔开。省略此项，则输出一 空行。 功能：依次计算各个表达式的值，按指定的格式在对象上打印 输出。
vb顺序结构
说明
InputBox 函数返回值是字符（String) 型。当要获取数 值型数据时，应对被赋值变量作出类型说明：
Dim r!
r = InputBox("Please enter radius:", _ "InputBox Demo ", 0, 100,100) 或使用Val函数作类型转换： r= Val(InputBox("Please enter radius:", _ "InputBox Demo ", 0, 100,100)) 函数中参数按顺序排列，若省略某些参数，须加相应 的逗号分隔： r= InputBox("Please enter radius:", , , 100,100))
控件属性设置
当前名称
Label1 Label2 Label3 Text1
属性 Caption Caption Caption Text
新值
Type your name and password to login
&User Name &Passord <blank>
控件属性设置（续）
Text2 Text PasswordChar Caption Caption Cancel Caption BorderStyle <blank> * OK Cancel Ture* Enter Program Password 1-Fixed Single
程序中常用 N=N+1 实现累加。* 2 数据输入 1. InputBox 函数（生成一个对话框,让用户输入数据。） 格式： InputBox(prompt[,title][,default][,xPos][,yPos])
VB操作题顺序结构操作题
VB6—顺序结构操作题一、操作题，每题10分，6题共60分【第1题】打开“Z:\12\工程1.vbp”，完善Command1_Click事件代码并保存。
实现功能：在Text1中输入一个代表秒数的整数后，单击“计算”按钮后，在Label1、Label2、Label3中显示对应的小时、分钟和秒数。
如在Text1中输入“3672”，Label1、Label2、Label3中分别显示“1”、“1”、“12”，即1小时1分12秒。
Private Sub Command1_Click()Dim h As IntegerDim m As IntegerDim s As IntegerDim ss As Integerss = Val(①)h = ②m = (ss - h * 3600) \ 60s = (ss - h * 3600) Mod ③Label1.Caption = Str(h)Label2.Caption = Str(m)Label3.Caption = Str(s)End Sub【第2题】打开文件“考生文件夹\26\工程1.vbp”，完善Command1_Click及Command2_Click事件代码并保存。
在窗体上有一个“标签”控件Label1和两个“命令按钮”控件，命令按钮command1上显示“上移”，另一个命令按钮command2上显示“下移”。
实现功能：（1）设置标签控件Label1属性，显示文字为“欢迎进入算法与程序设计”；（2）单击“command1”时，Label1上移100个单位；单击“command2”，Label1下移100个单位。
【第3题】打开文件“考生文件夹\32\工程1.vbp”，完善Command1_Click事件代码并保存。
实现功能：从键盘上输入一个三位数，然后将它逆序输出到对应文本框中。
例如输入为“123”时，输出结果为“321”。
Private Sub Command1_Click()Dim a As IntegerDim b As IntegerDim bai As IntegerDim shi As IntegerDim ge As Integera = Val(①)bai = a \ 100shi = (a - bai * 100) \ 10ge = a Mod 10② = ge * 100 + shi * 10 + bai③ = Str(b)End Sub【第4题】打开“Z:\36\工程1.vbp”，完善Command1_Click事件代码并保存。
计算机二级VB训练题及答案
计算机二级VB训练题及答案2017年计算机二级VB训练题及答案计算机等级考试要取得好成绩平时一定要多加练习，提高做题技巧和速度。
下面是店铺为大家整理的2017年计算机二级VB训练题及答案，希望对大家有帮助!练习一1.在待排序的元素序列基本有序的前提下，效率最高的排序方法是(C)A)冒泡排序B)选择排序C)快速排序D)归并排序2.非空的循环单链表head的尾结点(由p所指向)，满足(A)A)p->next==NULLB)p==NULLC)p->next=headD)p=head3.线性表的顺序存储结构和线性表的链式存储结构分别是(C)A)顺序存取的存储结构、顺序存取的存储结构B)随机存取的存储结构、顺序存取的存储结构C)随机存取的存储结构、随机存取的存储结构D)任意存取的存储结构、任意存取的存储结构4.结构化程序设计所规定的三种基本控制结构是(D)A)输入、处理、输出B)树形、网形、环形C)顺序、选择、循环D)主程序、子程序、函数5.下列不属于软件调试技术的是(D)A)强行排错法B)集成测试法C)回溯法D)原因排除法6.软件生命周期中花费时间最多的阶段是(B)A)详细设计B)软件编码C)软件测试D)软件维护7.软件设计中，有利于提高模块独立性的一个准则是(A)A)低内聚低耦合B)低内聚高耦合C)高内聚低耦合D)高内聚高耦合8.数据库的故障恢复一般是由(D)A)数据流图完成的B)数据字典完成的C)DBA完成的D)PAD图完成的9.下列关系运算的叙述中，正确的是(B)A)投影、选择、连接是从二维表行的方向进行的运算B)并、交、差是从二维表的列的方向来进行运算C)投影、选择、连接是从二维表列的方向进行的运算D)以上3种说法都不对10.在关系数据库中，对一个关系做投影操作后，新关系的.元组个数将(A)A)等于原来关系中的元组个数B)大于原来关系中的元组个数C)小于原来关系中的元组个数D)不能确定元组个数11.以下不具有Picture属性的对象是(B)A)窗体B)图片框C)图像框D)文本框12.双击窗体中的对象后，Visual Basic将显示的窗口是(D)A)项目(工程)窗口B)工具箱C)代码窗口D)属性窗口13.若要将窗体从内存中卸载，其实现的方法是(A)A)ShowB)UnLoadC)LoadD)Hide14.要使目录列表框(名称为Dirl)中的目录随着驱动器列表框(名称为Drivel)中所选择的当前驱动器的不同而同时发生变化，则应：(A)A)在Dirl中的Change事件中，书写语句 Dirl.Drive=Drivel.DriveB)在Dirl中的Change事件中，书写语句 Dirl.Path=Drivel.DriveC)在Drivel中的Change事件中，书写语句Dirl.Path=Drivel.DriveD)在Drivel中的Change事件中，书写语句Dirl.Drive=Drivel.Drive15.设有如下声明：Dim x As Integer如果Sgn(x)的值为-1，则表示x的值是(A)A)整数B)大于0的整数> C)等于0的整数D)小于0的数16.下述说法不正确的是(B)A)变量名的长度不能超过255个字符B)变量名可以包含小数点或者内嵌的类型声明字符C)变量名不能使用关键字D)变量名的第一个字符必须是字母17.下列可作为Visual Basic变量名的是(A)A)FilenameB)A(A+B)C)A%DD)Print18.语句Print Sgn(-6^2)+Abs(-6^2)+Int(-6^2)的输出结果是(BD)A)-36B)1C)-1D)-7219.下面说法中，不正确的是(D)A)Cls清除由Print方法显示的文本或在图片框中显示的图形，并把光标移到对象的左上角(0,0)B)当前窗体是用Picture属性装入的图形时，也可以用Cls方法清除C)Move方法用来移动窗体和控件，并改变其大小D)Cls方法中的对象，可以是窗体或图片框，如果省略则清除当前窗体中显示的内容20.假定在图片框Picturel中装入了一个图形，为了清除该图形(注意，清除图形，而不是删除图片框)，应采用的正确方法是(D)A)选择图片框，然后按Del键B)执行语句 Picturel.picture=LoadPicture("")C)执行语句 Picturel.picture=""D)选择图片框，在属性窗口中选择Picture属性条，然后按回车键[ 结束 ]练习二1.下列关于栈的叙述正确的是(D)A)栈是非线性结构B)栈是一种树状结构C)栈具有先进先出的特征D)栈具有后进先出的特征2.若某二叉树的前序遍历访问顺序是abdgcefh，中序遍历访问顺序是dgbaechf，则其后序遍历的结点访问顺序是(D)A)bdgcefhaB)gdbecfhaC)bdgaechfD)gdbehfca3.根据数据结构中各数据元素之间前后件关系的复杂程度，一般将数据结构分成(C)A)动态结构和静态结构B)紧凑结构和非紧凑结构C)线性结构和非线性结构D)内部结构和外部结构4.下面对对象概念描述错误的是(A)A)任何对象都必须有继承性B)对象是属性和方法的封装体C)对象间的通讯靠消息传递D)操作是对象的动态属性5.软件开发的结构化生命周期方法将软件生命周期划分成(A)A)定义、开发、运行维护B)设计阶段、编程阶段、测试阶段C)总体设计、详细设计、编程调试D)需求分析、功能定义、系统设计6.下列工具中为需求分析常用工具的是(D)A)PADB)PFDC)N-SD)DFD7.开发大型软件时，产生困难的根本原因是(A)A)大系统的复杂性B)人员知识不足C)客观世界千变万化D)时间紧、任务重8.下述关于数据库系统的叙述中正确的是(A)A)数据库系统减少了数据冗余B)数据库系统避免了一切冗余C)数据库系统中数据的一致性是指数据类型一致D)数据库系统比文件系统能管理更多的数据9.单个用户使用的数据视图的描述称为(A)A)外模式B)概念模式C)内模式D)存储模式10.关系数据库管理系统能实现的专门关系运算包括(B)A)排序、索引、统计B)选择、投影、连接C)关联、更新、排序D)显示、打印、制表11.与传统的程序设计语言相比，Visual Basic 最突出的特点是(C)A)结构化程序设计B)程序开发环境C)事件驱动编程机制D)程序调试技术12.在Visual Basic 中，下列优先级最高的运算符是(A)A)*B)\C)<D)Not13.下列语句用来设置疤錐orm1的属性，其中在运行时不能正确操作的语句是(B)A)Form1.Caption="Form Test"B)="Form Test"C)Form1.MaxButton=FalseD)Form1.MinButton=False14.表达式Left("how are you",3)的值是(A)A)howB)areC)youD)how are you15.在设计阶段，当双击窗体上的某个控件时，所打开的窗口是(C)A)工程资源管理器窗口B)工具箱窗口C)代码窗口D)属性窗口16.下列正确的Visual Basic注释语句是(B)A)Dim a(10)As Integer Rem 这是一个VB程序B)这是一个VB程序P Private Sub Command1_Click() …C)a=1:b=2:_Rem 这是一个VB程序：c=3D)If Shift=6 And Button=2 ThenPrint"BBBB"Rem这是一个VB程序End If17.代数式ab+cd对应的Visual Basic6.0表达式是(A)A)a/(b+c/D)B)(a/b+c)/dC)a/(b+c)/dD)a/b+c/d18.使程序立即从一个Function过程中退出的语句是(A)A)Exit FunctionB)ExitC)ReturnD)Resume19.要使一个标签透明且具有边框，则应(B)A)将其BackStyle属性设置为0，BorderStyle属性设置为0B)将其BackStyle属性设置为0，BorderStyle属性设置为1C)将其BackStyle属性设置为1，BorderStyle属性设置为0D)将其BackStyle属性设置为1，BorderStyle属性设置为120.在窗体上画一个命令按钮，然后编写如下代码：Private Sub Command1_Click()a&=InputBox("请输入第一个数")b&=InputBox("请输入第二个数")Print b&+a&End Sub程序运行后，单击命令按钮，在两个输入对话框中先后输入12345和54321，程序的输出结果是(A)A)66666B)5432112345C)1234554321D)出错[ 结束 ]【2017年计算机二级VB训练题及答案】。
- 1、下载文档前请自行甄别文档内容的完整性，平台不提供额外的编辑、内容补充、找答案等附加服务。
- 2、"仅部分预览"的文档,不可在线预览部分如存在完整性等问题,可反馈申请退款(可完整预览的文档不适用该条件!)。
- 3、如文档侵犯您的权益，请联系客服反馈,我们会尽快为您处理(人工客服工作时间：9:00-18:30)。
VB顺序结构及选择结构练习一、单选题1.在窗体上画一个命令按扭（名称为Command1），然后编写如下事件过程Private Sub Command1_Click()b=5c=6Print a = b + cEnd Sub程序运行后，单击命令按扭，其结果为（D）A）a=11 B）a=b + c C）a= D）False2. 在窗体上画一个命令按扭（名称为Command1），然后编写如下事件过程Private Sub Command1_Click(D)a=11b=5c=6Print a = b + cEnd Sub程序运行后，单击命令按扭，其结果为（）A）a=11 B）a=b + c C）a= D）True3.以下语句的输出结果是（B）a = Sqr(3)Print Format(a,”$$#### : ###”)A）$1.732 B）$$1.732 C）$1732 D）$$00001.7324.以下程序段的输出结果是（D）a = Sqr(3)b = Sqr(2)c =a>bPrint cA）-1 B）0 C）False D）True5.以下语句的输出结果是（C）Print Format$ (32548.5,”000,000.00”)A）32548.5 B）32,548.5 C）032,548.50 D）32,548.501.假定有如下语句：answer$=MsgBox(“String1”,, “String2”, “String3”,2)执行该语句后，将显示1个信息框，此时如果单击“确定”按扭，则answer$的值为（D）A）String1 B）String2 C）String3 D）12.InputBox函数返回值的类型为（B）A）数值B）字符串C）变体D）数值或字符串（视输入的数据而定）3.在窗体上画1个名为Command1的命令按扭，然后编写如下事件过程。
Private Sub Command1_Click()a = InputBox(“Enter the First integer”)b = InputBox(“Enter the Second integer”)Print b + aEnd Sub程序运行后，单击命令按扭，先后在2个输入对话框中输入456和123，则输出结果是（D）A）579 B）123 C）456123 D）1234564.执行下面的语句后，所产生的信息框的标题是（A）a = MsgBox(“AAAA”，，”BBBB”,””,5)A）BBBB B）空C）AAAA D）出错，不能产生信息框5.在窗体上画1个名为Command1的命令按扭，然后编写如下事件过程Privete Sub Command1_Click()MsgBox Str(123 + 321)End Sub程序运行后，单击命令按扭，则在信息框中显示的提示信息为（B）A）123 + 321 B）字符串”444”C）数值444 D）空白6.MsgBox函数的反回值的类型为（A）A）整型(Integer) B）字符串C）变体D）整数或字符串（视选择的按扭而定）1.假定有如下语句：st$=InputBox(“请输入一串字符”, “输入对话框”, “请输入字符串”)当用户输入完毕，按“确定”按扭后，st$变量的内容是（）A）请输入一串字符B）字符串对话框C）请输入字符串D）用户输入内容1. 假定有如下语句：Private Sub Form_Click()Dim a,b,x As Integera = InputBox (“a=?”)b = InputBox (“b=?”)x = a + bIf a > b Then x = a - bPrint xEnd Sub运行时从键盘输入3和4，输入x的值是（C）A）3 B）5 C）7 D）92. 假定有如下语句：Private Sub Form_Click()b = 1 : a = 2Print IIf (a >= b,a,b)End Sub运行后输出的结果是（C）A）0 B）1 C）2 D）33.假定有如下语句：Private Sub Form_Click()s = Val (InputBox ( “Input V alue of s:”))Select Case sCase Is < 6f = s + 1Case Is < 5f = s + 2Case Is < 4f = s + 3Case Elsef = s + 4End SelectPrint s;fEnd Sub运行时从键盘输入6，输出结果是（D）A）6 7 B）6 8 C）6 9 D）6 104. 假定有如下语句：Private Sub Form_Click()score = Int (Rnd * 10) + 80Select Case scoreCase Is < 60a$ = “F”Case 60 To 69a$ = “D”Case 70 To 79a$ = “C”Case 80 To 89a$ = “B”Case Elsea$ = “A”End SelectPrint a$End Sub运行时输出的结果是（B）A）A B）B C）C D）D5. 假定有如下语句Private Sub Form_Click()a = Val (InputBox (“请输入a”))b = Val (InputBox (“请输入b”))x = a*a + bIf b > a Then x = b*b + aPrint xEnd Sub运行时从键盘输入3和4，输出X的值是（C）A）12 B）13 C）19 D）206. 假定有如下语句Private Sub Form_Click()K = 2If K >= 1 Then A = 3If K >= 2 Then A = 2If K >= 3 Then A = 1Print AEnd Sub运行时，输出的结果是（B）A）1 B）2 C）3 D）出错7. 假定有如下语句Private Sub Form_Click()k = Val ( InputBox (“请输入一个数”))If k <= 0 Then Abc = 4 : GoTo aIf k <= 1 Then Abc = 3 : GoTo aIf k <= 2 Then Abc = 2 : GoTo aIf k <= 3 Then Abc = 1a:Print k ; AbcEnd Sub运行时输入3，输出的结果是（A）A）3 1B）3 4 3C）3 4 3 2D）3 4 3 2 18.设有函数r =1 x < 02 x >=0则下列能正确计算该函数值的语句是（D）A）If x < 0 Then r = 1ElseIf x >= 0 Thenr = 2End IfB）If x < 0 Then r = 1ElseIf x >= 0 Then r = 2 Else r = 1End IfC）Print ( IIf (x >0,1,2))D）r = IIf (x < 0,1,2)二、简答(填空)题1.假设有如下程序，程序运行后，单击窗体输出结果是（032，548.60）Private Sub Form_Click ()a = 32548.56Print Format (Int((a*10+0.5)) / 10,”000,000.00”)End Sub2.以下程序段的功能是（对变量X四舍五入后取整）x = 8.6y=Int(x+0.5)Print y3.假设有如下程序，程序运行后，单击窗体输出结果是（4）Private Sub Form_Click ()a = 25 Mod (1-2^3)Print aEnd Sub4.以下语句的输出结果是（Beijing）s$=”China”s$=”Beijing”Print s$5.以下语句的输出结果是(3)a%=3.14156Print a%6.设a=Sqr(2)*Sqr(3)，下列语句的输出结果分别是Print Format $ (a,”000.00”) 输出结果：002.45Print Format $ (a,”###.#00”) 输出结果：2.449Print Format $ (a,”00.00E+00”) 输出结果：24.49E-01 Print Format $ (a,”-#.####”) 输出结果：-2.4495三、编程题1.编写打印下面三角形图案的源程序（书上55页4题）*************************程序代码：Private Sub Form_Click()Form1.Print Tab(15); "*"Form1.Print Tab(14); "***"Form1.Print Tab(13); "*****"Form1.Print Tab(12); "*******"Form1.Print Tab(11); "*********"End SubPrivate Sub Form_Load()Form1.AutoRedraw = TrueForm1.Print "显示星号三角形,单击窗体开始" End Sub2.设a=5,b=2.5,c=7.8，编程序计算y=πab/a+b*c程序代码：Private Sub Form_Click()a =5 :b = 2.5 :c = 7.8y = (3.1416*a*b)/(a+b*c)Print “y=”;yEnd Sub1.编写求以10为底，求10000的对数值的源程序。
Private Sub Form_Click()Form1.Print Log(10000) / Log(10)End SubPrivate Sub Form_Load()Form1.AutoRedraw = TrueForm1.Print "计算以10为底，10000的对数"Form1.Print "单击窗体开始"End Sub2.编写求任意数的平方根的源程序，数由键盘输入。
Private Sub Form_Click()x = Val(InputBox$("输入数据"))Form1.Print "输入数据为"; xForm1.Print "平方根为"; Sqr(x)End SubPrivate Sub Form_Load()Form1.AutoRedraw = TrueForm1.Print "求任意数的平方根"Form1.Print "单击窗体开始"End Sub3.求任意半径和高的圆柱的表面积。