序号 | 时 间 | 层 | 房号 | 客房入住情况 | 属性 |
1 | 2021-5-1 08: 30: 00 | 3 | 8305 | 已入住 | 普通单人房 |
2 | 2021-5-1 10: 30: 00 | 3 | 8310 | 未入住 | 普通双人房 |
3 | 2021-5-1 12: 30: 00 | 4 | 8421 | 已预定 | 豪华单人房 |
4 | 2021-5-1 14: 35: 00 | 6 | 8618 | 未入住 | 普通双房人 |
… | … | … | … | … | … |
下列说法正确的是( )
Dim x As Integer Dim s As String
Dim st As String
Dim t As Integer
st=“0123456789ABCDEF”
x = Val(Text1.Text)
Do While x > 0
Loop
Label1.Caption=s
方框中的代码由以下三部分组成:
① x = x \ 16 ② s = Mid(st,t+1,1)+ s ③ t = x Mod 16
下列选项中代码顺序正确的是( )
i = 1: j = 8 : n = 0
key = Val(Text1.Text)
Do While i <= j
m = (i + j- 1) \ 2
n=n+1
If a(m) >=key Then
i = m + 1
Else
j = m - 1
End If
Loop
Label1.Caption=Str(n)+Str(i)
数组元素a(1)到a(8)的值依次为“ 35,32,29,26,21,19,16,12”。在文本框Text1中输入17,执行该程序段后,标签Label1上显示的内容是( )
n = 8
m = Int(Rnd *5 + 1)
For i = 1 To n - m +1
k = i
For j = m To n - i
If a(j) > a(j + 1) Then
t = a(j) : a(j) = a(j + 1) : a(j + 1) = t
ElseIf a(j) > a(k) Then
k = j
End If
Next j
tmp = a(k) : a(k) = a(i) : a(i) = tmp
Next i
数组元素a(1)到 a(8)的值依次为“25,77,82,71,53,42,69,83”。经过该程序段加工后数组元素a(1)到a(8)的值不可能是( )
图a |
请回答下列问题:
请回答下列问题:
1)通知中包含的空格,标点符号等按原格式输出
2)通知中涉及到字母的内容,所发文件的英语单词全部都是倒序的。如:This is a dog!通知显示内容为:sihT si a god!
3)通知中涉及到数字的内容,把本组数字的最后一位移动到第一位,例如原文为1234,通知显示内容为:4123
小王编写了一个VB程序,实现加密功能,在文本框Text1中输入原文,单击“加密”按钮Command1后,在文本框Text2中显示加密后的密文。程序运行界面如图所示。
实现上述功能的VB程序如下,请回答下列问题:
Private Sub command1_Click()
Dim s As String, ch As String, rv As String, rv1 As String
Dim i As Integer, j As Integer, k As Integer
s = Text1.Text
rv = ""
i = 1
Do While True
ch = Mid(s, i, 1)
Do While And i <= Len(s)
rv = rv + ch
i = i + 1
ch = Mid(s, i, 1)
Loop
j = i
ch =
Do While sz(ch) And j <= Len(s)
j = j + 1
If j > Len(s) Then Exit Do
ch = Mid(s, j, 1)
Loop
rv1 = ""
rv1 = Mid(s, j - 1, 1) + Mid(s, i, j - i - 1)
rv = rv + rv1
i =
If i > Len(s) Then Exit Do
Do While zf(ch) And j <= Len(s)
j = j + 1
If j > Len(s) Then Exit Do
ch = Mid(s, j, 1)
Loop
rv1 = ""
For k = i - 1 To j - 1
rv1 = Mid(s, k, 1) + rv1
Next k
rv = rv + rv1
If j <= Len(s) Then rv = rv + Mid(s, j, 1)
i = j + 1
If i > Len(s) Then Exit Do
Loop
Text2.Text = rv
End Sub
Function zf(s As String) As Boolean
zf = False
If s >= "A" And s <= "Z" Or s >= "a" And s <= "z" Then
zf = True
End If
End Function
Function sz(s As String) As Boolean
sz = False
If Then
sz = True
End If
End Function
1)每班参赛男、女选手各5人
2)男女穿插站队,即:男女男女……队列
3)男生身高从低到高排列,女生身高从高到低排列
小明设计了一个程序实现如下功能:在文本框Text1中输入学生身高,奇数位置上存放男生的身高,偶数位置上存放女生身高,两个数之间用逗号隔开。单击“排序”按钮,使男生身高升序排序,结果输出在文本框Text2中,女生按身高降序排序结果存放在文本框Text3中。
程序运行界面如图所示
Private Sub Command1_Click()
Dim n As Integer
Dim a(1 To 10) As Integer
Dim i As Integer, j As Integer, tmp As Integer
Dim s1 As String, s2 As String, t As Integer
Dim s As String, c As String
s = Text1.Text
n = 1
For i = 1 To Len(s)
c = Mid(s, i, 1)
If c >= "0" And c <= "9" Then
a(n) = a(n) * 10 + Val(c)
Else
n = n + 1
End If
Next i
t = -1
For i = 1 To n - 2
For j =
If a(i) * t < a(j) * t Then
tmp = a(i): a(i) = a(j): a(j) = tmp
End If
Next j
Next i
For i = 1 To n
If i Mod 2 = 1 Then
s1 = s1 + Str(a(i))
Else
End If
Next i
Text2.Text = s1
Text3.Text = s2
End Sub