'**********SPACE********** h2b=【?】 End Function
第7题
'用以下公式(公式如下图所示)求Sin(x)的值.当级数通项的绝对值小与eps=10^-7时停止
x3x5x2n?1nsin(x)?x??????(?1)???,|x|??,n?0,1,2,??
3!5!(2n?1)!'计算,x的值由键盘输入. ' 请完善如下程序 Option Explicit
Private Sub Form_Click()
Dim x As Double,t As Double,n As Integer,sum As Double Const eps=0.0000001
X =Val(InputBox(\请输入x：\'**********SPACE********** 【?】 sum =t n =1
'**********SPACE********** Do Until 【?】 t =-t
'**********SPACE********** t =【?】 sum =sum+t n =n+1 Loop
Print \End Sub
第8题
'下面程序的功能是：在文本框1中输入若干以空格分隔的整数（末尾无空格）， '程序自动将输入的数据分解并存储到一个一维数组，
'再把数组中所有重复的元素删除（只保留一个），并输出到文本框2。 Option Explicit Option Base 1
Private Sub Command1_Click()
Dim a() As Integer, i As Integer, st As String Dim k As Integer, p As Integer st=Text1 Do
p=InStr(st,\ If p<>0 Then '**********SPACE********** 【?】
ReDim Preserve a(k) a(k)=Val(Left(st,p-1))
st=Right(st,Len(st)-p) Else
'**********SPACE********** 【?】
a(k+1)=Val(st) End If
'**********SPACE********** Loop Until【?】 Call del(a)
For i= 1 To UBound(a) Text2=Text2 & Str(a(i)) Next i
Text2=LTrim(Text2) End Sub
Private Sub del(a() As Integer)
Dim i As Integer, j As Integer, k As Integer Do i=i+1 j=i+1
Do While j<=Ubound(a) '**********SPACE********** If 【?】Then
For k=j To UBound(a)-1 a(k)=a(k+1) Next k
ReDim Preserve a(UBound(a)-1) Else
'**********SPACE********** 【?】 End If Loop
Loop Until i>UBound(a) End Sub
第9题
'下面程序的功能是将给定整数 N 表示成若干个质数因子相乘的形式（分解质因数）. '程序界面参见下图。 Option Explicit Option Base 1
Private Sub Command1_Click() Dim n As Integer,a() As Integer Dim st As String,i As Integer n =Text1 Call fenjie(n,a) st =CStr(n) & \ For i =1 To UBound(a)-1 St =st & a(i) & \
Next i
Text2 =st & a(i) End Sub
'**********SPACE********** Private Sub fenjie(【?】) Dim k As Integer,i As Integer k =2 Do
If n Mod k =0 Then i =i +1
ReDim Preserve a(i) a(i) =k
'**********SPACE********** 【?】 Else
'**********SPACE********** 【?】 End If
'**********SPACE********** Loop Until【?】 End Sub
第10题
'学生的某次课程测验中，选择题的答案已记录在列表框List1中，
'其数据行格式是：学号为6个字符长度、2个空格、选择题的答案为15个字符长度。 '程序根据标准答案进行批改，每答对一题给1分，并将得分存放到列表框List2中。 '标准答案存放在变量Exact中。程序界面参考图片所示。 Option Explicit
Private Sub Command1_Click()
Dim Anw As String, StudId As String Dim Scor As Integer, Exact As String Dim I As Integer, J As Integer Exact = \ '标准答案
'**********SPACE********** For I = 【?】
'**********SPACE********** Anw = 【?】
StudId = Left(Anw, 6)
Anw = Right(Anw, Len(Anw) - 8) '**********SPACE********** 【?】
For J = 1 To Len(Anw) '**********SPACE********** If 【?】Then Scor = Scor + 1 End If Next J
List2.AddItem StudId & \ Next I End Sub
第11题
'下面程序的功能是：输入一个n位的整数（n≤10）,求出由这n个数字组成的n位的 '最小整数和最大整数。 Option Explicit 0ption Base 1
Private Sub Command1_Click() Dim n As Long,a() As String n=Text1
Call change(n,a) Call sort(a)
For i=1 To UBound(a) large=a(i) & large '**********SPACE********** small=【?】 Next i Text2=large
For i=1 To Len(small) '**********SPACE********** If 【?】 Then Exit For Next i If i<>1 Then
small =Mid(small, i ,1) & Left(small,i-1) & Right(small,Len(small)-i) End If Text3=small End Sub
Private Sub sort(a() As Integer) '冒泡法排序 Dim i As Integer,j As Integer,t As Integer For i=1 To UBound(a)-1 For j=1 To UBound(a)-i '*********SPACE********** If 【?】 Then t =a(j) a(j)=a(j+1) a(j+1)=t End If Next j Next i End Sub
'**********SPACE********** Private Sub change(【?】) Dim k As Integer Do k=k+1
ReDim Preserve a(k)
a(k)=n Mod 10 '**********SPACE********** n=【?】 Loop Until n=0 End Sub
第12题
'下面程序的功能是计算如图所示的值。请完善如下程序：
Option Explicit
Private Sub Command1_Click()
Dim n As Integer, st As String, i As Integer Dim k As Single, s As Single, j As Integer n=Text1 s=1
For i =2 To n
'**********SPACE********** 【?】
For j =1 To i st=st & CStr(i) next j
'**********SPACE********** k=【?】 s=s + k Next i Text2=s End Sub
第13题
' 在计算机中用一个字节(8位)来存储一个字符的ASCII码,
' 其中低7位二进制数对应字符的编码,每个字节的最高位一般保持为\， ' 在数据传输时可用作奇偶校验位。传输时ASCII代码转换成传输码的方法是， ' 若7位ASCII码有偶数个1，则最高位为1。有奇数个1，则最高位为0。 ' 例如字母\的ASCII码十进制表示为65，二进制表示为01000001。
' \的传输码则为\。本程序的功能就是把ASCII代码转换成这种传输码。 ' 程序参考界面如下图所示。 Option Explicit
Private Sub Command1_Click() Dim i As Integer, s As String Dim str As String, ch As String str = Text1.Text For i = 1 To Len(str) '**********SPACE********** 【?】
Call convert(ch, s)
List1.AddItem ch & \
VB期末考试题库1
