- 二一组卷

题型：综合题题类：常考题难易度：普通

浙江省高中信息技术 VB基本语句同步练习

编写VB程序，实现如下功能：在文本框Text1中输入筛选关键词“ca”,单击“筛选”按钮Command1，在列表框List1所列字符串中查找左边与“ca”相匹配的字符串，并在列表框List2中输出(运行效果如图所示)；否则，在列表框List2中显示“无筛选结果”。

实现上述功能的VB代码如下，但加框处代码有错，请改正。

Dim a(1 To 20)As String ‘用于存储20个字符串

‘将20个字符串分别保存赋值给数组元素a(1)、a(2)、a(3)、a(4)、…、a(19)、a(20)，并在列表框List1中显示

Private Sub Form_Load()

‘代码略

End Sub

Private Sub Command1_Click()

Dim s As String, n As Integer, i As Integer

Dim flag As Boolean ‘变量flag用于标记是否在数组a中筛选到左边与s匹配的字符串

List2.Clear ‘筛选时清空上次筛选结果

s=Text1.Text

n=Len(s)

flag=False

For i=1 To 20

If Then ‘

List2.AddItem a(i)

flag=True

End If

Next i

If flag=False Then

‘

End If

End Sub

举一反三

要实现将题9图的界面里的用户输入的圆的半径数据（对象text1输入的值）读取并赋值给变量r，则，正确的代码是（）

下列运算结果中，值最大的是（）

如图所示为某算法的部分流程图，执行这部分流程后，变量s的值是（）

小明编写了一个输出十进制数与二进制数对应表的VB程序。程序运行时，单击“输出”按钮Command1后，在列表框List1中输出运行结果，如下图所示。实现上述功能的VB代码如下，但①②加框处代码有错，请改正。

Dim b(4) As Integer ‘数组b按位存储二进制数

Private Sub pprint(m As Integer)

‘本过程打印输出十进制数m和对应的二进制数

‘代码略

End Sub

Private Sub Command1_Click()

Dim i As Integer,j As Integer

List1.Clear

List1.AddItem “十进制数二进制数”

For i = 0 To 4

b(i)=0

Next i

For i = 0 To 15

Call pprint(i) ‘打印输出一行

j= ‘①

b(j)=b(j)+1

Do While ‘②

b(j)=0

j=j-1

b(j)=b(j)+1

Loop

Next i

End Sub

第①处修改为{#blank#}1{#/blank#}; 第②处修改为{#blank#}2{#/blank#}。

数组a中有n个正整数，对该数组进行排序，生成左右交替上升数据序列。实现该功能的VB程序段如下：

For i=1To n＼2

k=i

If a(j) <a(k) Then k=j

Next j

If i<>k Then

t=a(i)：a(i)=a(k)：a(k)=t

End If

If Then

t=a(j)：a(j)=a(j+1)：a(j+1)=t

End If

Next j

Next i

上述程序中方框处可选语句或表达式有：

①For j=i+1 To n-i+ 1 ②For j=i+1 To n-i

③a(j)<a(j+1) ④a(j)>a(j+1)

则(1)、(2)、(3)处语句依次是（）

VB表达式3^(-2)\2 + 6 Mod 3/3 的值是（）

相关试卷

公司介绍

服务介绍

帮助中心