相关试卷
-
1、小明撰写电子邮件时，部分界面如图所示。下列说法中正确的是（ ）。
A、该邮件的收件对象有两个 B、该邮件的发件人邮箱是wang2011@163.com C、该邮件的正文内容是“春游照片” D、该邮件有2个附件 -
2、小明在163网易免费邮箱申请一个用户名为“XM1998”的电子邮箱，若通过电子邮件客服端收发邮件，需将发送邮件服务器设置为（ ）。（注：网易免费邮箱网址为mail.163.com）A、XM1998.smtp.163.com B、smtp.163.com C、XM1998.рop.163.com D、pop.163.com
-
3、下列主要用于电子邮件收发的管理的软件是（ ）。A、Microsoft FrontPage B、Outlook Express C、Windows Media Player D、WinRAR
-
4、如图所示为电子邮件发送界面，发送成功后，以下说法中正确的是（ ）
A、发件人邮箱为b@qq.com B、该邮件的接收对象有2个 C、该邮件添加了2个附件 D、a不知道c收到了这封邮件 -
5、在使用计算机解决问题时，选择合适的算法，是有效解决问题的关键。分析下面的问题，请选择最合适的算法：__________(请用英文字母填写)
搬砖问题：100块砖，100人搬，一个男人搬4块，一个女人搬3快，两个小儿拾1块，要求一次搬完，问男、女、小儿各多少人。
A、解析法 B、递归法 C、穷举法 D、排序法 -
6、如果一个4位数恰好等于它的各位数字的4次方和，则这个数被称为“玫瑰花”数。例如1634就是一个玫瑰花数：1634＝14＋64＋34＋44。如果要求出所有的玫瑰花数，下列算法合适的是( )A、查找法 B、解析法 C、穷举法 D、排序法
-
7、对n项（n<=100）数据序列的前x项求和，可设计如下算法：将数据序列存储在数组a中，并按一定规则转换成数组c，再借助数组c实现求和.
将数组a转换成数组c的方法描述如下：
①将数组a中的元素依次存储到数组c中，把当前数组c看作第一层；
②把第一层中的各元素进行如下处理：奇数项值不变，偶数项的值更新为自己与自己前一项的和，将更新后的数组元素看作第二层；
③把第二层中的各元素，按上述方法进行同样操作，更新后的数组元素看作第三层；
④以此类推，直到当前层中仅有一项为止。
例如x=11时，转换过程如图所示：
借助数组c，可快速计算出数组a中前x项的和.例如，数组a中前11项的和，可由表达式c(11)+c(10)+c(8)得到.表达式具体分析过程如下：
②表达式第一项为c(11)；
②将下标11转换成二进制数1011，计算该二进制数最右边的“1”所对应的权值，再用11减去此权值得到10，即表达式第二项为c(10)；
③按上述方法继续操作，直到计算结果等于0为止。
小龙依据上述方法设计了如下vb程序.请回答下列问题：
(1)、计算数组a中前22项和的表达式为(填写表达式，如c(11)+c(10)+c(8))。(2)、请在划线处填入合适的代码。Dim n As Integer
Dim a(1 To 1000) As Long, c(1 To 1000) As Long
Private Sub Form_Load()
'读取n个数据,并存储到数组a中（代码略）
End Sub
Private Sub Command1_Click()
Dim i As Integer, j As Integer, k As Integer, space As Integer
For i = 1 To n
c(i) = a(i)
Next i
k = 2 '当前层第一个偶数项的位置
space = 1 '当前层偶数项与前一项的间距
Do While k <= n
For i = k To n Step k
c(i) = c(i) + c(i - space)
Next i
k = k * 2
①
Loop
End Sub
Private Sub Command2_Click()
Dim x As Integer, sum As Long
x = Val(Text1.Text): sum = 0
Do While x <> 0
sum = sum + c(x)
②
Loop
Text2.Text = Str(sum)
End Sub
Function lowbit(x As Integer) As Integer
Dim temp As Integer
temp = x: lowbit = 1
Do While ③'
lowbit = lowbit * 2
temp = temp \ 2
Loop
End Function
-
8、某VB程序段如下：
Function f (n As Integer) As Long
If n = 1 Then
f = 5
Else
f= 2*f(n-1) – 3
End If
End Function
Private Sub Command1_click()
Dim n As Integer
n = Val (Text1.Text)
Text2. Text = Str(f(n))
End Sub.
该程序段运行后，在文本框Text1中输入5，单击命令按钮Command1后，文本框Text2中显示的是（ ）
A、18 B、35 C、63 D、123 -
9、有如下 VB 程序段：
Private Sub Command1_Click()
Dim i As Integer,s As string
s = ""
For i = 1 To 3 Step 2
s = str(f(i)) + s
Next i
Text1. Text = s
End Sub
Function f(n As Integer) As Integer
If n = 1 Then
f = 2
Else
f = f(n - 1) + n
End If
End Function
则执行该程序段后，s 的值为（ ）
A、247 B、27 C、72 D、742 -
10、有如下VB程序：
Function f(i As Integer)
If i=1 Then
f=2
Else
f=2 * 10^(i-1)+f(i-1)
End If
End Function
Private Sub Command1_Click()
Dim n As Integer,s As Integer,i As Integer
n=Val(Text1.Text)
s=0
For i=1 To n
s=s+f(i)
Next i
Labell.Caption=Str(s)
End Sub
若在Textl中输入5，则Labell中显示的内容为（ ）
A、22222 B、24690 C、20000 D、2468 -
11、有8阶楼梯，从第0阶开始往上走，每次可以走一步或者两步，自定义函数fg可以计算走完n阶楼梯有多少种走法，程序如下：
Function fg(n As Integer)As Integer
If n=1 fg=1
If n=2 fg=2
If n>=3 fg=fg(n-1)+fg(n-2)
End Function
请问走完这8阶楼梯的走法有（ ）
A、34种 B、35种 C、36种 D、37种 -
12、有如下程序段：
Function f(a As Integer, b As Integer) As Integer
Dim k As Integer
k = a Mod b
If k = 0 Then
f = b
Else
f = f(b, a mod b)
End If
End Function
Private Sub Command1_Click()
Dim i As Integer, j As Integer
i = Val(Text1.Text)
j = Val(Text2.Text)
Text3.Text = Str(i * j / f(i, j))
End Sub
该程序运行之后，在text1与text2分别输入25 与15，点击command1后在text3上显示的内容为（ ）
A、5 B、30 C、75 D、125 -
13、有如下VB程序其功能是实现正话反说（即将输入字符逆序输出）：
Function ZF(S As String) As String
Dim n As Integer
n = Len(S)
If ⑴ Then
ZF = ⑵
Else
ZF = Mid(S, n, 1) + ZF(Mid(S, 1, n - 1))
End If
End Function
Private Sub Command2_Click()
Dim x As String
x = Text1.Text
Text2.Text = ZF(x)
End Sub
该程序采用的算法和划线处应该填入的内容分别为（ ）
A、解析（1） n<=1（2） s B、解析（1） n>=1（2） Mid(s, n, 1) C、递归（1） n>=1（2） s D、递归（1） n<=1（2） Mid(s, n, 1) -
14、小明设计了如下一个查找数据的程序：在一组升序的数列当中，查找不小于k的最小数的位置，如果该值存在，则返回其第一次出现的位置，如果不存在，则返回0。程序运行界面如图所示，VB程序代码如下，请回答下列问题：
(1)、若在Text1中输入“8”，则Text2、Text3中输出的分别为。(2)、请在划线处填入合适的代码。Dim a(1 To 10)As Integer
Function find (L As Integer, R As Integer, key As Integer) As Integer
If L>R Then
find=0:Exit Function
ElseIf a(L)>=key Then
find=L: Exit Function
Else
If a(m)<key Then
find=find(M+1, R, key)
Else If Then
find=find(L, M-1, key)
Else
find=M
End If
End If
End Function
Private Sub Command1_Click( )
Dim k As Integer
Dim p As Integer
k=Val(Text1.Text)
Text2.Text=Str(a(p))
Text3.Text=Str(p)
If p=0 Then
Text2.Text="无"
End If
End Sub
Private Sub Form_Load( )
a(1)=3: a(2)=3: a(3)=3: a(4)=4: a(5)=7: a(6)=7
a(7)=10: a(8)=13: a(9)=19: a(10)=21
For i=1 To 10
List1.AddItem Str(a(i))
Next i
End Sub
-
15、执行以下代码，单击命令按钮Command1后，显示在窗体上第二行的内容是（ ）
Private Sub Command1_Click()
Dim n As Integer, m As Integer
n=2: m=0
Do While m<3
n=n+2
If fun(n) Then
Print n
m=m+1
End If
Loop
End Sub
Function fun(x As Integer) As Boolean
fun=False
If x/2=Int(x/2) Then
fun=fun(x/2)
Else
If x=1 Then fun=True
End If
End Function
A、4 B、6 C、8 D、16 -
16、某个进行素数判断的VB程序段如下：
Private Sub Command1_Click()
Dim x As Integer
x = Val(Text1.Text)
Label1. Caption = Str(x)+ prime(x, 2)
End Sub
Function prime(n As Integer, m As Integer) As String
If n = m Then
prime = "是素数。"
ElseIf n < 2 Or n Mod m = 0 Then
prime = "不是素数。"
Else
prime = prime(n, m +1)
End If
End Function
在文本框Text1中输入的值是123，并执行程序后，自定义函数prime被执行的次数是（ ）
A、1次 B、2次 C、122次 D、123次 -
17、李教师计算机上安装了①VisualBasic；②OCR；③Pascal；④Flash，哪些软件是计算机程序设计语言（ ）A、①② B、①③ C、③④ D、②④
-
18、机器语言由二进制（ ）代码指令构成，能被计算机直接识别。A、1，1 B、1，2 C、0，1 D、0，2
-
19、除python语言之处，还有很多其他程序设计语言。程序设计语言经历了从机器语言、汇编语言到高级语言的发展过程。其中python语言是属于（ ）。A、机器语言 B、高级语言 C、汇编语言 D、自然语言
-
20、python语言的特点（ ）。A、简单 B、免费、开源 C、可移植性 D、以上都是