某算法的部分流程图如图所示,其中a←4表示a=4,b←1表示
更新时间:2020-02-23 00:33:08
|
【知识点】 VB程序的调试
相似题推荐
操作题
|
适中
(0.65)
【推荐1】现要求编写VB程序实现如下功能:在文本框Text1中输入正整数n(n为奇数),单击“生成”按钮后,在文本框Text2中会显示一个有规律的对称数字串,形成为“1 3 ... n-2 n n-2 ...3 1”。例如n=9时,显示的数字串为“1 3 5 7 9 7 5 3 1”。_______ (填写数字标号);为将按钮上的字设置为“生成”,应在对应的属性窗口中______ 属性值修改为“生成”,根据代码可知,命令按钮“生成”的对象名是________ 。
(2)实现上述功能的VB程序如下。请在划线处填入合适的代码。
Private Sub Cmd1_Click()
Dim n As Integer,i As Integer,s As string
________________________
S=“”
For i=1 To n
If i<=n\2+1 Then
S=s+_______________
End if
Next i
Text2.Text=s
End Sub
(3)当n=9时,在实现程序功能的情况下,如果将程序中加框处的代码换成“s=str(2*i-1)+s”,单击“生成”按钮,其输出结果为___________________ 。
(1)应用程序界面设计时,为添加按钮,就使用如左图所示的“控件工具箱”中
(2)实现上述功能的VB程序如下。请在划线处填入合适的代码。
Private Sub Cmd1_Click()
Dim n As Integer,i As Integer,s As string
S=“”
For i=1 To n
If i<=n\2+1 Then
Else
S=s+
End if
Next i
Text2.Text=s
End Sub
(3)当n=9时,在实现程序功能的情况下,如果将程序中加框处的代码换成“s=str(2*i-1)+s”,单击“生成”按钮,其输出结果为
您最近一年使用:0次
操作题
|
适中
(0.65)
【推荐2】图图基于排序算法设计了一个数字矩阵排序的 VB 程序,功能如下:在文本框 Text1 中输入矩阵的大小 n,单击“生成”按钮 Command1,在左侧列表框 List1 中显示行数和列 数均为 n 的随机整数矩阵。单击“排序”按钮 Command2,奇数行从左到右升序排序, 偶数行从左到右降序排序,结果显示在列表框 List2 中,输出时保持矩阵大小不变。运 行结果如图所示。
请回答下列问题:
(1)实现上述功能的 VB 程序如下,请在划线处填入合适的代码。
Dim a(1 To 100) As Integer
Dim n As Integer
Private Sub Command1_Click()
Dim i As Integer, j As Integer
Dim s As String, k As Integer
n = Val(Text1.Text)
For i = 1 To n
①_____
For j = 1 To n
k = (i - 1) * n + j
a(k) = Int(Rnd() * 45 + 5) * 2
s = s + “ ” + Str(a(k))
Next j
List1.AddItem s
Next i
End Sub
Private Sub Command2_Click()
Dim i As Integer, L As Integer, R As Integer
Dim f As Integer
For i = 1 To n
If i Mod 2 = 1 Then
f = 1
Else
f = -1
②____
R = i * n
List2.AddItem sort(L, R, f)
Next i
End Sub
Function sort(left As Integer, right As Integer, order As Integer) As String
Dim i As Integer, j As Integer, k As Integer
Dim s As String, t As Integer s = “”
For i = left To right - 1 k = i
For j = i + 1 To right
If③______ Then
k = j
Next j
If k <> i Then
t = a(k): a(k) = a(i): a(i) = t
End If
s = s + “ ” + Str(a(i))
Next i
sort = s
End Function
(2)若删除上述 VB 程序中加框处代码,_______ (选填:会/不会)影响程序运行结果。
请回答下列问题:
(1)实现上述功能的 VB 程序如下,请在划线处填入合适的代码。
Dim a(1 To 100) As Integer
Dim n As Integer
Private Sub Command1_Click()
Dim i As Integer, j As Integer
Dim s As String, k As Integer
n = Val(Text1.Text)
For i = 1 To n
①
For j = 1 To n
k = (i - 1) * n + j
a(k) = Int(Rnd() * 45 + 5) * 2
s = s + “ ” + Str(a(k))
Next j
List1.AddItem s
Next i
End Sub
Private Sub Command2_Click()
Dim i As Integer, L As Integer, R As Integer
Dim f As Integer
For i = 1 To n
If i Mod 2 = 1 Then
f = 1
Else
f = -1
②
R = i * n
List2.AddItem sort(L, R, f)
Next i
End Sub
Function sort(left As Integer, right As Integer, order As Integer) As String
Dim i As Integer, j As Integer, k As Integer
Dim s As String, t As Integer s = “”
For i = left To right - 1 k = i
For j = i + 1 To right
If③
k = j
Next j
If k <> i Then
t = a(k): a(k) = a(i): a(i) = t
End If
s = s + “ ” + Str(a(i))
Next i
sort = s
End Function
(2)若删除上述 VB 程序中加框处代码,
您最近一年使用:0次
操作题
|
适中
(0.65)
名校
【推荐3】【加试题】数字个数统计。编写VB程序,实现如下功能:在文本框Text1中输入仅由ASCII码字符组成的字符串(长度不超过100),单击“数字统计”按钮Command1,在列表框List1中输出字符串中包含的不同数字及其相应的个数,程序运行效果如下图所示。
(1)为方便调试,要让程序每次运行时文本框Text1中的初始内容为“ab12*{}78ab12()778ab34”,应修改文本框Text1的________ 属性。
(2)实现上述功能的VB程序如下,请在划线处填入合适代码。
Private sub command1_click()
Dim a(0 to 9) as integer ’数组元素a(i)中存放数字i的个数
Dim s as string , ch as string
Dim t as integer
For i=0 to 9
a(i)=0
next i
s=text1.text
for i=1 to len(s)
____________
next i
list1.clear
for i=1 to 9
next i
end sub
(3)与上述程序中加框处代码运行效果等价的条件表达式可以是________ 。
(1)为方便调试,要让程序每次运行时文本框Text1中的初始内容为“ab12*{}78ab12()778ab34”,应修改文本框Text1的
(2)实现上述功能的VB程序如下,请在划线处填入合适代码。
Private sub command1_click()
Dim a(0 to 9) as integer ’数组元素a(i)中存放数字i的个数
Dim s as string , ch as string
Dim t as integer
For i=0 to 9
a(i)=0
next i
s=text1.text
for i=1 to len(s)
if ch>=”0”and ch<=”9” then
t=
a(t)= a(t)+1
end if
next i
list1.clear
for i=1 to 9
if then
list1.additem ”数字:”+str(i)+ ”,共有”+ str(a(i))+ ”个”
end if
next i
end sub
(3)与上述程序中加框处代码运行效果等价的条件表达式可以是
您最近一年使用:0次