VB程序填空

程序题 +++第一套+++ 1、有如下Visual Basic程序段： a="Good" b="Bye" c=a+b 该程序段运行后，变量c的值是____(1)____。 2、有如下Visual Basic程序段： x=3 If x>5 Then y=x*x Else y=4*x End If 该程序段运行后，变量y的值是____(1)____。 3、下面程序的功能是：计算表达式1+3+5+…+(2n-1)的值，在文本框Text1中输入n的值，结果在文本框Text2中输出。则程序中划线处的语句应更正为______(1)______。 Private Sub Command1_Click() Dim sum As Long,i As Integer,n As Integer sum = 0 n = Val(Text1.Text) For i = 1 To 2 * n - 1 Step 2 sum = sum + 2 Next i Text2.Text=Str(sum) End Sub 4、依照中华人民共和国《机动车驾驶员驾车时血液中酒精含量规定》，血液中酒精含量大于或等于0.3mg/ml驾驶机动车的属酒后驾车；大于或等于1.0mg/ml驾驶机动车的属醉酒驾车。设计一个程序，帮助交警判定某人属酒后驾车、醉酒驾车还是没有违法。 解决此问题的图如VB-1所示。根据流程图VB-1编写的Visual Basic程序如下，在(1)和(2)划线处，填入合适的语句或表达式，把程序补充完整。 Private Sub Command1_Click() Dim x As Single x = Val(Text1.Text) If (1) Then Label1.Caption = "你属于醉酒驾车!" Else If x >= 0.3 Then Label1.Caption = "你属于酒后驾车!" (2) Label1.Caption = "恭喜你没有违法!" End If End If End Sub 程序中划线处(1)应填入 程序中划线处(2)应填入 +++第二套+++ 1、有如下Visual Basic程序段： a=2 b=3 c=4 c=b-a 该程序段运行后,变量c的值为___(1)____。 2、有如下Visual Basic程序段： a=2 b=5 If a>b Then m=a Else m=b 该程序段运行后,变量m的值为___(1)____。 3、下面是一段Visual Basic程序： Private Sub Command1_Click() Dim sum As Double，i As Integer sum = 0 For i = 1 To 5 sum=sum+i*i Next i Text1.Text=Str(sum) End Sub 该程序运行后，语句sum=sum+i*i共执行了 (1) 次。 4、 有一个有趣的兔子繁殖问题：第1个月买来1对小兔子，两个月后，这对兔子就会生1对小兔子，以后每个月都会生一对小兔子；而生下来的这对小兔子，两个月后又会开始生1对小兔子。依次类推，试问：几个月后，兔子将超过50对？ 分析问题得出月份与兔子对数的关系如下表： 月份 1 2 3 4 5 6 7 8 9 … 兔子对数 1 1 2 3 5 8 13 21 34 … 由表知兔子繁殖规律：从第3个月开始，以后每月的兔子对数都是它相邻的前面2个月的兔子对数之和。 解决上述问题的Visual Basic程序如下，在(1)和(2)划线处，填入合适的语句或表达式，把程序补充完整。 Private Sub Command1_Click() Dim a(1 To 100) As Integer, n As Integer a(1) = 1 a(2) = 1 a(3) = a(2) + a(1) n = 3 Do While a(n) <= 50 n = (1) a(n) = (2) Loop Text1.Text = Str(a(n)) End Sub 程序中划线处(1)应填入 程序中划线处(2)应填入 +++第三套+++ 1、有如下Visual Basic程序段： k=30 h=5 s=h*k/2 该程序段运行后，变量s的值为 (1) 。 2、有如下Visual Basic程序段： a=10 b=20 x=30 If x>b Then a= b+a Else a=b-a End If 该程序段运行后，变量a的值为 (1) 。 3、下面Visual Basic程序的功能是：计算表达式1×2+2×3+3×4+……+8×9+9×10的值，并在文本框Text1中输出表达式的值。该程序运行后，程序中的语句sum=sum+i*(i+1)共执行了 (1) 次。 Private Sub Command1_Click() Dim sum As Integer，i As Integer sum = 0 For i = 1 To 9 sum=sum+i*(i+1) Next i Text1.Text=Str(sum) End Sub 4、铁路托运行李，是根据行李的重量按下列标准收费：若不超过50千克，按每千克0.35元收费，若超过50千克，超过部分则按每千克0.5元收费，行李重量不得超过150千克。 设计一个Visual Basic程序，通过输入托运行李的重量，计算并输出托运行李的费用，若超过150千克，提示"行李超重!"。 设x表示行李重量，y表示托运费。通过分析可以得出该问题的表达式为： 解决上述问题的Visual Basic程序如下，在(1)和(2)划线处，填入合适的语句或表达式，把程序补充完整。 Private Sub Command1_Click() Dim x as Double x=Val(Text1.Text) If x>150 Then Text2.Text="行李超重!" Else If (1) Then y=50*0.35+(x-50)*0.5 Else (2) End If Text2.Text=Str(y) End If End Sub 程序中划线处(1)应填入 程序中划线处(2)应填入 +++第四套+++ 1、有如下Visual Basic程序段： a=8 b=10 b=a*b/2 该程序段运行后，变量b的值为 (1) 。 2、有如下Visual Basic程序段： a=5 b=10 max=a If b>max Then max=b 该程序段运行后，变量max的值为 (1) 。 3、下面程序的功能是：计算表达式1×2×3×……×10的值，并在文本框Text1中输出表达式的值。为了实现这一功能，程序中划线处的语句应更正为____(1)_____。 Private Sub Command1_Click() Dim i As Integer，t As Long t=0 For i=1 To 10 t=t*i Next i Text1.Text=Str(t) End Sub 4、我国是人口大国，2007年初，我国人口总数已达13亿5千万。假设我国年人口增长率为0.5%，则从2007年起多少年后我国人口就会达到或超过15亿？ 解决此问题的流程图如VB-1所示。根据流程图VB-1编写的Visual Basic程序如下，在(1)和(2)划线处，填入合适的语句或表达式，把程序补充完整。 Private Sub Command1_click() Dim n As Integer, r As Single Dim p As Double r = 0.5/100 p = 13.5 n = 0 Do While p < 15 (1) n = n + 1 (2) Text1.Text = Str(n) End Sub 程序中划线处(1)应填入 程序中划线处(2)应填入 +++第五套+++ 1、有如下Visual Basic程序段： a=15 b=5 a=a-b 该程序段运行后，变量a的值是____(1)_____。 2、有如下Visual Basic程序段： x=110 If x>100 Then Label1.Caption = "你超速了!" Else Label1.Caption = "你没超速!" End If 该程序段运行后, Label1标签上显示为____(1)_____。 3、下面Visual Basic程序的功能是：计算表达式1×2+3×4+5×6+7×8+9×10的值。运行该程序后，语句sum=sum+i*(i+1)共执行了 (1) 次。 Private Sub Command1_Click() Dim sum As Integer，i As Integer sum = 0 For i = 1 To 9 Step 2 sum = sum + i * (i+1) Next i Text1.Text=Str(sum) End Sub +++第六套+++ 1、有如下Visual Basic程序段： a=300 b=400 b=b-a 该程序段运行后，变量b的值为____(1)____。 2、有如下Visual Basic程序段： a=2 b=5 If ab Then a=a+b Else a=a-b End If 3、该程序段运行后，变量a的值为 (1) 。 下面Visual Basic程序的功能是：求1～20以内的奇数和。运行该程序后，语句sum=sum+i共执行了 (1) 次。 Private Sub Command1_Click() Dim sum as Integer,i as Integer sum=0 For i=1 To 20 Step 2 sum=sum+i　　 Next i Text1.Text=Str(sum) End Sub 4、将一张面值为100元的人民币等值换成5元、1元的零钞共40张，

