某学校要进行年级优秀生表彰，需要对n人的优秀生单独排位置，每行m人。排队方阵规则：第1行从左向右坐，第2行从右向左坐，第3行从左向右坐，第4行从右向左坐……不断_刷题宝

题干

某学校要进行年级优秀生表彰，需要对 n 人的优秀生单独排位置，每行 m 人。排队方阵规则：第 1 行从左向右坐，第 2 行从右向左坐，第 3 行从左向右坐，第 4 行从右向左坐……不断重复。最后一行如果人数不满 m 人，一律从左往右坐。VB 程序功能如下： Text1 输入 m 的值，确定每行坐的人数，单击按钮后，在 List2 列表框中显每位同学的位置，在 List3 列表框中显示每位同学的 4 位数位置编号（行号+列号），如下图所示。实现上述功能的 VB 代码如下：

依据上述描述设计如下 VB 程序：
Dim xh(1 To 100) As Integer , xm(1 To 100) As String, cj(1 To 100) As Integer Dim n As Integer, m As Integer
Private Sub Form_Load()

'本过程从数据库依次读取 n 位同学的序号、姓名及成绩，然后按成绩降序排序，将学生序号、姓名成绩存储在数组 xh 、xm、cj 中，结果显示在List1 中，

End Sub

请回答下列问题：
(1)   在设计程序界面时，要清空文本框中的显示内容，应修改文本框的_____属性。
(2)   程序中加框处代码有误，请改正。 __________________________
(3)   请在①②③划线处填入适当的代码。
① __________________________________________
② _________________________________________
③ _________________________________________

上一题下一题 0.99难度 None 更新时间:2020-01-17 04:48:40

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

同类题1

有一组数：1、2、4、7、……，其第1个数是1，第2个数比第1个数大1，第3个数比第2个数大2，第4个数比第3个数大3，以此类推。求其前20项的和。
以下VB程序实现上述功能，请把程序中的①、②出填写完整。
Dim i As Integer, p As Integer, s As Integer
i = 1
p = 1
s = 0
Do While ______①______
s =" s" + p
i =" i" + 1
______②______
Loop
Print s

同类题2

已知出租车计费方法如下：路程在3公里以内（包含3公里）收起步价10元，路程超过3公里不超过10公里（包含10公里）部分按每公里2元计费，超出10公里部分按每公里3元计费。现要设计一个VB出租车计费系统程序，在路程文本框中中输入路程数，单击计算按钮可以计算出应付金额并显示到金额文本框中，请回答以下问题：

图一

在设计该程序界面时，要从图二界面到图一界面，需要进行哪些设置？
________________________________________________________________
________________________________________________________________
为计算按钮添加单击事件后，并在其中添加程序代码，代码如下：
Dim d As Single
Dim f As Single
d = Val(Text1.Text)
If d <=" 3" Then ‘3公里以下计费
f =" 10"
end if
If d > 3 And d <=" 10" Then ‘3公里至10公里计费
‘①
End If
If d > 10 Then ‘10公里以上计费
'②
End If
Text2.Text = Str(f)
请完善以上程序代码，在①，②处填入正确的语句
①________________________________
②________________________________
完善程序代码后，若输入路程数为10，则应付金额为________元
实现该程序所用的算法结构属于______________（选择结构/循环结构）

同类题3

有如下VB程序段
Private Sub Command1_Click()
Dim s As Integer
Dim i As Integer
s = 0
For i =" 1" To 20 Step 2
If s < 20 Then
s =" s" + i
End If
Next i
Text1.Text = Str(s)
Text2.Text = Str(i)
End Sub
执行以上程序后，变量s和i的值分别为

同类题4

王敏的E-Mail邮箱密码忘记了，但她需要收一封很重要的来信，请你帮她尽可能找出密码。她零星记得自己密码信息：
①密码是六位数字，前面两位为31；
②最后两位数字相同；
③能被16和46整除。
程序界面如图所示，单击 "帮助找回密码"按钮（Command1）后，可能的密码显示在列表框List1中。

解决此问题的相应程序如下：
Private Sub Command1_Click()
Dim a As Integer, s As long, b As Integer, i As Integer
For i =" 0" To 9999
s = ①
If s Mod 46 =" 0" and s mod 16="0" Then
a="s" mod 10
b = ②
If a =" b" Then
List1.AddItem Str(s)
End If
End If
Next i
End Sub
（1）解决此问题的主要算法是________________。（选填：枚举算法或解析算法）
（2）窗口上的“找密码”是对form1对象的属性设置的
在程序①和②划线处，填入适当的语句或表达式，把程序补充完整：
（3）程序中①划线处应填入__________________。
（4）程序中②划线处应填入__________________。

同类题5

求最长升序子序列的长度。一个数的序列bi，当b1<b2<…<bS的时候，我们称这个序列是升序的。对于给定的一个序列（al，a2，…，aN），我们可以得到一些升序的子序列（ail，ai2，…，aiK），这里1<=il<i2<……<iK<=N。比如，对于序列（1，7，3，5，9，4，8），有它的一些升序子序列，如（1，7），（3，4，8）等等。这些子序列中最长的长度是4，比如子序列（1，3，5，8），小王设计VB程序用于求最长升序子序列的长度，在文本框Text1中输入n个各不相同的数据（各数据之间以逗号隔开），单击“求解”按钮Command1后在标签Labell中输出最长升序子序列的长度，运行界面如图所示。

具体算法描述如下：
①将文本框Text1中的n个数据依次读取到数组a中；
②构造一个数组b（j），j表示升序子序列的长度，b（j）的值表示所有j长度升序序列中最小的末尾元素值。例：序列（2，6，4，5），长度为2的子序列有（2，6），（2，4），（2，5），（4，5），则b（2）=4；
③从第1个元素开始，依次处理到第i（1≤i≤n）个元素为止，b数组所能达到的最大下标值maxlen，处理过程分两种情况：
a）a（i）>b（maxlen），则最长升序子序列的长度增加；
b）a（i）<b（maxlen），则在数组b中逆序查找到第一个b（j）>a（i）（maxlen-1≤j<1），更新数组b中升序子序列长度为j+1时所存储的元素值。
以图中数据为例：

④数组b的最大下标值即为最长升序子序列的长度。
实现上述过程的VB程序如下，请回答下列问题：
（1）若在文本框Text1中输入的序列为（4，7，9，8，6），则数组元素b(2)的值为_____________。
（2）请在划线处填入合适的代码。
Private Sub Command1_Click()
Dim a(1 To 100)As Integer存储原序列
Dim b(1 To 100)As Integer存储各长度序列的最小末尾元素
Dim s As String
Dim n As Integer,i As Integer,j As Integer,maxlen As Integer
S=Text1.Text
n=1:j=1
For i=1 To Len(s)

c=Mid(s,i,1)

If c=,Then

a(n)=Mid(s,j,i-j)
n=n+1
j=i+1
End If
Next i
①______
maxlen=1:b(1)=a(1)
For i=2 To n
If a(i)>b(maxlen) Then
maxlen=maxlen+1
b(maxlen) =a(i)
Else
j=maxlen-1:flag=True
Do While j>=1 And flag
If a(i)>b(i)Then
②______
flag = False
End If
j=j-1
Loop
If③______Then b(1)=a(i)
End If
Next i
Label1.Caption="最长升序子序列的长度为:"+Str(maxlen)
End Sub

相关知识点