设计VB程序，该程序将输入的字符串中小写字母转换成大写字母后输出。在文本框Text1中输入一串字符（数字、字母均可），单击“转换”按钮Command1，在标签Label2中输出结果。（提示：Asc（x）：将字符x转换为ASCII码值；Chr（x）：将ASCII代码x转换为所对应的字符）该程序的设计界面如图所示,请根据算法将下列程序补充完整。 Private Sub Command1_C...

题型：填空题题类：模拟题难易度：困难

浙江省杭州市2015年高考模拟命题比赛信息技术 (2)

设计VB程序，该程序将输入的字符串中小写字母转换成大写字母后输出。在文本框Text1中输入一串字符（数字、字母均可），单击“转换”按钮Command1，在标签Label2中输出结果。（提示：Asc（x）：将字符x转换为ASCII码值；Chr（x）：将ASCII代码x转换为所对应的字符）该程序的设计界面如图所示,请根据算法将下列程序补充完整。

Private Sub Command1_Click()

Dim ch As String, s As String

Dim i As Integer, j As Integer

ch = Text1.Text

For i = 1 To

j = Asc(Mid(ch, i, 1))

If j > 96 And j < 123 Then

s = s + Chr(j - 32)

Else

s = s + Chr(j)

End If

End Sub

举一反三

编“字符串生成”程序，实现如下功能：在文本框Text1中（字符位置)输入多个正整数 (以“，”为分割符和结束符），单击“生成”按钮Command1,程序以这些整数为位置信息，依次从文本框Text2中（字典内容）提取字符并连接成字符串，最后将字符串显示在标签Label1中（生成内容）。程序运行界面如下图所示。

编写一个“二进制加法”程序，算法是从低位到高位逐位相加，逢二进一。程序运行界面如图所示。

小李用VB编写了一个VB程序，在文本框Text1中输入任意字串s，单击命令按钮Command1，统计s中以各连续数字字串为一因子的数字之和。如输入字符串 “ast23bcde567fg8”，则输出598，即23+567+8，并在Text2中输出结果。程序界面如图所示。代码如下：

在VB程序设计中，Mod（取模）函数的功能是取余数，如“9 Mod 3”的值为“0”。下列程序执行后，整型变量a的值为（）。

a = 1

For p=1 to 50

If p Mod 3 = 0 Then a = a + 1

Next p

小吴为了研究冒泡排序过程中数据的”移动”情况，编写了一个VB程序，功能如下：在列表框List1中显示排序前数据（存储在数组a中），在文本框'Text1中输入初始位置（即下标值），单击“排序”按钮Command1后，在标签Labell中显示指定初始位置的数据在排序过程中的位置变化情况，排序后的数据显示在列表框List2中。程序运行界面如图所示。

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

Dim a（1 To 8）As Integer

Dim n As Integer

Private Sub Form_Load（）

a（1）= 30：a（2）= 47：a（3）= 30：a（4）= 72

a（5）= 70：a（6）= 23：a（7）= 99：a（8）= 24

n = 8

For i = 1 To 8

List 1.Addltem a（i）

Next i

End Sub

Private Sub Command1_Click（）

Dim i As Integer， j As Integer， k As Integer

Dim pos As Integer

Dim s As String

s = Text1.Text

pos = Val（Text1.Text）

For i = 1 To n- 1

For j = n To i+1 Step-1

If a（j）< a（j -1） Then

‘⑴

a（j-1）= a（j）

a（j）= k

'如果pos位置的数据参与交换，则更新pos值，记录pos变化位置

If pos = j Then

pos = j-1

s = s + " →" + Str（pos）

‘⑵

pos = j

s = s + " →" + Str（pos）

End If

Next j

Next i

Label1.Caption = "位置变化情况：" +s

For i = 1 To n

List2.AddItem Str（a（i））

Next i

End Sub

⑴{#blank#}1{#/blank#} ⑵{#blank#}2{#/blank#}

小明基于插入排序思想设计了一个改进的排序算法。输入n个两位正整数到数组a，判断数组a中每个元素的奇偶性，若为奇数则将其放前插入适当位置，若为偶数则将其放后插入适当位置。排序完后数组a中所有奇数在前升序排序，偶数在后降序排序。程序代码如下：

Dim a(1 To 100) As Integer, n As Integer

Function moving( start As Integer, finish As Integer, st As Integer)

'将元素 a(finish)插入到元素 a(start)和元素 a(start+st)之间

Dim i As Integer, k As Integer k = a(finish)

For i = finish - st To start Step -st a(i + st) = a(i)

Next i a(start) = k

End Function

Private Sub Command1_Click()

Dim head As Integer, end1 As Integer, i As Integer, ans As String

' 将待排序的数存储在数组 a 的 a(1)至 a(n)中，并输入元素个数 n，代码略

head = 1: end1 = n + 1

Do While head < end1

If ① Then

For i = 1 To head - 1

If a(i) > a(head) Then Exit For

Next i

Call moving(i, head, 1)

head = ②

Else

For i = end1 To n

If a(i) < a(head) Then Exit For

Next i

Call moving( ③ )

End1 = end1 - 1

End If

Loop

For i = 1 To n

ans = ans + Str(a(i))

Next i

Text2.Text = ans End Sub 请回答下列问题：

相关试卷

公司介绍

服务介绍

帮助中心