要求

对教师党员的评价套管和固井爆破片与爆破装置仓库管理基本要求三甲医院都需要复审吗

每种零钞不少于1张，问5元和1元面值的零钞各多少张？ 设x、y分别为5元和1元面值的零钞张数，通过分析可得出该问题的数学表达式为： 且 1≤x＜20 解决上述问题的Visual Basic程序如下，但此程序存在两处错误，已分别用划线及(1)、(2)标注。请改正这二处错误，并将正确内容按顺序填写在程序下方(1)和(2)划线处。 Private Sub Command1_Click() Dim x As Integer, y As Integer y = 1 : x = 1 Do While 5x + y <> 100 '(1) y = y + 1 x + y = 40 '(2) Loop Label1.Caption = "5元钞" + Str(x) + "张" Label2.Caption = "1元钞" + Str(y) + "张" End Sub 程序中划线处(1)改为 程序中划线处(2)改为 5、哥哥考弟弟一道数学题，题目是："有一筐鸡蛋，2个2 个数多1个，3个3个数多2个，4个4个数多3个，5个5个数正好数完，问这筐鸡蛋最少是几个？" 为解决此问题，弟弟编了一个如下Visual Basic程序，其中s表示鸡蛋数，t用于控制循环。但此程序存在两处错误，已分别用划线及(1)、(2)标注。请改正这二处错误，并将正确内容按顺序填写在程序下方(1)和(2)划线处。 Private Sub Command1_Click() Dim s As Integer, t As Boolean s = 5 t = False Do While Not t s = s + 1 t = (s Mod 2 = 1) And (s Mod 3 = 2) And (s Mod 4 = 3) And (s Mod 5 <> 0) '(1) Next '(2) Text1.Text = Str(s) End Sub 程序中划线处(1)改为 程序中划线处(2)改为 +++第八套+++ 1、有如下Visual Basic程序段： a = 3 b = 5 h = 6 v = a * b * h 该程序段运行后，变量v的值是 (1) 。 2、有如下Visual Basic程序段： For i=l To 10 a(i)=i Next i 该程序段运行后，数组变量a(5)的值为 (1) 。 3、下面Visual Basic程序的功能是：计算表达式1/2+1/4+…+1/100的值，并在文本框Text1中输出结果。运行该程序后，语句sum=sum+1/(2*i)共执行了 (1) 次。 Private Sub Command1_Click() Dim sum As Double,i As Integer sum = 0 For i = 1 To 50 sum=sum+1/(2*i) Next i Text1.Text=Str(sum) End Sub 4、有一判断健康状况的Visual Basic程序，其窗体如下图所示，输入身高和体重后，单击"健康状况"按扭，将显示相应的健康状况信息。 标准体重=身高-105 当体重高于"标准体重×1.1"时为偏胖，提示"偏胖，注意节食!"；当体重低于"标准体重×0.9"时为偏瘦，提示"偏瘦，增加营养!"；其他为正常，提示"正常，继续保持!"。 设h表示身高，g表示体重，bt表示标准体重。通过分析可得出该问题的数学表达式为： 解决上述问题的Visual Basic程序如下，在(1)和(2)划线处，填入合适的语句或表达式，把程序补充完整。 Private Sub Command1_Click() Dim h As Double, g As Double, bt As Double h = Val(Text1.Text) g = Val(Text2.Text) (1) If g > bt * 1.1 Then Label5.Caption = "偏胖，注意节食!" If (2) Then Label5.Caption = "偏瘦，增加营养!" If g <= bt * 1.1 And g >= bt * 0.9 Then Label5.Caption = "正常，继续保持!" End Sub 程序中划线处(1)应填入 程序中划线处(2)应填入