一个程序实现如下功能：在文本框text1中输入一个数，在文本框text2中输入需要转换的进制（小于等于16），点击转换按钮，在标签Label3输出转换后的十进制数，程序运行界面如下图所示：请在划线处填入合适的代码 Private Sub Command1_Click() Dim s As String, k As Integer k = Val(Text2.Text) Label3.Caption=“对应的十进制数：”+Str(toD(s, k)) End Sub Function toD(s As String, k As Integer) As Integer Dim ans As Integer, x As Integer ans = 0 For i = 1 To Len(s) If Mid(s, i, 1) >= "A" And Mid(s, i, 1) <= "F" Then x = Asc(Mid(s， i, 1))- Asc(“A”)十 10 Else x = Val(Mid(s, i, 1)) End If Next i End Function

0 返回首页

1. 一个程序实现如下功能：在文本框text1中输入一个数，在文本框text2中输入需要转换的进制（小于等于16），点击转换按钮，在标签Label3输出转换后的十进制数，程序运行界面如下图所示：

请在划线处填入合适的代码

Private Sub Command1_Click()

Dim s As String, k As Integer

k = Val(Text2.Text)

Label3.Caption=“对应的十进制数：”+Str(toD(s, k))

End Sub

Function toD(s As String, k As Integer) As Integer

Dim ans As Integer, x As Integer

ans = 0

For i = 1 To Len(s)

If Mid(s, i, 1) >= "A" And Mid(s, i, 1) <= "F" Then

x = Asc(Mid(s， i, 1))- Asc(“A”)十 10

Else

x = Val(Mid(s, i, 1))

End If

Next i

End Function

【考点】

程序的调试及运行;

【答案】

您现在未登录，无法查看试题答案与解析。登录

综合题普通

基础巩固

能力提升

变式训练

拓展培优

换一批

1. VB的三种工作模式是，，。

填空题容易

1. 小王编写了一个进制转换程序，实现如下功能：在文本框Text1中输入一个二进制数，单击“计算”按钮Command1，在文本框Text2中将显示出其对应的十六进制数。程序运行界面如下图所示：

(1) 要使程序启动时，自动清空文本框的 Text1 中的内容，则可以在（单选，填字母：A .Command1_click / B .Text1_click / C .Form_load）事件处理过程中添加语句 Text1.Text= ""

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

Private Sub Command1_Click（）

Dim s As String, s1 As String, t As Integer, c As Integer

Const code = "0123456789ABCDEF"

s = Text1.Text

t = 0: s1 = ""

For i = Len(s) To 1 Step -1

c = Val(Mid(s, i, 1))

t = t + c * 2 ^ ((Len(s) - i) Mod 4)

If (Len(s) - i + 1) Mod 4 = 0 Or ① Then

②

t = 0

End If

Next i

Text2.Text = s1

End sub

① ②

(3) 如果没有第①处划线部分的条件，当输入的二进制数为 1101011，则 Text2 中显示的内容为

综合题困难

2. 现要求编写VB程序实现如下功能：在文本框Text1中输入正整数n（n为奇数），单击“生成”按钮后，在文本框Text2中会显示一个有规律的对称数字串，形成为“1 3 ... n-2 n n-2 ...3 1”。例如n=9时，显示的数字串为“1 3 5 7 9 7 5 3 1”。

(1) 应用程序界面设计时，为添加按钮，就使用如左图所示的“控件工具箱”中（填写数字标号）；为将按钮上的字设置为“生成”，应在对应的属性窗口中属性值修改为“生成”，根据代码可知，命令按钮“生成”的对象名是。

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

Private Sub Cmd1_Click()

Dim n As Integer,i As Integer,s As string

S=“”

For i=1 To n

If i<=n\2+1 Then

Else

S=s+

End if

Next i

Text2.Text=s

End Sub

(3) 当n=9时，在实现程序功能的情况下，如果将程序中加框处的代码换成“s=str(2*i-1)+s”,单击“生成”按钮，其输出结果为。

综合题困难

3. 小王用VB编写一个自动统计英文字母和单词个数的程序。功能如下：在文本框Text1中输入任意的英文句子，单击 “统计”命令按钮Command1，程序自动统计出每个字母出现的频率，并将其输出到列表框List1，且将出现次数最多的字母输出在标签Label1中，另外将单词个数在标签label2中输出。程序界面如图所示，实现上述功能的VB程序如下。请回答以下问题：

(1) 请在划线处填入合适的代码。

Private Sub Command1_Click()

Dim a(65 To 122) As Integer

Dim i As Integer, ch As String, count As Integer

Dim Max As Integer, Maxi As Integer, flag As Boolean

List1.Clear

flag = False

count = 0

s = Text1.Text

For i = 1 To Len(s)

ch = Mid(s, i, 1)

If ch>= "a" And ch<= "z" Or ch>= "A" And ch<= "Z" Then

a(Asc(ch)) =

If flag = False Then

count = count + 1

flag = True

End If

Else

End If

Next i

Max = 0: Maxi = 0

For i = 65 To 122 ’A的ASCII码值为65，a的ASCII码值为97

If a(i) > 0 Then

List1.AddItem Chr(i) + ": " + Str(a(i))

End If

If a(i) > Max Then

Max = a(i)

Maxi = i

End If

Next i

Label1.Caption = "频率最高字母：" +

Label2.Caption = "共有单词数：" + Str(count) + "个"

End Sub

(2) 从代码可知，当出现两个以上的字母次数最高时（例如字母a和d都出现4次，且为最高次数），则程序最终输出的是（单选,填写字母：A .排在前面的第一个频率最高字母/B .中间的某个频率最高字母/C .排在最后的一个频率最高字母/D .无法确定）。

