- 二一组卷

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

浙江省高中信息技术——VB基础知识

小李编写了一个“查找小写字母并逆序输出”的程序，实现如下功能：在文本框Text1中输入由字母、数字等组成的字符串，单击“查找”命令按钮 Command1后，查找出所有小写字母并在文本框Text2中逆序输出。程序运行界面如图所示。请回答下列问题：

（1）、要使程序运行时，命令按钮 Command1上显示“查找输出”，可在 Form_Load( )事件过程中添加语句（单选，填字母：A .Command1 = “查找输出”/B .Command1.Text= “查找输出”/C .Command1 Caption= “查找输出”）

（2）、实现上述功能的VB程序如下，请在划线处填入合适的代码。

Private Sub Command1_Click( )

Dim s As String, t As String

Dim i As Integer, ch As String

S = Text1.Text

For i = To Len(s)

Ch= ①

If ch > = “a” And ch < = “z” Then

t= ②

End If

Next i

Text2. Text = t

End Sub

① ②

（3）、如果将加框处的代码t改为Str(t)，则运行程序时将（选填：出错/不出错）。

举一反三

问题描述：有n个互不重复的数字，值的范围是[1，n]，分别保存在数组元素a(1)到a(n)中，若数字i保存在a(i)，则认为数字i在正确的位置上。若干个相互占用了位置的数字称为一组，一个在正确位置上的数字单独为一组，比如6个数字2，3，1，4，6，5分别保存在数组元素a(1)到a(6)中，则2、3、1为一组，4为一组，6、5为一组。该程序的功能为输出每组的情况。运行界面如图:

编写VB程序代码，实现如下功能：在文本框Text1中输入金额(整数)后，

点击“转换”按钮Command1，则在文本框Text2中显示该金额的大写，程序运行界面如下图所示:

有如下程序：

Dim a(3, 3) As Integer

For m = 1 To 3

For n = 1 To 3

a(m, n)=(m-1)*3+n

Next n

Next m

For m = 2 To 3

For n = 1 To 2

Print a(n, m);

Next n

Next m

运行后输出结果是（）

下列的几个程序段中，能将x和y中的数据互换的是（）。

有如下VB程序段：

Dim i As Integer, sum As Integer

Dim a(1 To 6) As Integer, b(1 To 6) As Integer

sum = 0

a(6) = 18: a(5) = 7: b(6) = 14: b(5) = 16

For i = 4 To 1 Step -1

a(i) = a(i + 2) - a(i + 1)

b(i) = b(i + 2) - a(i)

If b(i) Mod 3 = 0 Then sum = sum + b(i)

Next i

Text1.Text = Str(sum)

该程序段运行后，文本框Text1中显示的内容是（）

有如下Python程序：

inp=input("May i have your name? ").split()

family_name={#blank#}1{#/blank#}

print("It's nice to meet you "+family_name)

运行该程序，其输入输出样例如下：

或：

请根据程序功能补全代码。

相关试卷

公司介绍

服务介绍

帮助中心