相关试卷

n=8

For i =1 To n

d(i)= Int(Rnd * 10)+1

Next i

For i= 2 To n-1

k= 1

For j= 1 To n-i

If d(j)*k > d(j+2)* k Then

temp = d(j): d(j)= d(j+2): d(j+2)= temp

End If

k = -k

Next j

Next i

执行该程序段后，d数组各元素可能是（  ）

a(1)=3: a(2)= 4: a(3)=1: a(4)=2: a(5)=5

k = Int(Rnd( )*4)+1

For i=1 To 5

If I <> k Then

If a(i)<a(k) Then t=a(i): a(i)=a(k): a(k)=t

End If

Next i

执行该程序段后，数组元素a(1)到a(5)中的值依次不可能为（  ）

Function delStr（S As String, m As Integer）As String Dim n As Integer

n= Len(s)

If m<1 Or m>n Then

delStr="输入位置有误!"

ElseIf m=1 Then

delStr=Mid(S, 2, n-1)

ElseIf m<n Then

   ①  

ElseIf m=n Then

delStr=Mid(S, 1, n-1)

End If

End Function

则划线①处代码填写正确的是（  ）。

For i=1 To 6

a(i)=Int(Rnd*10)+1

Next 1

For i=2 To 6

If i Mod 2=0 And a(i)>a(i-1) Then

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

Else

a(i)=a(i)-1

End If

Next i

执行程序后，数组元素a(1)到a(6)的值可能是（  ）。

Dim a(1 To 5) As Integer

a(1) = 1

For i = 2 To 5

 a(i) = Int(Rnd( ) * 3) + 3

Next i

For i = 2 To 5

 If a(i) Mod 2 = 1 Then

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

 Else

 a(i) = a(i) / 2

 End If

Next i

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

⑴根据数字串n的左半部分子串st，构造对称的右半部分，生成回文数p；

⑵若p>n，则p即为最小回文数，如：98712→98789。

⑶若p<=n，则需重新构造p，方法是：从右向左查找字符串st中第一个非“9”的字符；若不存在，则形成“10…01”的回文数p，p的长度比n的长度多1为，如9999→10001。若存在，则将第一个非“9”字符加1，并将该字符后面部分用字符“0”填充，最后构造对称的右半部分，生成回文数p，如：98992→99099。98989

实现上述功能的VB程序如下，请回答下列问题：

Dim m2 As String

Private Sub Command1_Click()

Dim flag(1 To 26) As Boolean

Dim num As Integer,t As Integer

Randomize

num = 1

Text3.Text = " "

For i =1 To 26

flag(i) = False

Next i

Do While num <= 26

x = Int(Rnd * 26) + 97

   ①  

If flag(t) =False Then

m2 = m2 + Chr(x)

num =num + 1

   ②  

End If

Loop

Text3.Text = m2

End Sub

Private Sub Command2_Click()

Dim s As String， m As String， result As String

Dim k As String， c As Integer

s = Text1.Text

m = "abcdefghijklmnopqrstuvwxyz"

For i = 1 To Len(s)

k = Mid(s, i, 1)

If k >= "A" And k <= "Z" Then

k = Chr(Asc(k) + 32)

End If

c =1: continue = True

Do While    ③ 

If k = Mid(m, c, 1) Then

continue = False

End If

c =c + 1

Loop

    ④  

Next i

Text2.Text = result

End Sub

①②③④

s="Abc"

i=Len(s)

Do While i>=1

ch=Mid(s, i, 1)

t=(Asc(ch) Mod 32+4) Mod 26

s1=s1+Chr(t+65)

i=i-1

Loop

Text1.Text=s1

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

①授权码由9位字符组成，前三位为日期的密文，最后1位为验证码；

②日期的最后1位数字k（若k的值为0，令k=10），加密成26个大字英语字母表该位置对应的字母。

③将26个大写英文字母向左移k（日期的最后1位数字）个位置，并将移出的k个字母依次连接到最后。例如当k=3时，形成如下表所示新的字母排列顺序：

④日期的第1个数字至第7个数字的加密方法是：计算第i个位置上的数字与第i+1个位置的数字及位置i三者相加的和，在新的字母表中取出该数字和对应的字母，作为第i个位置上数字加密字符。

⑤计算日期的各个位置上数字之和sum，若和sum的值大于26，在新的英文字表中，sum Mod 26对应字母转换成小写字母，作为验证码，否则验证码为新的英文字母表中对应字母。

s1=Text. Text

s2=" "

For i=1 To Len(s1)

ch=Mid(s1，i，1)

If ch>="A" And ch<="Z" Then

'提示：“A”的ASCII码值为65，“a”的ASCII码值为97

End If

s2=s2 & ch

Next i

Text2. Text =s2

要使程序实现上述功能，则方框中的代码是（  ）。

a(1)=1

For i=2 To 6

Randomize

a(i)=a(i-1)+Int(Rnd*5+1)

If a(i) Mod 2=1 Then

a(i)=a(i)\2+1

EIse

a(i)=a(i)/2

End If

Next i

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