相关试卷
-
1、将邮件从发件人电子邮箱服务器传送到收件人电子邮箱服务器时采用的协议名称是（ ）A、SMTP B、HTTP C、POP3 D、FTP
-
2、下列有关网页与电子邮件的说法，正确的是（ ）A、实现将电子邮件从发件人电子信箱发送到收件人电子信箱的是HTTP协议 B、POP3协议的功能是把电子邮件发送到收件人的电子邮件服务器中 C、超文本标记语言用于描述网页的内容，该语言的简称是HTML D、想要保存网页内容，可把网页内容添加到收藏夹中
-
3、将浏览器发出的请求发送至Web服务器时采用的协议名称是（ ）A、FTP B、SMTP C、POP3 D、HTTP
-
4、下列有关浏览器与网页的说法，正确的是（ ）A、浏览器与Web服务器之间的信息传输一般采用SMTP协议 B、网页文件是用HTTP语言编写的 C、动态网页指的是该网页中存在着动画 D、URL称为统一资源定位符，每个网页都有唯一的URL
-
5、小吕通过Internet Explorer浏览器登录QQ邮箱，然后将学习资料通过电子邮箱发送到同学小丁的电子邮箱，在这个过程中没有用到的协议是（ ）A、TCP/IP B、SMTP C、POP3 D、HTTP
-
6、关于信息与网络，下列说法正确的是（ ）A、搜索引擎中只能使用文字进行信息检索 B、信息必须依附于载体，不可以脱离它所反映的事物被存储 C、字符内码常用十六进制表示，故计算机内用十六进制表示信息 D、SMTP协议负责把邮件从发件人邮箱送到收件人的邮件服务器中
-
7、有如下VB程序段：
s = Text1．Text
ans = "": k =4
i = k - 1: j = k + 1: n = Len(s)
Do While k > 0
If Mid(s ,i,1) = Mid(s, j, 1) Then
ans = ans + Mid(s, i,1): k = k - 1
End If
i = (n + i - 2) Mod n + 1
j = j Mod n+1
Loop
Label1.Caption=ans
在文本框Text1中输入“banana”，执行程序后，标签Label1中显示的内容是（ ）
A、nana B、naba C、naan D、naaa -
8、下列VB程序功能为：先把数组中最小的元素放到中间位置，再把第二小的元素放到中间的后一个位置，然后把第三小的元素放到中间的前一个位置，以此类推。如数组元素a(1)到a(9)的值依次为72，61，3，95，39，38，64，65，98，程序运行后，数组元素a(1)到a(9)的值依次为98，72，64，39，3，38，61，65，95。
m = (1 + n) \ 2 ‘n为数组元素的个数，m为数组中间位置元素的下标
For i = 1 To n
If a(i) < a(m) Then t = a(i): a(i) = a(m): a(m) = t
Next i
p = m: q = m
For i = 1 To n - 2
If i Mod 2 = 1 Then
k = q + 1: q = q + 1
Else
k = p - 1: p = p - 1
End If
pos = k
For j = 1 To n
If
And a(j) < a(k) Then k = jNext j
If pos > k Then
t = a(pos): a(pos) = a(k): a(k) = t
End If
Next i
上述程序段方框处的代码为（ ）
A、j < p And j > q B、j > p Or j < q C、j < p Or j > q D、j > p And j < q -
9、在VB程序中，假定有以下循环结构，则正确的描述是（ ）。
Do While条件
循环体
Loop
A、如果“条件”是一个为0的常数，则一次循环体也不执行 B、如果“条件”是一个为0的常数，则执行无穷次循环体 C、如果“条件”是一个为0的常数，则至少执行一次循环体 D、不论“条件”是否为“真”，至少执行一次循环体 -
10、下面是李林同学编写的“求100以内的素数”的VB程序，但该程序有3处错误，请你帮他找出来并修改。
Private Sub Form_Click()
Dim As Integer, j As Integer, x As Integer
For i=1 To 100
x=0
For j=1 To i-1
If i Mod j=0 Then x=1
Next j
If x=0 Then Print x
Next i
End Sub
-
11、如下程序段执行后，i的值和y的值分别是（ ）
Dim y as Integer, i as integer
y=0
For i=1 To 10 Step 2
y=y+1
Next i
A、10、25 B、10、36 C、11、16 D、11、25 -
12、在VB语言中，循环语句For i=1 to 17 step 4的循环次数是（ ）。A、1 B、4 C、5 D、17
-
13、程序段如下：
c=“1234”
For i=1 To 4
Print_________
Next
如果要让程序运行后得到如下结果：
1 12 123 1234
则在下划线处应填入的内容为（ ）。
A、Right（c， i） B、Left（c， i） C、Mid（c， i， 1） D、Mid（c， i， i） -
14、小明用VB编写了一个程序如下，运行后的结果是（ ）
Dim S, i As Integer
S=0
For i=1 To 100
S=S+i
Next i
Print "S="&S
A、S=5050 B、5050 C、S=101 D、101 -
15、有 Visual basic程序段如下：
s=0
For i=1 To 3
s=s+i
Next i
该程序段运行后，变量s的值是（ ）
A、321 B、123 C、6 D、3 -
16、循环语句for i=1 to 20 step 3指定循环执行次数是（ ）。A、7 B、6 C、10 D、9
-
17、以下程序段运行时语句k=k+1执行次数为（ ）。
k=-20
do while (k=0)
k=k+1
loop
A、20 B、无数次 C、1 D、0 -
18、以下程序段运行后S的值是（ ）。
S=0
For i=1 To 14
x=2*i-1
If x Mod 3 =0 Then s=s+1
Next i
A、0 B、4 C、5 D、14 -
19、在VB程序中，以下程序段执行后，x的值为（ ）。
x=1
y=4
Do While y＞4
x=x * y
y=y+1
Loop
Print x
A、1 B、4 C、8 D、20 -
20、小明编写了一个图书录入系统的VB程序，功能如下：单击“读数据库”按钮Command1，从数据库中读取相应数据并显示在列表框List1中，在文本框Text1中实现数据录入这类图书的数量，单击“录入数据”按钮Command2实现数据录入，并按数量降序的方式显示在列表框List2中。程序运行界面如图所示。实现上述功能的VB程序如下，请回答下列问题：
(1)、分析程序，可知数据库的文件名为。(2)、请在划线处填入合适的代码。Dim sType(1 To 200)As string '存放图书类别
Dim sNumber(1 To 200)As Integer '存放图书数量
Dim n As Integer
Private Sub Command1_Click( )
Dim conn As New ADODB Connection
Dim rs As New ADODB Recordset
conn. Connection String="Provider=Microsoft.AC
A.OLEDB.12.0;DATA Source="& App. Path &"\ALibrary. accdb"
conn. Open
Set rs. Active Connection=conn
rs. Open"Select*From Book"
'本过程从数据库中读取图书数据,存储在相应的变量中，并在List1中显示
'代码略
End Sub
Private Sub Command2_Chck()
Dim i As Integer, j As Integer, t As Integer, y As Integer
Dim x As String, s As String
Dim flag As Boolean
List2. Clear
x=Text1. Text
y=Val(Text2. Text)
flag=True
For i=1 To n
If sType(i)=x Then
flag=False
Exit for
End If
Next i
If flag Then
sType(n)=x
sNumber(n)=y
End If
For i=1 To n-1
For j=i+1 To n
If Then
t=sNumber (j):s Number(j)=sNumber(i):sNtmaber (i)=t
s=sType(j):sType(j)=sType(i):sType(i)=s
End If
Next j
Next i
List2. AddItem("类别数量")
For i=1 To n
List2. AddItem sType(i)&" "&Str(sNumber(i))
Next i
End sub