组卷网 > 高中信息技术综合库 > 算法软件操作 > VB程序的调试
题型:操作题 难度:0.65 引用次数:39 题号:11882957

某算法的部分流程图如图所示,其中a←4表示a=4,b←1表示__________________,在该流程图中,(判断框/处理框/输入框)菱形代表______________________,平行四边形代表__________________。执行这部分流程后,当x输入2,y输入1时,输出结果是__________________

【知识点】 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”。

(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”,单击“生成”按钮,其输出结果为___________________
2019-04-29更新 | 32次组卷
操作题 | 适中 (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(Text1Text)
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
       List1AddItem 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
       List2AddItem 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 程序中加框处代码,_______(选填:会/不会)影响程序运行结果。
2021-02-06更新 | 28次组卷
操作题 | 适中 (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)
   ____________        

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)与上述程序中加框处代码运行效果等价的条件表达式可以是________
2019-03-05更新 | 33次组卷
共计 平均难度:一般