选择题
- A、 3:1
- B、 1:3
- C、 1:1
- D、 1:6
Sum = 6
a(11)= 49
For i= 10 To 1 Step-1
a(i)= a(i+1)-1
If a(i) Mod 3 = 0 Then Sum = Sum + a(i)
Next i
Text1. Text = Str(Sum)
该程序段运行后,文本框Text1中显示的内容是( )
- A、 174
- B、 180
- C、 36
- D、 42
Key = Val(Text1.Text): i = 1: j = 10
Do While i <= j
m = (i + j + 1) \ 2
t(m) = 2
If Key <= a(m) Then
j = m - 1
Else
i = m + 1
End If
Loop
For i = 1 To 10
s = s + t(i)
Next i
数组元素t(1)至t(10)初值均为0,数组元素a(1)至a(10)的值依次为“4,7,9,11,16,19,22,24,28,29”,在文本框Text1中输入待查找数,执行该程序段后,下列选项中,s的值可能的是( )
- A、 4
- B、 8
- C、 10
- D、 12
s = "python": b = 0
For i = 1 To Len(s) - 1
a = Abs(Asc(Mid(s, i, 1)) - Asc(Mid(s, i + 1, 1)))
If a > b Then b = a
Next i
Label1.Caption = Str(b)
执行该程序段后,标签Label1上显示的内容是( )
- A、 1
- B、 7
- C、 9
- D、 12
- A、 Dim Tel(1, 100) As Long
- B、 Dim Tel(1, 100) As String
- C、 Dim Tel(1 To 100) As Long
- D、 Dim Tel(1 To 100) As String
Private Sub Command1_Click()
Dim d(1 To 10) As Integer, i As Integer, j As Integer
Dim m As Integer, key As Integer, s As String
key = Int(Rnd( ) * 50) *2+ 1
s = "": i = 1: j = 10
Do While i <= j
m = (i + j) \ 2
If key = d(m) Then Exit Do
If key < d(m) Then
j = m - 1: s = s + "L"
Else
i = m + 1: s = s + "R"
End If
Loop
Label1.Caption = s
End Sub
若数组d(1)至d(10)的值依次为"11,13,20,48,51,67,70,73,80,91",若执行后 Label1 上显示2个“L”和1个“R”或2个“R”和1个“L”,则key的可取值个数为( )
- A、 6
- B、 13
- C、 17
- D、 22
⑴3个字符为一组,将它们的ASCII值转换成二进制,连接后得到24位二进制数。
⑵将得到24位二进制数重新分组,6位一组,共四组,然后在每组的数字前面补上两个零,得到32位二进制数。
⑶最后将得到32位二进制数,从低位往高位的顺序,切割成8位一组,分别将每组转换成十进制数。
现有字符的内码如下:
如果按上述规则加密,则“178”(引号中内容)加密后的结果为( )
- A、 48 76 112 224
- B、 12 19 28 56
- C、 30 4C 70 E0
- D、 0C 13 1C 38
下列说法正确的是( )
- A、 单击“删除”按钮后,该音频的时长不变
- B、 该音频每个采样点的量化位数为16个字节
- C、 执行“更改音量”命令将音量降低后,音频的容量变小
- D、 该音频右声道的前5秒设置了淡入效果
①收集反馈信息,评价修改 ②确定主题,设计目标
③规划内容结构,收集加工素材 ④选择适当工具,实际制作
比较合理的顺序是( )
- A、 ③②①④
- B、 ②①④③
- C、 ①③②④
- D、 ②③④①
- A、 http://www.taobao.com
- B、 http://www.cctv.com
- C、 http://jyj.huangshan.gov.cn/
- D、 http://www.baidu.com
- A、 语言和文字是我们常用的信息表达技术
- B、 微信、QQ是当前流行的信息表达方式
- C、 HTTPS协议是由SSL+HTTP协议构建的,可以提高网络信息的安全性
- D、 POP3协议出错,则无法将电子邮件发送到收件人邮件服务器中
- A、 10101001
- B、 01011001
- C、 10100101
- D、 10010101
Function fact(n As Integer) As String
If n = 1 Then
fact = fact & 1
Else
fact = fact(n \ 2) & n Mod 2
End If
End Function
Private Sub Command1_Click()
Dim x As String, i As Integer, r As Integer, x = Text1.Text
For i = 1 To Len(Text1.Text)
If Mid(x, i, 1) = "." Then Exit
Next i
r = Val(Mid(x, i + 1, Len(Text1.Text) - i))
Text2.Text = fact(r)
End Sub
在文本框Text1 中输入 2019.70,则执行程序段,在文本框 Text2 中显示的内容是( )
- A、 1000110
- B、 70
- C、 350
- D、 100011
- A、 稻草人.jpg
- B、 稻草人.mp4
- C、 稻草人.ppt
- D、 稻草人.doc