某木材加工厂需要把购入的木料切割成长度为3米和7米两种规格的线材。现要求编写VB程序(运行界面如图所示)，实现如下功能：在文本框Text1中输入木材长度，单击“_刷题宝

题干

某木材加工厂需要把购入的木料切割成长度为3米和7米两种规格的线材。现要求编写VB程序(运行界面如图所示)，实现如下功能：在文本框Text1中输入木材长度，单击“计算”按钮Command1，计算出一种废料长度最小的切割方案，在文本框Text2和文本框Text3中分别输出该切割方案所得3米和7米两种规格线材的数量。请将代码补充完整。

Private Sub Command1_Click ()
Dim length As Single '木料长度
Dim min As Single    '最小废料长度
Dim x As Integer   '3米规格线材数量
Dim y As Integer   '7米规格线材数量
Dim f As Single '废料长度
Dim a As Integer   '废料最少的切割方案所得3米规格线材数量
Dim b As Integer   '废料最少的切割方案所得7米规格绒材数量
length=Val(Text1.Text)
min=length
For x=0 To _________ ‘（1）
y=(length-3*x)\7
____________    ‘（2）
If f<min Then
min=f
a=x
_____________ ‘（3）
End If
Next x
Text2.Text=Str(a)
Text3.Text=Str(b)
End Sub

上一题下一题 0.99难度填空题更新时间:2019-05-22 04:40:23

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

同类题1

数组a中存放着1到20的正整数，要求对其中的元素进行分段排序，在Text2中输入每段元素的个数，在文本框Text3中显示每段降序排序后的数据，其中多余的元素不做处理。具体程序实现如图所示。

实现该功能的VB程序代码如下，请在划线处填入合适代码。
Dim a(0 To 100) As Integer
Const high = 16
Private Sub Form_Load()
Randomize
For i = 1 To high
a(i) = Int(Rnd * 20) + 1
Text1.Text = Text1.Text + Str(a(i))
Next i
End Sub
Private Sub Command1_Click()
Dim p As Integer, q As Integer, t As Integer
Dim m As Integer, n As Integer, k As Integer
m = Val(Text2.Text)
For i = 1 To ①________
c = ""
For j = 1 To m
p =②________
q = i * m
k = sort(p, q)
If a(k) <> a(p) Then
t = a(p): a(p) = a(k): a(k) = t
End If
c = ③________
Next j
Text3.Text = Text3.Text + " " + c
Next i
End Sub
Function sort(f As Integer, g As Integer) As Integer
s = f
For i = f To g
If a(i) > a(s) Then
s = i
End If
Next i
sort = s
End Function

同类题2

当输入21，输出结果是。
Dim x as long
x=inputbox(“输入x的值”)
if x mod 10="1" then
if x mod 8="3" then
x=x-12
end if
else
x=x-7
end if
print x

同类题3

某省举办大型活动，面向省内城市招募有志愿服务工作经历的志愿者，每个志愿者的报名数据包含城市序号、姓名（字母缩写）和参加志愿服务的次数。现需整理报名数据，要求是：先按城市序号从小到大排列；然后，同一城市的志愿者按参加志愿服务的次数从多到少排列。
按上述要求，编写一个VB程序，功能如下：在列表框List 1中显示整理前的数据，单击“整理”按钮Command 1，整理结果显示在列表框List 2中，程序运行界面如图所示。

（1）将数组元素q（1）到q（200）分为10段，如果每段恰好包含20个元素，采用选择排序算法分别对每段中的元素进行排序，整个排序过程中，数组元素之间的比较次数是________（单选，填字母：

（2）请在划线处填入合适的代码。

报名总人数

存储每个城市的报名人数

Private Sub Form_Load（）
本过程读取城市序号，姓名和参加次数的数据分别存储在数组city；pname和times中，
并在List 1中显示，代码略
End Sub
Private Sub Command 1_Click（）
Dim i As Integer，j As Integer，k As Integer，t As Integer，pos As Integer

统计每个城市报名人数
①

对各城市报名数据按参加志愿服务的次数进行排序

List 2.AddItem " " & city（q（i））& " " & pname（q（i））& " " & times（q（i））
Next i
End Sub
Function fp（head As Integer，tail As Integer）As Integer
Dim i As Integer，k As Integer

同类题4

有如下VB程序段：
s = Text1.Text
t = 0: Sum = 0
For i = 1 To len(s)
c = Mid(s, i, 1)
If c >= "0" And c <= "9" Then
t = t * 10 + Val(c)
ElseIf c >= "a" And c <= "z" Then
Sum = Sum + t
Else
t = 0
End If
Next i
Text2.Text = Str(Sum)
在文本框Text1中输入“123aBc456”，执行程序段，文本框Text2中显示的内容是（）

同类题5

使用两种不同的VB程序段实现相同的功能：则划线处填入的代码正确的是（）

A．	B．
C．	D．

相关知识点