2. 计算机
  3. 窗体上有4个文本框控件数组text1()和一个命令按钮，程序运行前如左图所示，程序运行后如右图所示。给定的程序不完整，将程序补充完整。 Dim x(3)As Integer Private Sub Command1

窗体上有4个文本框控件数组text1()和一个命令按钮，程序运行前如左图所示，程序运行后如右图所示。给定的程序不完整，将程序补充完整。 Dim x(3)As Integer Private Sub Command1

admin2009-02-13  39
问题 窗体上有4个文本框控件数组text1()和一个命令按钮，程序运行前如左图所示，程序运行后如右图所示。给定的程序不完整，将程序补充完整。

          Dim x(3)As Integer
          Private Sub Command1_Click ()
                For i = 0 To 3
                     x(i)=【  】
               Next i
                For i = 0 To UBound(x)- 1
                     For j = i To UBound(x)
                            If【  】Then
                          t = x(i)
                          x(i)= x(j)
                                 x(j)= t
                           End If
                     Next j
               Next i
               For i = 0 To 3
                     Text1(i) .Text = Str(x(i))
               Next i
         End Sub
选项
答案Val(Text1(i).Text)或Text1(i).Text或Text1(i) , x(i)＞x(j)
解析 文本框的数据为字符串，使用 Val(字符串)函数将“字符串”转换成数值型。从小到大的排序条件为“x(i)＞x(j)”，从大到小的排序条件为“x(i)＜x(j)”。
转载请注明原文地址:https://jikaoti.com/ti/jeq0FFFM
本试题收录于： 二级VB题库NCRE全国计算机二级分类
0

二级VB

NCRE全国计算机二级

相关试题推荐
随机试题
最新回复(0)