题库 题库

【简答题】

把11~20这10个自然数的平方的最后两位截出后用插入排序方法找出前五个最小的数(按从小到大排列)。注意:一维数组下标最大只能定义到5。

参考答案

Private Sub Form_Click()   
    Dim x(0 To 5) As Integer   
    For i = 1 To 5     
        x(i) = 100   
    Next i   
    For i = 11 To 20     
        a = (i * i) Mod 100    
        k = 5     
        Do While k > 1 And x(k - 1) > a       
            x(k) = x(k - 1)      
            k = k - 1     
        Loop     
        x(k) = a   
    Next i   
    For i = 1 To 5     
        Print x(i);   
    Next i
End Sub

相关试题

单选题 有两个条件P 、Q,只要有一个条件为真时,结果一定为真的是(    )。 查看答案
判断题 算法可以不输出任何结果。(    ) 查看答案
单选题 在窗体上画一个命令按钮,然后编写如下方所示事件过程。程序运行后,单击命令按钮,依次在输入对话框中输入5、4、3、2、1、-1,则输出结果为(    )

Prevate Sub Command1_Click() 
    Dim a as integer,b as integer, x as integer   
        x=0   
        Do Until x=-1    
            a = InputBox(“请输入A的值”)    
            a = Val(a)    
            b = InputBox(“请输入B的值”)    
            b = Val(b)    
            x = InputBox(“请输入x的值”)    
            x = cint(x)    
            a = a+b+x   
        Loop   
        Print a
End Sub
查看答案
单选题 要交换变量A和B之值,应使用的语句组是(    ) 查看答案
单选题  ①(    ) 查看答案
判断题 著名的“百鸡问题”求解,一般采用穷举法将所有可能列出来并判断其是否符合条件,如果符合就将其打印出来,否则继续判断下一组数据。(    ) 查看答案
单选题 VB函数InStr()检查是否包含另一子串:含有子串则返回值为子串在父串中第一次出现的位置,不包含子串则返回值为0。InStr("CATbCACBC", "BC")的值为(    ) 查看答案
单选题 VB函数Right()从字串右端取部分字串:将某一字串从结尾开始取固定长度的字串。Right(“Visual Basic 6.0”,6)的值为(    ) 查看答案
判断题 任何一个算法所包含的计算步骤都是有限的。(    ) 查看答案
判断题 解释程序将某个高级语言编写的程序全部解释为机器语言程序后才由计算机执行该程序。(    ) 查看答案
单选题 ①(    )  查看答案
单选题 在窗体上画一个文本框(其中Name属性为Text1),然后编写如右方所示事件过程。运行程序的结果是(    )

Private Sub Form_Load() 
    Dim i As Integer, sum As Integer   
        Text1.Text = "aaa"   
        For i = 1 To 10       
            sum = sum + i   
        Next i   
        Text1.Text = sum
End Sub
查看答案
单选题 在VB中,表达式(18+25/3)Mod 5 的值是(    )。 查看答案
判断题 从本套试题的第一大题(选择题)的第3小题中的流程图我们可以看出,它既包含了程序的顺序结构、循环结构,也包含了分支结构。(    ) 查看答案
判断题 如果用某种高级语言编写的程序中只有第N行的一个语句有语法错误,用编译程序翻译时,计算机会先翻译前面的N-1行程序并由计算机执行前N-1行程序,直到第N行有语法错误的语句才停止执行并等待用户修改。(    ) 查看答案
单选题 在窗体上画一个命令按钮,然后编写如下方所示事件过程。程序运行后,单击命令按钮,程序打印的结果为(    )

Private Sub Command1_Click()  
    Dim I As Integer, j As Integer, x As Integer       
        x = 4       
        For I = 1 To 4         
            For j = 1 To 3           
                x = x + 6         
            Next j  
        Next I       
        Print x
End Sub
查看答案
判断题 一个算法至少有一个输入。(    ) 查看答案
单选题 下列各种基本数据类型说明符中表示整数型的是(    ) 查看答案
单选题 下列代数式的Visual Basic表达式是(    )
  
查看答案
单选题 已知A,B,C,D是简单变量,且都已有互不相同的值,执行语句B=8:A=C:D=A:D=B后,其值相等的变量是(    ) 查看答案