疫苗名称 | 接种日期 | 接种部位 | 批号 | 生产企业 | 接种单位 |
新冠肺炎疫苗 | 2021.01.13 | 左手 | 202012001C | 北京生物 | 中心医院 |
新冠肺炎疫苗 | 2021.02.03 | 右手 | 202012002C | 北京生物 | 中心医院 |
… | … | … | … | … | … |
下列关于“接种记录”数据表的描述,正确的是( )
amin = a(1): amax = a(1)
i = 2: j = 9
Do While i <= j
If a(i) > a(j) Then
Else
End If
i = i + 1: j = j - 1
Loop
Text1.Text = Str(amin) + "," + Str(amax)
上述程序段中方框处可选语句为:
①If a(j) > amax Then amax = a(j)
②If a(j) < amin Then amin = a(j)
③If a(i) < amin Then amin = a(i)
④If a(i) > amax Then amax = a(i)
则方框处语句依次可为( )
a(1) = 6: a(2) = 9: a(3) = 3: a(4) = 7: a(5) = 8: a(6) = 1
s = 2 * Int(Rnd * 3) + 1
For i = 1 To 6 - s
For j = 6 To i + 1 Step -1
If a(j) < a(j - 1) Then
t = a(j): a(j) = a(j - 1): a(j - 1) = t
End If
Next j
Next i
程序运行后,a(1)到a(6)各元素的值不可能是( )
请回答下列问题:
图 b
请回答下列问题:
Dim ty(1 To 100) As Integer Dim name(1 To 100) As String Dim cj(1 To 100) As Integer Dim n As Integer
Private Sub Form_Load()
'本过程读取类型、名称和票数的数据分别存储在数组 ty,name和cj中,
'并在List1中显示,代码略
End Sub
Private Sub Command1_Click( )
Dim i As Integer, j As Integer, m As Integer,t1 As Integer, t2 As String
i = 1
Do While i <= n – 1 '先将类型1的节目进行排序
For j = n To i + 1 Step -1
If ty(j) = 1 Then
IfThen
t1 = ty(j): ty(j) = ty(j - 1): ty(j - 1) = t1
t1 = cj(j): cj(j) = cj(j - 1): cj(j - 1) = t1
t2 = name(j): name(j) = name(j - 1): name(j - 1) = t2
End If
End If
Next j
IfThen m = m + 1
i = i + 1
Loop
For i = 1 To 2
List2.AddItem Str(ty(i)) + name(i) + " " + Str(cj(i))
Next i
For i =
For j = n To i + 1 Step -1
IfThen
t1 = ty(j): ty(j) = ty(j - 1): ty(j - 1) = t1
t1 = cj(j): cj(j) = cj(j - 1): cj(j - 1) = t1
t2 = name(j): name(j) = name(j - 1): name(j - 1) = t2
End If
Next j
List2.AddItem Str(ty(j)) + name(j) + " " + Str(cj(j))
Next i
End Sub
1)对待加密的字符进行判断,如果是英文字符的,则将该字符后移2位(如:字符“A”转换成“C”,字符“Z”转换成“B”,字符“a”转换成“c”,字符“z”转换成“b”),其他字符保持不变;
2)求出每个字符的ASCII码,然后用7位二进制来表示,比如“4”的ASCII码为十进制52,转换为7位二进制为“0110100”;
3)从左至右依次记为第1,2,3……7位,分别把第3,4,5位取反。即0变1,1变0,至此“0110100”变为“0101000”,将此二进制转换为ASCII码为40,对应的字符为左括号“(”,即“4”经过加密后得到加密字符为左括号“(”。
在文本框Text1中输入ASCII字符,单击“加密”按钮Command1,则在文本框Text2中显示经过加密的字符。程序界面如图所示,请完成下列问题。
Private Sub Command1_Click()
Dim s As String, ch As String s = Text1.Text
For i = 1 To Len(s)
ch = Mid(s, i, 1)
If ch >= "A" And ch <= "Z" Then
ElseIf ch >= "a" And ch <= "z" Then '让小写字母后移2位,代码略
End If
Text2.Text = Text2.Text +
Next i
End Sub
Function jm(x As String) As String
Dim a(1 To 7) As Integer, j As Integer, n As Integer, asc1 As Integer
asc1 = Asc(x)
n = 0
For j = 7 To 1 Step -1
If j = 3 Or j = 4 Or j = 5 Then a(j) = 1 - asc1 Mod 2
Else
a(j) = asc1 Mod 2
End If
n =
asc1 = asc1 \ 2
Next j
jm = Chr(n)
End Function