End If a(i,j)=k Next k For i=1 To n For j=1 To n
Pic1.Print Right(\ \ Next j Pic1.Print Next i End Sub
3.运行下面的程序,单击Cmd1,窗体上显示的第一行是___(7)___,第二行是___(8)___ ,最后一行是___(9)___。 Option Explicit
Private Sub Cmd1_Click() Dim A As Integer A=3
Call Sub1(A) Print A End Sub
Private Sub Sub1(X As Integer) X=X*2+1 If X<10 Then Call Sub1(X) End If X=X*2+1 Print X End Sub
4.执行下面程序,单击按钮CmdRun,窗体上显示的第一行结果是___(10)___,UBound(a)的值是___(11)___,其中a(1)的值为___(12)___。 Option Explicit
Private Sub CmdRun_Click() Dim St As String,i As Integer
Dim a() As String,j As Integer,k As Integer St=\ Call Sub1(St) Print St
For i=1 To Len(St)
For j=i+1 To Len(St)
If Mid(St,i,1)=Mid(St,j,1) Then Exit For Next j
If j>Len(St) Then k=k+1
ReDim Preserve a(k) a(k)=Mid(St,i,1) Print \ End If Next i
End Sub
Private Sub Sub1(S As String) Dim i As Integer For i=1 To Len(S)\\2
Mid(S,i,1)=Mid(S,Len(S)-i+1,1) Next i End Sub
5.执行下面程序,在文本框Text1中输入\23 2 3 5 17 54#\后,单击命令按钮Cmdl,数组元素A(1)的值是___(13)___,A(3)的值是___(14)___,A(5)的值是___(15)___。 Option Explicit
Private Sub Cmd1_Click()
Dim A() As Integer,K As Integer Dim L As Integer,S As String S=Text1 Do
K=K+1
ReDim Preserve A(K) L=InStr(S,\ If L<>0 Then
A(K)=Val(Left(S,L-1)) S=Right(S,Len(S)-L) Else
A(K)=Val(S) End If
Loop Until L=0 Call Exchang(A) For K=1 To 7
Text2=Text2 & A(K) & \ Next K End Sub
Private Sub Exchang(A() As Integer) Dim i As Integer,Tem As Integer Dim Point1 As Integer Point1=1
For i=1 To UBound(A) If A(i) Mod 3 =0Then Tem=A(i)
A(i)=A(Point1) A(Point1)=Tem Point1=Point1+1 End If Next i End Sub
6.本程序的功能是,利用下列公式求函数cos(x)的近似值,规定通项的绝对值≤10^-6时结束计算。请完善本程序。
x2x4x6cos(x)?1???????ak
2!4!6!k?0?1,k?0?通用公式可知： a?? x2a?(?1),k?1?k?1(2k?1)(2k)? Option Explicit
Private Sub Command1_Ciick()
Dim S As Single,T As Single,K As Integer,x As Single Const eps As Single=0.000001 x=Val(Text1) ___(16)___ S=1 T=1 Do
T= ___(17)___ S=S+T K=K+1
Loop While ___(18)___ Text2=S EndSub
7.本程序的功能是找出一组连续的整数,它们的和数等于给定的数。通常给定一个数,可能会找出多组符合要求的连续整数。查找的方法是穷举法。请完善本程序。 Option Explicit
Private Sub CmdRun_Click()
Dim m As Integer,sum As Integer,st As String Dim i As Integer,j As Integer,k As Integer m=Text1
For i=1 To m-1 ___(19)___ For j=i To m
sum=___(20)___ If sum=m Then
st=\ 'st赋以空值 For k=i To j
st= ___(21)___ Next k
List1.AddItem Left(st,Len(st)-1) End If Next j Next i End Sub
8.本程序的功能是将汉字的区位码转换成以十六进制数形式表示的机内码。汉字的区位码由4位数字组成,前两位数字表示汉字在编码表中的区号,后两位数字表示位号,区号和位号均为十进制数。例如汉字\中\的区位码是5448,即\中\的区号是54,位号是48。将区号与位号分别加上160,再转换成十六进制数形式,就是\中\
的机内码。请完善本程序。 Option Explicit
Private Sub CmdChange_Click() Dim qw As String,jn As String qw=Text1
Text2=qw2jn(qw) End Sub
Private Function qw2jn(st As String) As String Dim n1 As Integer,n2 As Integer n1=Val(Left(st,2))+160 n2=___(22)___
qw2jn=d2h(n1) & d2h(n2) End Function
Private Function d2h(d As Integer) As String Dim p As Integer,q As String*1 Do
p= ___(23)___ If p>9 Then q=Chr(55+p) Else
q=CStr(p) EndIf
___(24)___ d=d\\16
Loop Until ___(25)___ End Function
9.本程序的功能是查找一组数据中的众数。所谓众数,就是在这组数据中出现次数最多的数.注意:一组数据中的众数可能有多个.(即有多个数据的出现次数相同)。事件过程Cmdfind主要功能是生成n个随机整数存入数组,再调用Freq过程,求出数组中每个不相同的数据出现的次数:再求出其中最大的出现次数值,最后,将求出相应的众数输出。请完善本程序。 Option Explicit Option Base 1
Private Sub Cmdfind_Click()
Dim a() As Integer,n As Integer,i As Integer
Dim Shu() As Integer,Cs() As Integer,Max As Integer n=InputBox(\输入数据个数:\查找众数\ ReDim a(n) Randomize For i=1 To n
a(i)=Int(Rnd*5)+5
Text1=Text1 & Str(a(i))
If i Mod 10=0 Then Text1=Text1 & vbCrLf Next i
Call Freq(a,Shu,Cs) Max=Cs(1)
For i=2 To UBound(Cs)
If Cs(i)>Max Then ___(26)___ End If Next i
For i=1 To UBound(Cs)
If ___(27)___ Then Text2=Text2 & Shu(i) & \ Next i End Sub
Private Sub Freq(a() As Integer,Shu() As Integer,Cs() As Integer) 'shu数组用于存放A数组中不相同数据的值 'Cs数组用于存放对应不相同数据出现的次数
Dim i As Integer,j As Integer,js As Integer,n As Integer For i=1 To UBound(a) js=1
For j=1 To n '搜索数组a中不相同的数据 If Shu(j)=a(i) Then Exit For Next j
If ___(28)___ Then n=n+1
ReDim ___(29)___ Shu(n)=a(i)
For j=i+1 To UBound(a)
If a(j)=a(i) Then ___(30)___ Next j Cs(n)=js
List1.AddItem a(i) & \ End If Next i End Sub
2011年春
第一部分 计算机基础知识
1．下列有关通信技术的叙述中，错误的是___(1)___ 。
A．无论是模拟通信还是数字通信，目前都是通过载波技术实现远距离的信息传输 B．多路复用技术可以降低信息传输的成本，常用的多路复用技术有TDM和FDM C．卫星通信属于微波通信，它是微波接力通信技术和空间技术相结合的产物 D．目前3G移动通信有多种技术标准，我国三大电信运营商均采用同一标准
2．使用存储器存储二进位信息时，存储容量是一项很重要的性能指标。存储容量的单位有多种，下面不是存储容量单位的是___(2)___ 。 A．TB B．XB C．GB D．MB
3．设有补码表示的两个单字节带符号整数a＝01001110和b＝01001111，则a-b的结果用补码表示为___(3)___ 。 A．11111111 B．10011101 C．00111111 D．10111111 4．下列有关PC机主板上的BIOS和CMOS的叙述中，错误的是___(4)___ 。