在VB程序中,如果要在一行内写多条语句时,语句之间应该用 分隔。
当前题号:1 | 题型:填空题 | 难度:0.99
读下面VB程序段,
Dim j  As Integer, k  As Integer
List Clear
For k =" 1" To 100
j = Int(Sqr(k))
If j * j =" k" Then list1.AddItem Str(k)
Next k
分析程序功能,该程序的功能是( )
A.输出1到100以内的所有的质数
B.输出1到100以内的所有的奇数
C.输出1到100以内的所有的偶数
D.输出1到100以内所有的完全平方数
当前题号:2 | 题型:选择题 | 难度:0.99
有如下程序段:
For i =" 1" To 2
For j =" 2" To 7 - i
If a(j) > a(j - 1) Then
k =" a(j):" a(j) =" a(j" - 1): a(j - 1) = k
End If
Next j
Next i
数组元素a(1)到a(6)的值依次为“71,54,58,29,31,78”,经过该程序段“加工”后,下列说法正确的是( )
A.数组元素a(1)到a(6)的值依次为54,29,31,58,71,78
B.此过程中数据共需比较次数为8次
C.此过程中数据共需交换次数为5次
D.此过程中数据“54”共被比较5次
当前题号:3 | 题型:选择题 | 难度:0.99
判断一个整数n(>=3)是否为素数;提示:将一个不小于3的整数n分别除以2到n的平方根之间的所有整数,如果全部除不尽,那么n为素数(质数),否则本为非素数(合数)
编写程序如下:
Sub Form_Click(  )
Dim n As Interger
n=InputBox(“请输入一个正整数(n>=3):”)
k=Int(Spr(n))
i=2
Swit=0
While i<="k" And Swit =0
If  ①    then  Swit =1
Else i=i+1
Wend
If  Swit="0" Then Print n;”是一个素数”
Else Print  n;”不是一个素数”

End Sub
(1) 函数Sqr(n)的功能是___________________
(2) 语句Swit="1" 在这段程序中执行___________次
(3) 可用于接受用户输入文本,又可用于显示文本的控件是_____________
(4) VB中保存工程文件的文件扩展名为__________________
(5) 想在程序后面加上注释,应用到_____________符号
(6) 变量K的数据类型定义为_________________(integer或string)
(7) 在这段程序中,所用到的循环语句为__________________
(8) 认真阅读程序,在 ①序号出应补充的语句是________________
(9) Swit是一个标志变量。_______标志着n未被任何一个正整数整除过
(10)代码调试后,发现在 ② 处少语句 ,应填写___________________
当前题号:4 | 题型:填空题 | 难度:0.99
某算法的部分流程图如图所示,若n输入的值为1,则变量s的值是多少?如将循环体“s=s+n和n=n+2”交换顺序,则s值又是多少?
A.25、26
B.26、25
C.36、36
D.26、36
当前题号:5 | 题型:选择题 | 难度:0.99
某校有100个学生的期末成绩存储在数据库中,并已经按学号升序排序,学号编号从1到100。现要求找出成绩最高的学生的得分。如果有多个符合要求的学生,只输出学号排在前面的。小吴为此编写了VB程序,程序运行时,单击按钮Command1后,在文本框Text1中输出最大成绩。实现上述功能的VB代码如下,请补全代码。
Dim a(1 To 100) As Single '依次存储100个学生成绩
Const n = 100
Private Sub Form_Load()
'本过程从数据库中读取1到100号学生成绩,并存储在数组a中
'代码略
End Sub
Private Sub Command1_Click()
Dim i As Integer, max As single
max =           (1分)
For i =" 2" To n
if          (2分)
Next i
Text1.Text = "成绩最高分是:" + Str(max)
End Sub
(1)程序中①画线处应填入    
(2)程序中②画线处应填入    
当前题号:6 | 题型:填空题 | 难度:0.99
有如下 V B 程序段:
Dim s(1 To 6) As String
Text1.Text = ""
For i =" 1" To 5
For j =" i" + 1 To 6
If s(i) + s(j) < s(j) + s(i) Then
t =" s(j):" s(j) =" s(i):" s(i) = t
End If
Next j
Next i
For i =" 1" To 6
Text1.Text =" Text1.Text" + s(i)
Next i
如果程序运行,一开始当数组元素s(1)到s(6)的值依次为“4”、“343”、“312”、“12”、“246”、“121”,运行该段代码后,文本框Text1中显示的内容为( )
A.434331224612121B.434331224612112
C.343312246121124D.121122463123434
当前题号:7 | 题型:选择题 | 难度:0.99
某对分査找算法的VB程序段如下:
i=" 1" :  j =9  :  n ="0"
key="Val(" Textl.Text)
Do While i <= j[ZXXK]
m="(i" + j) \ 2
If  key = d(m)  Then
Exit Do

j=" m" - 1
Else
i=m+1
End If
Loop
方框中的正确代码应为
A.End IfB.If key < d(m) Then
C.ElseIf key < d(m) ThenD.If key > d(m) Then
当前题号:8 | 题型:选择题 | 难度:0.99
编写VB程序,实现如下功能:在文本框Text1中输入一个整数,单击“查找”按钮,找出该整数的全部的连续整数固定和,并将它们显示在列表框List1中。所谓一个数n的连续整数固定和,就是指存在a1,a2,…,an,其中ai+1比ai大1,使得a1+a2+…+an=n。这样a1,a2,…,an称为n的一个连续整数固定和。例如27的全部的连续整数固定和有3组,运行界面如图所示,实现上述功能的VB代码如下,但加框处代码有错,请改正。

Private Sub Command1_Click()
Dim i As Integer, j As Integer, sum As Integer
Dim n As Integer
n = Val(Text1.Text)
sum = 0
List1.Clear
For i =" 1" To n ' ①
j =" i" - 1
Do While  sum <=" n" ' ②
j =" j" + 1
sum =" sum" + j
Loop
If sum =" n" Then
List1.AddItem Str(i) & " + ... +" & Str(j) & "=" & Str(n)
End If
sum = 0
Next i
End Sub
当前题号:9 | 题型:简答题 | 难度:0.99
每一个小写英文字母的 ASCII 码都比相对应的大写英文字母的 ASCII 码要大 32。编写 VB程序,实现如下功能:在文本框 Text1 中输入一串字符,单击“转换”按钮后,在文本框 Text2 中输出经过大小写字母互换的字符串, 其它非英文字母的字符均保持不变, 同时在 Label3 中输出字符的总个数及经过大小写互换的英文字母个数,运行界面如图所示,

(1)要使程序运行时窗体的标题显示为“大小写字母转换”,则需在事件处理过程中编写代
码“Form1.Caption = "大小写字母转换"”。 (单选,填字母:
A.Form1_Click
/
B.Form_Load /C.Command1_Click /D.Command1_DblClick )
(2)为实现上述功能,程序代码如下,请完善代码。
Private Sub Command1_Click()
当前题号:10 | 题型:填空题 | 难度:0.99