相关试卷
-
1、当软盘感染病毒，用各种清除病毒软件都不能清除病毒时，则应该对此软盘（ ）A、丢弃不用 B、删除所有文件 C、进行格式化 D、删除Command.com文件
-
2、计算机病毒可以存在于______中。（ ）A、电子邮件 B、应用程序 C、Word文档 D、以上都是
-
3、计算机染上病毒后可能出现的现象（ ）A、系统出现异常启动或经常“死机” B、程序或数据突然丢失 C、磁盘空间变小 D、以上都是
-
4、为了减少计算机病毒对计算机系统的破坏，应（ ）A、尽可能不运行来历不明的软件 B、尽可能用软盘启动计算机 C、把用户程序和数据写到系统盘上 D、不使用没有写保护的软盘
-
5、计算机病毒是指能够侵入计算机系统并在计算机系统中潜伏、传播、破坏系统正常工作的一种具有繁殖能力的（ ）A、指令 B、程序 C、设备 D、文件
-
6、计算机病毒（ ）A、都具有破坏性 B、有些病毒无破坏性 C、都破坏EXE文件 D、不破坏数据，只破坏文件
-
7、将n个数分成偶数和奇数两部分，其中偶数在前奇数在后，要求分别对偶数和奇数进行升序排序。程序运行时，在文本框Text1中输入n，单击处理按钮Command1，分别在Text2、Text3中显示结果。程序运行效果图如图所示。
实现上述功能的VB代码如下，但加框处代码有错，请改正。
Dim a(1 To 100) As Integer
Sub sort(left As Integer,right As Integer)
Dim i As Integer,j As Integer,t As Integer
For i=1 To right-left
For j=
'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
End Sub
Private Sub Command1_Click()
Dim p As Integer,q As Integer
Dim i As Integer,j As Integer,n As Integer,x As Integer
Randomize
n=Val(Text1.Text):Text2.Text=″ ″:Text3.Text=″ ″
p=0
'For i=1 To n
x=Int(Rnd*100)
Text2.Text=Text2.Text+Str(x)
If x Mod 2=0 Then
p=p+1
a(p)=x
Else
q=q-1
a(q)=x
End If
Next i
Call sort(1,p)
Call sort(p+1,n)
For i=1 To n
Text3.Text=Text3.Text+Str(a(i))
Next i
End Sub
-
8、有一组正整数，要求对其中的数据进行排列，排列后奇数在前，偶数在后。其中最后一个数据排到奇数与偶数交接处;自前到后的第一个偶数排到最后一个位置，空出的位置排列自后向前的第一个奇数，依此类推。排序示例如下。
排序前
71
85
64
55
42
62
33
17
34
30
排序后
71
85
17
55
33
30
62
42
34
64
实现上述功能的VB程序如下，但加框处代码有错，请改正。
Const n=10
Dim a(1 To n) As Integer
Private Sub Command1_Click()
Dim i As Integer,j As Integer
Dim temp As Integer,flag As Boolean
'读取一组正整数，存储在数组a中，代码略
i=1:j=n
temp=a(j):flag=True
Do While i<j
If flag Then
If a(i) Mod 2=0 Then
a(j)=a(i)
j=j-1
flag=Not flag
Else
'End If
Else
If a(j) Mod 2=1 Then
a(i)=a(j)
flag=Not flag
Else
j=j-1
End If
End If
Loop
' '依次输出排序后的数据，代码略。
End Sub
-
9、在窗体上显示杨辉三角形，如下图所示:如果显示6行，则第1行数字前有5个空格，第2行前有4个空格，第3行数字前有3个空格……
解决该问题的VB程序段如下，在划线处填入正确的语句以实现功能。
Dim a(0 To 10) As Integer
Dim b(0 To 10) As Integer
n = 10
For i = 0 To 10
a(i) = 0
Next
a(1) = 1
b(1) = 1
For i = 1 To n
s = ″ ″
For j = 1 To
s = s + ″ ″'在s中加入一个空格
Next
For j = 1 To i
b(j) =
s = s + Str(b(j))
Next
Print s
For j = 1 To i
a(j) = b(j)
Next
Next
-
10、删除重复字符的VB程序，程序功能如下:在文本框Text1中输入字符串，单击“删除重复字符”按钮，在文本框Text2中输出处理后的结果。程序运行效果如图所示，实现上述功能的VB代码如下，但加框处代码有错，请改正。
Private Sub Command1_Click()
x = Text1.Text
n = Len(x)
s=s+Mid(x,1,1)
For i = 2 To n
flag =0
For j = 1 To Len(s)
If
Then 'flag = 1: Exit For
End If
Next j
If
Then 's = s + Mid(x, i, 1)
End If
Next i
Text2.Text = s
End Sub
-
11、某对分查找算法的VB程序段如下:
k = Val(Text1.Text)
i = 1: j = 6: Label1.Caption = ″ ″: f = False
Do While i <= j And Not f
m = (i + j) \ 2
If a(m) = k Then f = True
If a(m) > a(i) Then
If a(i) <= k And k < a(m) Then j = m - 1 Else i = i + 1
Else
If a(m) < k And k <= a(j) Then i = i + 1 Else j = j - 1
End If
Label1.Caption = Label1.Caption + Str(a(m))
Loop
数组元素a(1)到a(6)的值依次为“58，66，72，24，35，40”，在文本框Text1中输入的值为35，执行该程序段，标签Label1中显示的值是（ ）
A、72 35 B、24 35 C、72 24 35 D、72 24 24 35 -
12、有如下VB程序段:
Const n=10
key=Val(Text1.Text)
L=1:R=n
If check(key) Then 'check(x)为自定义函数，判断x为否偶数，若是返回True，否则为False
Do While Not check(a(L))
L=L+1
Loop
Else
Do While check(a(R))
R=R-1
Loop
End If
Do While L<=R
m=(L+R)\2
If key=a(m) Then Exit Do
If key>a(m) Then
L=m+1
Else
R=m-1
End If
Loop
若数组元素a(1)到a(10)依次为“1,3,5,7,9,2,4,6,8,10”，执行以上程序段，依次对该组数据进行查找，平均查找次数(平均查找次数=总查找次数/数据总个数)为（ ）
A、22/10 B、82/10 C、55/10 D、29/20 -
13、有如下VB程序段:
s=″72186345945″:c=0
For i=1 To 6
a(i)=Mid(s,i,i)
Next i
For i=1 To 4 Step 2
k=i
For j=i+2 To 6 Step 2
If a(j)<a(k) Then k=j
Next j
If k<>i Then
t=a(i):a(i)=a(k):a(k)=t:c=c+1
End If
Next i
Text1.Text=Str(c)
该程序段运行后,Text1中显示的内容是（ ）
A、1 B、2 C、3 D、4 -
14、有如下程序段:
s=text1.text
For i=1 to len(s)
c=mid(s,i,1)
If c>=″a″ and c<=″z″ then
n=asc(c)-asc(“a”)+1
zm(n)=zm(n)+1
End if
Next i
已知数组zm中各元素初值均为0,若文本框text1中输入的内容是“One world, one dream”,执行该程序段后,zm(15)的值是（ ）
A、1 B、2 C、3 D、4 -
15、下列程序执行后文本框Text1显示的内容是（ ）
s=″I like IT very much″
flag=False:m=0
For i=1 To Len(s)
ch=Mid(s,i,1)
If ch>=″a″ And ch<=″z″ Then
If Not flag Then
m=m+1
flag=True
End If
Else
flag=False
End If
Next i
Text1.Text=Str(m)
A、2 B、3 C、5 D、20 -
16、下列程序执行后文本框Text1显示的内容是（ ）
x=″abcdcba″:ans=0
For i=1 To Len(x)\2
If Mid(x,i,1)=Mid(x,Len(x)-i+1,1) Then
ans=ans+1
end if
Next i
Text1.Text=Str(ans)
A、1 B、2 C、3 D、4 -
17、下列VB表达式的值为2018的是（ ）A、len(″2017″)+1 B、val(″2017″+″1″) C、abs(int(-2017.6)) D、rnd*2018
-
18、当A=1，B=2，flag=true时，表达式NOT A<B or flag的值是（ ）A、0 B、1 C、True D、False
-
19、在VB中，某工程的代码窗口如图所示:
程序运行时,能触发“Label2.Caption=″*″”代码执行的事件是（ ）
A、单击Command1对象 B、单击Command2对象 C、单击Command3对象 D、单击Command4对象 -
20、在VB6中,要使程序启动时自动运行语句form1.caption=″hello″,该语句应被放在下列哪个事件处理过程中（ ）A、form1_load B、form_load C、form_click D、command1_click