- 二一组卷

题型：综合题题类：常考题难易度：困难

浙江省温州市新力量联盟2018-2019学年高二上学期信息技术期末考试试卷

使用 VB 编写一个数字逆序功能的程序，在文本框 Text1 中输入若干整数，相互之间用逗号隔开，单击“开始逆序”按钮，在文本框 Text2 中输出逆序后的数字序列。程序运行界面如图所示，请改正划线处的错误语句使程序能正确运行。

Private sub Command1_click()

Dim s1 As String, s2 As String, t As String, ch As String

Dim i As Integer

s1 = Text1.Text

i = Len(s1)

t = "": s2 = ""

Do While i > 0

ch = Mid(s1, i, 1)

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

t = ch + t

Else

s2 = s2 + t +， ①

t = ""

End If

i = i + 1 ②

Loop

s2 = s2 + t

Text2.Text = s2

End sub

① ②

举一反三

将输入的字符连接成字符串，直到输入-1为止（输入字符保存在C变量中），如果依次输入以下字符: 3,S,2,D,1,-2,-1,f,-1

则最后得到的字符串是：（）

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

Private Sub Commandl_Click()

Dim i As Integer,j As Integer.s As String

Dim a(1 To 5) As Integer

List1.Clear

Randomize

For i=1 To 10

j=Int(Rnd*6)+1

a(j)=a(j)+1

Next i

For i=1 To 5

s=Str(a(i))

List1.AddItem s

Next i

End Sub

程序运行时，单击按钮Commandl后弹出如图所示的错误提示。出现错误的语句是( )

某算法的部分流程图如图所示。执行这部分流程，依次输入3,4,-1，则输出s的值是（）

八进制采用了0~7八个数字，逢八进一。每个数字在不同的数位上对应不同的权值，如(123)₈=1×8²+2×8¹+3X8⁰=(83)₁₀。小明编写了一个将把8位以内八进制正整数转换为十进制数的VB程序，实现如下功能：在文本框Text1中输入八进制数，单击“转换”按钮Command1，在文本框Text2中输出转换后十进制数。程序运行界面如图所示。

有如下VB程序段：

Dim c As String, i As Integer

Dim s As String, s1 As String

s = "Jishu_Xuankao_2020"

s1 =""

For i = 1 To Len(s) Step 2

c = Mid(s, i, l)

If c >= "a" And c <= "z" Then s1=c+s1

Next i

Text1. Text = s1

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

有如下VB程序段：

s=0

For k =3 To 1 Step-1

If k <=1 Then x=1

If k <=2 Then x=2

If k <=3 Then x=3

s=s+x

Next k

Text1. Text= Str(s)

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

相关试卷

公司介绍

服务介绍

帮助中心