综合题普通

1. 利用python编程解决“百鸡百钱”问题，编写完代码后，应该进行（）。

A. 分析问题 B. 设计算法 C. 输出结果 D. 调试运行

单选题容易

2. 有如下程序段：

Dim i As Integer，n As Integer，s As String，ch As String ，t As String

s= Text1.Text ： t = "”

For i=1ToLen(s)

ch = Mid(s，i，1)

If ch>="0"Andch<="9"Then

t=t+ch

Else

n = Val(t)

If Sqr(n) = Int(Sqr (m)) Then List1.AddItem Str (n)

End If

Next i

在文本框Text1中输入“2，25，64，8，36”，单击“调试"按钮后，程序可能出现的错误提示为（）

A. 数据类型不匹配 B. 无效的过程调用或参数 C. 下标越界 D. 溢出

单选题普通

3. 用户日常使用的程序使用时必须调用到硬盘才能运行。

A. 正确 B. 错误

判断题容易

1. 寻找素单词。素数是指大于1的自然数中，除了1和它本身以外不再有其他因数的自然数。例如，2，3，5，7等是素数。本题输入一个单词，每个单词由小写字母组成。每个字母对应一个特定的值，字母a对应1，字母 b对应2，以此类推，字母z对应26。如果这个单词的字母值的总和是素数，则这个单词是素单词( prime word)。请编写程序，判定一个单词是否为素单词。

(1) 实现上述功能的部分 Python程序如下，请在划线处填入合适的代码。

def isprime(n): #判断n是不是素数

for i in range():

if n%i==0:

else:

return True

def strsum(word): #统计单词的字母值总和

dic={"a":1,"b":2,"c":3,"d":4,"e":5,"f":6,"g":7,"h":8,"i":9,"j":10,

"k":11,"l":12,"m":13,"n":14,"o":15,"p":16,"q":17,"r":18,"s":19,

"t":20,"u":21,"v":22,"w":23,"x":24,"y":25,"z":26}

n=0

for ch in word:

return n

word=input("请输入一个单词:")

s=strsum(word)

if flag:

print("这是一个素单词")

else:

print("这不是一个素单词")

(2) 下列选项中不可以填入加框处的代码是（单选，填字母）。 A. 2,n B. 2,n+1 C. 2,int(n**0.5)+1 D. 2,n//2+1

综合题困难

2. 在平面坐标系中，给定一组有序的点。依次用线段连接这些点，构成一条折线。其中字符串a为输入的坐标系中的各点坐标，以逗号为界从a中取出存入b列表中，列表b的第1、2个元素为第一个点的x坐标和y坐标（即x1,y1），第3、4个元素为第二个点的x坐标和y坐标(即x2，y2)，依次类推。编写Python程序段如下，用于计算折线的长度。

from math import *

def dist(x1, y1, x2, y2):

length = sqrt((int(x1) - int(x2))**2 + ① )

return length

a = input("请输入各点的坐标：") # 如“2,3,4,5”则表示坐标点（2,3）和（4,5）

b = a.split(",")

if len(b) % 2 != 0:

print("输入的坐标有误！")

else:

s = 0

for i in range(0, ② , 2):

s = s + ③

print("折线的长度为：", s)

(1) 如输入的数据为“2,3,5,7,8,11”，则折线的长度为：；如果输入的数据为“2,3,5,7,8,11，”则程序的输出结果是（单选，填字母）。

A.程序输出正确的折线长度

B.输入的坐标有误！

C.程序运行出错！

(2) 为使程序能正确运行，请在划线处填入合适的代码。

① ② ③

综合题困难

(1) 在抽象与建模阶段，小申初步设计了计算模型，用day表示天数，time 表示每天阅读时间，1imit 表示家长的设定值。请问其中day变量的数据类型为（） A. float B. str C. int D. bool

(2) 在设计算法阶段，以下流程图应填入的选项是（）

A. ①i=i+1 ②day=day+1 B. ①i=i+1 ②time=time+1 C. ①day=day+1 ②i=i+1 D. ①time=time+1 ②i=i+1

(3) 根据上述算法描述，我们知道解决该问题的算法为枚举法，枚举算法的特点为（）。 A. 一一列举逐一检验 B. 一一检验逐一列举 C. 重复检验 D. 重复列举

(4) 枚举算法的结构特征是( )。 A. 分支结构中嵌套循环结构 B. 分支结构中嵌套分支结构 C. 循环结构中嵌套循环结构 D. 循环结构中嵌套分支结构

(5) 在编写程序阶段，小申想用range(起始值、终值、步长)函数生成一个长度为7的整数序列，用于表示一周7天。以下适用的语句是( ) 。

①range(0, 7) ②range(1, 7) ③range(0, 7, 1)

④range(1,7,1) ⑤range(7,1,-1) ⑥range(7,0,-1)

A. ①③⑥ B. ②④⑥ C. ①③⑤ D. ②④⑤

(6) 在调试运行阶段，小申发现程序并未达到预期的效果，如图1、图2所示，请分析原因并加以改正。

①day=0

②limit=float (input(“请输入家长设定值(小时) :”))

③for i in range(7):

④ time=float(input(“请输入阅读时间(小时) :”))

⑤ if time>limit:

⑥ day=day+1

⑦print(“有”, day, “天阅读时间小于家长设定值”)

图1 预期结果

图2 调试结果

请写出出错的语句的编号，并写出修改后的语句: 。

综合题困难