vb程序设计

姓名

计算机解决问题的过程

算法的特征

算法描述的语言

程序的特征

程序设计语言的发展过程包括

能被计算机直接执行的语言是

在Visual Basic中，下列关于常量的说法，不正确的是

编译程序需经过连接、装入和下列选项中的哪一项过程才能将高级语言翻译成机器语言。

在Visual Basic语言表达式中，算术运算符Mod的含义是下列选项中的哪一项。

关于程序特征的描述，下列选项中的哪一项说法不正确。（　　）

程序算法的结构包括

表达式Int(8*sqr(36)*10^(-2)*10+0.5)/10的值是（ ）.

表达式Int(198.555*100+0.5)/100的值为( )

已知正方形的边长A是8，下列程序的功能是计算正方形的周长L。请将程序缺失部分补充完整。Function func() Dim A As Single Dim L As SingleA = 8L =_______________ Func = 正方形的周长 LEnd Function

从键盘输入圆的半径R，输出圆的周长L和面积S，补充完整下列程序段。Dim R As Single, L As Single, S As Single_______= InputBox(输入半径R)L = 2 * 3.14 * RS = 3.14 * R * RPrint 圆的周长是;LPrint 圆的半径是;S

2012年6月，小李同学参加了一场考试，其中有一道题目是：已知长方体的长为10，宽为3，高为5，求长方体的体积V，小李同学编写出了如下的不完整程序。 Dim A As SingleDim B As Single Dim H As Single Dim V As Single A = 10 B = 3 H = 5V =___________print 长方体的体积V= V

2012年6月，小李同学参加了一场考试，其中有一道题目是：已知变量a的值为2011，变量b的值为2012，交换变量a、b的值。小李同学编写出了如下的不完整程序。Function func() Dim a As Single Dim b As Single Dim c As Single a = 2011b = 2012_______(1)______ a=b______(2)____print a= a b= b

已知变量x的值是1987，下列程序的功能是求x的各位数字之和s，其中a是个位数字，b是十位数字，c是百位数字，d是千位数字，请将程序补充完整。Function func() Dim x As IntegerDim a As IntegerDim b As Integer Dim c As Integer Dim d As IntegerDim s As Integerx = 1987 a = x Mod 10 b =______________ (1)c =_______________(2)d=__________(3)s = a + b + c + d func = 各位数字之和s= sEnd Function

计算房租费，70平方以下（包括70）每平方4元，如果超过70平方则超过部分每平方6元。程序中变量m为平方数，变量n为房租费。Function func()Dim m As Integer, n As Integer m = 128If ____(1)____ Then n = 4 * m ____(2)____ n = 4 * 70 + 6 * (m – 70)End Iffunc = 房租费n= nEnd Function

购物计费：某商场为了促销而实行购物打折，在商场购物500元以上（不包括500元），超过部分实行八折优惠。已知某顾客购物按未打折计共花费了898元，编程计算顾客实际应付的金额。A表示顾客的购物金额，x表示顾客应该实际付给商场的金额。请将程序缺失部分补充完整。Function func( )Dim a As Single, x As Singlea = 898 If a = 500 Then ___________________ Else x = ______________________ ____________func = 应付金额x= xEnd Function

判断奇偶性，如果是偶数让x为0，如果是奇数让x为1Function func( ) Dim a As Integer, x As IntegerIf a / 2 = __(1)______ Then x = __(2)______Else x =_____(3)_______End If func = xEnd Function

计算旅客的行李费，收费标准为：20千克以下（包括20千克）不收费，超过20千克的部分每千克收20元。X表示行李重量，Y表示行李费。补充完整下列程序段。Dim X As Single, Y As SingleX = InputBox(输入行李重量)If ___(1)_____ Then Y = 0_________(2)_______ Y = 20 * (X - 20)_________(3)__________Print 行李费=;Y

2012年5月，四川省成都龙泉地区的枇杷取得了大丰收，当地农民为了促销，准备执行以下的销售策略：购买5公斤以上（不包含5公斤），单价为：18元/公斤；否则，单价为20元/公斤。小张同学想用VB语言编写一个程序计算购买X公斤枇杷的应付款y，结果小张同学只编写出了如下的不完整程序。请将程序缺失部分补充完整。Function func( ) Dim x As Single, y As Single_(1)_____= 8If x 5 Then y=___(2)___else y= ____(3)____End Iffunc = 应付金额y= yEnd Function

编写一元二次方程X^2+3X+2=0的求解程序，要求能够判断方程是否有根，如果没有根则给出相应的提示信息。请将下列程序补充完整。Function func( ) Dim a As SingleDim b As Single Dim c As Single Dim d As Single Dim x1 As Single Dim x2 As Singlea = 1 b = 3c = 2 d = b * b - 4 * a * cif d=0 Then x1 =_________(1)______ x2 = (-b - Sqr(d)) / (2 * a) func = x1=x1 x2=x2 Else func = 无实根 ______(2)____End Function

雅西高速于2012年4月29日正式修成通车，假设该高速公路的收费标准是：在该高速路上行驶100公里以上（不包含100公里）的车辆0.4元/公里，否则0.5元/公里。X表示车辆在该高速路上行驶的公里数，y表示应收费用。将程序缺失部分“______”补充完整，并将“______”字符删除，正确运行程序后，保存文件并退出VB。Function func( )Dim x as single,y as singlex=140 If __(1)______ then 　　　　　Y=x*0.5　　　　　　　　　_(2)____y=0.4*x　　　　　　　　　　end ifFunc=”过路费Y=”yEnd Function

该程序的功能是求S=1+3+5+……+99。请将程序缺失部分补充完整。Function func( ) Dim i As Integer, s As Integers = ___(1)______For i = 1 To _(2)______ Step 2 s = __(3)__________Next __(4)_______func = sEnd Function

完成如下算法设计：该程序功能是求S=2+4+6++100。Function func( ) Dim I As Integer, s As Integer ________(1) For i = __(2)___ to _(3)______ Step _(4)_____ s = __(5)_______Next i Func = sEnd Function

该程序功能是求S=10+20+30+……+100，请将空格补完整实现前述功能。Function func( ) Dim I As Integer, s As Integers = 0 For i= _(1)____ To __(2)____ Step ______(3)____s =_____(4)________Next Ifunc = sEnd Function

2012年6月，小张同学参加了一场模拟考试，其中有一道题目是求S=1*2*3*......*7。小张同学编写出了如下的不完整程序。请将空格补完整实现前述功能。Function func ( )Dim I As Integer, s As Integers =____(1)______For i= 1 To ___(2)_s = ___(3)_______(4)_____ Ifunc = s= sEnd Function