- 二一组卷

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

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

编写VB程序，实现如下功能：在文本框Text1和Text2中分别输入一个整数，单击“转换”命令按钮，在列表框List1中显示结果，运行结果如图a所示。结果包含两列数据，第1列为两数之间的厘米值g(间隔1厘米、升序)，第2列为对应的码值m。

鞋子尺码换算：常用的两种鞋码一种是欧制的码m，而我国采用的标准为厘米数g，鞋子尺码的换算公式：欧制m=中国制g*2-10。例如25是我国采用的厘米数，换算成欧制的码为25*2-10=40(码)。

（1）、根据程序界面(图a)和其属性窗口(图b)所提供的信息,可以得知“转换”命令按钮的对象名称是。

（2）、为实现上述功能，请在划线处填入合适的代码或选项。

Private Sub Command1_Click()

Dim g1 As Integer, g2 As Integer

Dim i As Integer, temp As Integer

Dim m As Single

List1.Clear

g1 = Val(Text1.Text)

g2 = Val(Text2.Text)

IfThen

temp = g1: g1 = g2: g2 = temp

End If

i = g1

Do While i <= g2

List1.AddItem Str(i) + “” + Str(m)

i = i + 1

Loop

End Sub

（3）、如果调试程序时在文本框中输入小数，例如第一个数输入24.5，第二个数输入29.5，则在列表框中(选填:能/不能)看到包含小数的厘米数。

举一反三

古希腊著名哲学家毕达哥拉斯把1，3，6，10，15，21，28……称为三角形数。这些三角形数序列有一定的规律，后一个数与前一个数的差刚好构成一个等差数列2，3，4，5，6，7……，所以第2位的“3”等于序列的第1位数“1”加上等差数“2”，第3位的6等于序列的第2位数“3”加上等差数“3”，……，第n位数m等于序列的第n-1位数加上等差数n。小金利用这个规律编写出了一个判断三角形数的VB程序，在文本框Text1中输入一个大于1的正整数，单击”判断”按钮Command1，在标签label1中显示判断结果。程序设计界面如图所示。

某帐户名的命名规则为：①长度不得超过16个字符；②必须以小写字母开头；③除首字符外，其余均为数字字符。编写一个程序，实现功能如下：在文本框Text1中输入待检测的帐户名，单击“检测”按钮Command1，在标签Label1中显示检测结果。程序运行界面如图所示。

大数加法。在文本框Text1和Text2中输入两个大数，点击“相加”按钮后，在文本框Text3中输出结果。

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

Private Sub Command1_Click()

Dim s1 As String

Dim s2 As String

Dim s3 As String

Dim l1 As Integer

Dim l2 As Integer

Dim l3 As Integer

Dim a(1 To 100) As Integer

Dim b(1 To 100) As Integer

Dim c(1 To 100) As Integer

Dim t As Integer

s1 = Text1.Text

s2 = Text2.Text

l1 = Len(s1)

l2 = Len(s2)

For i = l1 To 1 Step -1

a(i) ={#blank#}1{#/blank#}

For i = l2 To 1 Step -1

b(i) =Val(Mid(s2, l2 - i + 1, 1))

If l1 > l2 Then l3 = l1 Else l3 = l2

t = 0

For i = 1 To l3

c(i) = a(i) + b(i) + t

t = c(i) \ 10

c(i) ={#blank#}2{#/blank#}

For i = 1 To l3

s3 = Str(c(i)) + s3

If{#blank#}3{#/blank#}Then s3 = “1” + s3

Text3.Text = s3

End Sub

有一组正整数，要求仅对其中的奇数进行升序排序。排序后在列表框List2中也仅显示奇数部分数据，结果如图所示。

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

Const n=10

Dim a (1 To n) As Integer

Private Sub Command1_Click()

Dim t As Integer, i As Integer, j As Integer, m As Integer

Dim tmp As Integer

'读取一组正整数，存储在数组a中，并显示在列表框List1，代码略

i=1

Do While i<=n

For j=n To i+1 Step-1

If a(j) Mod 2=1 Then

If ① Then

tmp =a(j):a(j)=a(j-1):a(j-1)=tmp

t=t+1

End If

Next j

If ② Then m=m+1

i=i+1

Loop

For i=1 to m

List2.AddItem Str(a(i))

Next i

List2.AddItem "一共交换了"& t & "次"

End Sub

①{#blank#}1{#/blank#} ②{#blank#}2{#/blank#}

若一个正整数从左向右读与从右向左读都一样，我们就将其称之为“回文数”。设计一个在列表框 Listl中显示 100-500 之间的所有回文数的程序，实现该功能的 VB 程序段如下：

For k = 100 To 500

x = k

z = 0

Do while x > 0

Loop

If z= k Then

List1．AddItem Str(k)

End lf

Next k

上述程序段中方框处可选语句为：（）

①x =x\ 10 ②y = x Mod 10 ③z = z+10* y ④z= 10* z + y

则（1）（2）（3）处语句依次为

有如下Python程序段:

s=input()

t=0

mw=''

for i in range(len(s)):

ch=s[i]

if '0'<=ch<='9':

t=t*10+int(ch)

elif ch=='-':

mw+=chr(t%26+ord('A'))

t=0

else:

mw+=ch

print(mw)

执行该程序段输入“29-052-24!”（不包括双引号），则输出的结果是（）

相关试卷

公司介绍

服务介绍

帮助中心