- 二一组卷

题型：单选题题类：常考题难易度：容易

浙教版高一信息技术专题五：VB程序设计

某VB程序的一个事件过程代码如下：

Private Sub Command1_Click()

Dim u As Single, x As Single, y As Single, z As Single

u=Val(Text1.Text)

x=(u+10)/(u*u+8)

y=(u-1)/(x+u)

z=Sqr(x-y)

Text2.Text=Str(z)

End Sub

程序运行时，在文本框Text1中输入-1，单击命令按钮Command1，弹出如图所示的错误提示信息。产生此错误的语句是（）

A、u=Val(Text1.Text) B、x=(u+10)/(u * u+8) C、y=(u-1)/(x+u) D、z=Sqr(x-y)

举一反三

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

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

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

Private Sub Command1_Click()

Dim s As String, k As Integer

{#blank#}1{#/blank#}

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

{#blank#}2{#/blank#}

Next i

{#blank#}3{#/blank#}

End Function

执行程序后，a数组各元素是（）

Dim a(1 To 7) As Integer

a(1) = 14: a(2) = 15: a(3) = 0: a(4) = 11: a(5) = 13: a(6) = 21: a(7) = 17

i = 6: flag = True

Do While i > 1 And flag

If a(i) Mod 3 = 0 And a(i) <> 0 Then

t = a(i): a(i) = a(i + 1): a(i + 1) = t

ElseIf a(i) = 0 Then

flag = flase

ElseIf a(i + 1) Mod 2 = 1 Then

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

End If

i = i - 1

Loop

素数只能被1和它本身整除，不能被其他自然数整除。编写VB程序实现如下功能：单击“产生奇数并判断”按钮Command1，随机产生一个三位正奇数显示在文本框Text1中，并在文本框Text2中显示其是否为素数的判断结果。例如，当随机产生的三位正奇数为953时，程序运行界面如图1所示。

图1

图2

设计一个VB程序，使其具有下列功能：在文本框Text1.Text输入字符串，单击“开始”按钮Command1，将输入的字符串中小写字母转换成大写字母后，在标签Label2中输出。界面设计如图1所示。

某字符串s是由一个原始字符串反复重叠形成的。例如字符串"abcababcababcab"的是由原始字符串"abcab"重叠而成。为查找字符串s的原始字符串，有如下VB程序段:

s = "abcababcababcab": L = Len(s)

For t = 1 To L \ 2 '枚举可能的原始长度

If L Mod t = 0 Then

For i = t + 1 To L Step t

If ① <> Mid(s， 1， t) Then Exit For

Next i

If i = L + 1 Then ans = ② : Exit For

End If

Next t

Text1.Text = ans

上述程序段划线处①②语句依次可为（）

相关试卷

公司介绍

服务介绍

帮助中心