用物理天平测量物体的质量。待测得物体的质量为x克（x为小于1000的整数），下列程序为计算天平砝码盘中所需的砝码。已知天平可用砝码为：500克1个，200克1个_刷题宝

题干

用物理天平测量物体的质量。待测得物体的质量为x克（x为小于1000的整数），下列程序为计算天平砝码盘中所需的砝码。已知天平可用砝码为：500克1个，200克1个，100克2个，50克1个，20克1个，10克2个，5克1个，2克2个，1克1个。程序界面如下图。

Private Sub Command1_Click()
Dim a(1 To 12) As Integer, i As Integer, x As Integer
a(1) =" 500:" a(2) =" 200:" a(3) =" 100:" a(4) =" 100:" a(5) =" 50:" a(6) = 20
a(7) =" 10:" a(8) =" 10:" a(9) =" 5:" a(10) =" 2:" a(11) =" 2:" a(12) = 1
i = 1
x = Val(Text1.Text)
List1.Clear
Do While x<>0
If x >=" a(i)" Then
List1.AddItem Str(a(i))
①
End If
i =" i" + 1
Loop
End Sub
（1）如要将程序窗口标题“Form1”修改为“天平测质量”，则应该修改窗体的属性（选填： Name / Caption / Text / Font）。
（2）为实现上述功能，划线①处应填入的代码为。
（3）程序正确运行后，在文本框Text1中输入701，并单击“计算”按钮。程序运行结果应为下图中的（单选，填：A/B/C）。

上一题下一题 0.99难度填空题更新时间:2017-02-17 10:00:22

答案(点此获取答案解析）

同类题1

下列VB程序的功能是：程序运行时，单击按钮Command1随机产生20个范围在1－1000（包括1和100）的整数，并在列表框List1中显示，然后单击按钮Command2，计算随机产生的20个整数中的最大值、最小值和平均值，并分别在Text1、Text2和Text3中显示，程序的运行界面如图所示。请在划线上填入合适的代码:

Const n = 20
Dim a(1 To n) As Integer
Private Sub Command1_Click()
Dim i As Integer
Randomize
For i = 1 To n
a(i) = Int(Rnd * 1000) + 1
List1.AddItem Str(a(i))
Next i
End Sub
Private Sub Command2_Click()
Dim i As Integer, max As Integer
Dim min As Integer, sum As Single
max = a(1): min = a(1)
sum = 0
For i = 2 To n
If ________ Then max = a(i)
If a(i) < min Then min = a(i)
sum = sum + a(i)
Next i
_____________
Text1.Text = Str(max)
Text2.Text = Str(min)
Text3.Text = Str(sum)
End Sub

同类题2

算法设计与程序实现
判断车牌的单双号
（背景知识）

为了保障空气质量，减少雾霾，某市决定当空气污染严重时，实行汽车单双号限行，违反规定的车辆将予以处罚。

如何让高清摄像头自动判断车牌的单双号，交警犯了愁，他需要编程高手的你帮忙，完善下面的程序。（提示：（1）所有车牌号中都含有数字，并且车牌号的长度都是6；（2）以车牌中最后一位阿拉伯数字的奇、偶来决定单双号。）

（1）输入：AD2367	（2）输入：A8888A	(3)输入：A8963C
输出：单号	输出：双号	输出：单号

（算法描述）

（1）自然语言

第1步：输入车牌号

第2步：取车牌号的最后一位x；

第3步：判断x是否为数字，如果是，转第4步；如果不是，则依次取得倒数第二、三……位判断，直到找到数字为止；

第4步：判断x 是奇数还是偶数，然后输出相应的结果。

（2）流程图

请根据上述算法描述补全代码

Dim n As Integer

Dim s As String ‘定义s 为字符串类型

Dim x As String

s=InputBox(“s=”,s) ‘将输入的车牌号赋值给s

n=6 ‘车牌号的长度为6

x=Mid(s,n,1) ‘取车牌号s的第n位

Do While x<”0” Or x>”9” ‘x不是数字字符，则取x的前一位

①

x=Mid(s,n,1) ‘取车牌号s的第n位

Loop

If ② then

Print “双号”

Else

Print “单号”

End If

(提示：Mid(s,m,n)的功能：从字符串s的第m位开始，截取长度为n的子串。例如：Mid(“A8963C”,5,1)的返回值是“3”。)

1. 根据题意，程序中空白①处应填写：_______________________________ 。
2. 根据题意，程序中空白②处应填写：______（填写字母：A/B/C/D）。

A、Val(x)\ 2= 0 B、Val(x)Mod 2 = 1 C、Val(x) Mod 2=0 D、Val(x) Mod 2 <> 0

同类题3

（加试题）某种字符加密方法描述如：
①将待加密的字符分成若干个字符串组，每组n个字符，剩余字符(个数小于n)自成一组。
②将每组字符按以下方法重新组合，得到新的字符串。

重新组合规则：取每组第个字符依次连接生成第i个新的字符串，共n组。

③将底组后的n组字符串依次进行字符交换，得到加密字符(加密前后字符均为大写)。

字符变换规则：按字母顺序后移i个位置后输出。

④依次合并变换后的字符串，即为密文。
例如：明文="ABCDEFGHIJK"，n=4的字符加密过程如下：

(1)已知n=3，则待加密数据"ABCDEFG"加密后的密文为_________________。
(2)小张根据上述加密算法，设计了一个对应的加密程序，其VB代码如下，请在划线处填入合适的代码。
下面进行重新组合：重组后数据保存到s1中

下面进行字符变换：字符变换后数据保存到ans中

划线处应填入的代码分别为：（1）______________ （2）______________ （3）______________

同类题4

下面程序执行的结果是（）
Private Sub Form_Load()
A="123":B="456"
C=Val(A)+Val(B)
Print C\100
End Sub

同类题5

若依次输入2、5、-4、0、6、9、-2，以下流程图描述的算法执行结果为（）。

相关知识点