2023年Visual Basic期末考试程序填空模拟试题及答案

2023年Visual Basic期末考试程序填空模拟试题答案

第1题
＇程序功４分隔十进制数表示IP址转换32位二进制数组成
＇IP址 例十进制表示IP址2021191911中十进制数应8位
＇二进制数合起构成32位二进制IP址11001010011101111011111100000001
＇程Tiqu提取十进制IP址中分隔十进制数
＇程Convert十进制数转换相应8位二进制数程序界面参见图
Option Explicit
Private Sub Command1_Click()
Dim str1 As String str2 As String
Dim a(4) As Integer i As Integer
str1 Text1Text
Call Tiqu(str1 a)
For i 1 To 4
If a(i) < 0 Or a(i) > 255 Then
MsgBox(IP址错误)
Exit Sub
Else
＇**********SPACE**********

End If
Next i
Text2Text str2
End Sub
Private Sub Tiqu(st As String a() As Integer)
Dim n As Integer k As Integer s As String d As String * 1 i As Integer
n Len(st) k 0 s
For i 1 To n
＇**********SPACE**********

If d Then
k k + 1
a(k) Val(s)
＇**********SPACE**********

Else
s s & d
End If
Next i
a(4) s
End Sub
Private Function convert(ByVal n As Integer) As String
Dim b As Integer i As Integer s As String
Do While n > 0
b n Mod 2
n n ＼ 2
＇**********SPACE**********

Loop
For i 1 To 8 Len(s)
s 0 & s
Next i
＇**********SPACE**********

End Function
答案：
(答案1)
str2str2 & convert(a(i))
(答案2)
dMid(sti1)
(答案3)
s
(答案4)
sCStr(b) & s

sb & s
(答案5)
converts
第2题
＇面程序功：统计存放数组A中N数少
＇具体做法：变量Left指处理数（第2元素开始）
＇Right指数组元素A(Left)排前面某数组元素值相
＇数组元素A(Right)值换A(Left)值时变量Right值减1
＇否变量Left值加1处理数组元素重复程直Left>Right止
＇Right值数数程序界面参见图示
Option Explicit
Option Base 1
Private Sub Command1_Click()
Dim A() As Integer N As Integer I As Integer
Dim OP As Integer
N InputBox(请输入数数 10)
ReDim A(N)
Randomize
For I 1 To N
A(I) Int(Rnd * 10) + 1
Text1 Text1 & A(I) &
Next I
Call statistic(A OP)
Text2 & OP & 数
For I 1 To OP
Text2 Text2 & A(I) &
Next I
End Sub
Private Sub statistic(A() As Integer Right As Integer)
Dim Left As Integer K As Integer I As Integer
＇**********SPACE**********
Right
Left 2
Do While Left < Right
＇**********SPACE**********
K
For I K To 1 Step 1
If A(Left) A(I) Then Exit For
Next I
＇**********SPACE**********
If Then
Left Left + 1
Else
A(Left) A(Right)
＇**********SPACE**********

End If
Loop
End Sub
答案：
(答案1)
UBound(A)
(答案2)
Left1
(答案3)
I0
(答案4)
RightRight1
第3题
＇面程序功机生成100诸素数组成数程序界面图示
Option Explicit
Private Sub Command1_Click()
Dim p() As Integeri As Integern As Integer
Dim st As Stringk As Integer
Randomize
k InputBox(元素数20)
ReDim p(k)
Do
n Int(Rnd*90)+10
＇**********SPACE**********
If Then
i i+1
p(i) n
End If
＇**********SPACE**********
Loop Until
For i 1 To UBound(p)
st st & Str(p(i))
If i Mod 10 0 Then st st & vbCrLf
Next i
Text1 st
End Sub
Private Function prime(n As Integer) As Boolean
Dim i As Integer
Prime True
For i 2 To Sqr(n)
If n Mod i 0 Then
＇**********SPACE**********

Exit For
End If
Next i
End Function
答案：
(答案1)
prime(n)

prime(n)true
(答案2)
ik
(答案3)
primeFalse
第4题
＇公式求f(x) 值通项绝值10^7时停止计算x值键盘输入
＇程序界面公式参考图片示：
Option Explicit
Private Sub Command1_Click()
Dim x As Single fx As Single
Dim a As Single a1 As Single a2 As Single
Dim t As Single
a1 1 a2 2
x Text1
＇**********SPACE**********
If Then
MsgBox (x必须1～1间)
Exit Sub
End If
fx a1 * x a2 * x * x
t (1) * x * x
Do
a 1 (a1 + a2)
t (1) * t * x
＇**********SPACE**********
fx
a1 a2
＇**********SPACE**********

Loop Until Abs(a * t) < 00000001
Text2 fx
End Sub
答案：
(答案1)
Abs(x) > 1
(答案2)
fx+a*t
(答案3)
a2a
第5题
＇面程序功：首先生成已排序整数数组输入数
＇单击插入钮会动数插原数组适位置保持数组序性
＇程序界面参见图
Option Explicit
Dim a( ) As Integer
Private Sub Form_Activate() ＇生成序数组
Dim i As Integer
ReDim a(10)
For i1 To 10
a(i)(i1)*10+1
Text1Text1 & Str(a(i))
Next i
Text2SetFocus
End Sub
Private Sub Command1_Click()
Dim n As Integeri As Integer
nText2
For i1 To UBound(a)
＇**********SPACE**********
If Then Exit For ＇确定插入位置
Next i
＇**********SPACE**********

For i1 To UBound(a)
Text3Text3 & Str(a(i))
Next i
End Sub
Private Sub inst(P() As Integern As Integerk As Integer) ＇数组元素移位实现插入
Dim i As Integer
＇**********SPACE**********

For iUBound(P)1 To k Step 1
＇**********SPACE**********

Next i
P(k)n
End Sub
答案：
(答案1)
n(答案2)
Call inst(ani)

inst ani
(答案3)
ReDim Preserve p(UBound(p)+1)
(答案4)
p(i+1)p(i)
第6题
＇面程序功：输入2位16进制数位转换4位二进制数
＇组合成8位二进制数程序界面参见图
Option Explicit
Private Sub Command1_Click()
Dim h As String h1 As String * 1h2 As String * 1
hText1
h1Left(h1) h2Right(h1)
Text2h2b(h1) & h2b(h2)
End Sub
Private Function h2b(p As String) As String
Dim st As String i As Integer
st″0123456789ABCDEF″
For i1 To Len(st)
＇**********SPACE**********
If Then Exit For
Next i
ii1
Do
＇**********SPACE**********
h2b
ii＼2
Loop Until i<0
＇**********SPACE**********
h2b
End Function
答案：
(答案1)
pMid(sti1)
(答案2)
i Mod 2 & h2b
(答案3)
Right(0000 & h2b4)

String(4Len(h2b)0) & h2b
第7题
＇公式(公式图示)求Sin(x)值级数通项绝值eps10^7时停止
＇计算x值键盘输入
＇ 请完善程序
Option Explicit
Private Sub Form_Click()
Dim x As Doublet As Doublen As Integersum As Double
Const eps00000001
X Val(InputBox(请输入x：))
＇**********SPACE**********

sum t
n 1
＇**********SPACE**********
Do Until
t t
＇**********SPACE**********
t
sum sum+t
n n+1
Loop
Print Sin(x)Format(sum0000)
End Sub
答案：
(答案1)
tx
(答案2)
Abs(t)(答案3)
t*x*x(2*n*(2*n+1))

t*x^2(2*n)(2*n+1)
第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
stText1
Do
pInStr(st )
If p<>0 Then
＇**********SPACE**********

ReDim Preserve a(k)
a(k)Val(Left(stp1))
stRight(stLen(st)p)
Else
＇**********SPACE**********

a(k+1)Val(st)
End If
＇**********SPACE**********
Loop Until
Call del(a)
For i 1 To UBound(a)
Text2Text2 & Str(a(i))
Next i
Text2LTrim(Text2)
End Sub
Private Sub del(a() As Integer)
Dim i As Integer j As Integer k As Integer
Do
ii+1
ji+1
Do While j＇**********SPACE**********
If Then
For kj 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
答案：
(答案1)
kk+1
(答案2)
ReDim Preserve a(k+1)
(答案3)
p0
(答案4)
a(i)a(j)
(答案5)
jj+1
第9题
＇面程序功定整数 N 表示成干质数子相形式（分解质数）
＇程序界面参见图
Option Explicit
Option Base 1
Private Sub Command1_Click()
Dim n As Integera() As Integer
Dim st As Stringi As Integer
n Text1　　　　　　　　　　
Call fenjie(na)
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 Integeri 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
答案：
(答案1)
ByVal n As Integera() As Integer
(答案2)
nn＼k
(答案3)
kk+1
(答案4)
n1
第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 ABCCBAACBBDCCDA ＇标准答案
＇**********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
List2AddItem StudId & & Scor
Next I
End Sub
答案：
(答案1)
0 To List1ListCount1
(答案2)
List1List(I)
(答案3)
Scor0
(答案4)
Mid(AnwJ1)Mid(ExactJ1)
第11题
＇面程序功：输入n位整数（n≤10）求出n数字组成n位
＇整数整数
Option Explicit
0ption Base 1
Private Sub Command1_Click()
Dim n As Longa() As String
nText1
Call change(na)
Call sort(a)
For i1 To UBound(a)
largea(i) & large
＇**********SPACE**********
small
Next i
Text2large
For i1 To Len(small)
＇**********SPACE**********
If Then Exit For
Next i
If i<>1 Then
small Mid(small i 1) & Left(smalli1) & Right(smallLen(small)i)
End If
Text3small
End Sub
Private Sub sort(a() As Integer) ＇泡法排序
Dim i As Integerj As Integert As Integer
For i1 To UBound(a)1
For j1 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
kk+1
ReDim Preserve a(k)
a(k)n Mod 10
＇**********SPACE**********
n
Loop Until n0
End Sub
答案：
(答案1)
small & a(i)
(答案2)
Mid(smalli1)<>0
(答案3)
a(j)>a(j+1)
(答案4)
n As Longa() As Integer
(答案5)
n＼10
第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
nText1
s1
For i 2 To n
＇**********SPACE**********

For j 1 To i
stst & CStr(i)
next j
＇**********SPACE**********
k
ss + k
Next i
Text2s
End Sub
答案：
(答案1)
st
(答案2)
(1)^(i1)Val(st)
第13题
＇ 计算机中字节(8位)存储字符ASCII码
＇ 中低7位二进制数应字符编码字节高位般保持0
＇ 数传输时作奇偶校验位传输时ASCII代码转换成传输码方法
＇ 7位ASCII码偶数1高位1奇数1高位0
＇ 例字母AASCII码十进制表示65二进制表示01000001
＇ A传输码1100 0001程序功ASCII代码转换成种传输码
＇ 程序参考界面图示
Option Explicit
Private Sub Command1_Click()
Dim i As Integer s As String
Dim str As String ch As String
str Text1Text
For i 1 To Len(str)
＇**********SPACE**********

Call convert(ch s)
List1AddItem ch & > & s
Next i
End Sub
Private Sub convert(ch As String s As String)
Dim m As Integer k As Integer n As Integer i As Integer
＇**********SPACE**********
s
n Asc(ch)
Do While n > 0
＇**********SPACE**********

s m & s
If m 1 Then
k k + 1
End If
n n ＼ 2
Loop
For i 1 To 7 Len(s) ＇字符二进制代码补足7位
s 0 & s
Next i
If k Mod 2 0 Then
＇**********SPACE**********

Else
s 0 & s
End If
End Sub
答案：
(答案1)
ch Mid(str i 1)
(答案2)

(答案3)
m n Mod 2
(答案4)
s 1 & s
第14题
＇面程序功：找出仅数字1234组成4位素数求素数4
＇数字组成算法提示：函数Validate验证4位数否4数字组成
＇函数中A数组元素分应数字0～9某数字出现四位数中次
＇均该数字应数组元素值置1程序界面参见图
Option Explicit
Private Sub Command1_Click()
Dim i As IntegerFlg As Boolean
For i1234 To 4321
＇**********SPACE**********

Call Prime(iFlg)
If Flg Then
If Validate(i) Then
Text1Text1 & i & vbCrLf
． End If
End If
Next i
End Sub

Private Sub Prime(n As Integerf As Boolean)
Dim k As Integer
For k2 To Sqr(n)
＇**********SPACE**********

Next k
fTrue
End Sub
Private Function Validate(n As Integer) As Boolean
Dim A(0 To 9)As Integers As Stringi As Integer
Dim s1 As String*1
＇**********SPACE**********

For i1 To Len(s)
s1Mid(si1)
＇**********SPACE**********

Next i
If A(1)+A(2)+A(3)+A(4)4 Then
＇**********SPACE**********

End If
End Function
答案：
(答案1)
FlgFalse
(答案2)
If n Mod k0 Then Exit Sub
(答案3)
sCStr(n)

sn
(答案4)
A(Val(s1))1

A(s1)1
(答案5)
ValidateTrue
第15题
＇程序功利穷级数求cos(x)似值已知公式图示
＇第n项绝值等10^7时计算终止程序界面参见图
Option Explicit
Private Sub Command1_Click()
Dim X As Single n As Integer sum As Single
Dim a As Single
X Text1
＇**********SPACE**********

a 1
n 1
Do
a a
＇**********SPACE**********
a
sum sum + a
n n + 1
＇**********SPACE**********
Loop Until
Text2 sum
End Sub
答案：
(答案1)
sum1
(答案2)
a a *x *x (2 * n * (2 * n 1))

a*x^2(2*n*(2*n1))
(答案3)
Abs(a)<00000001

Abs(a)<1E7
第16题
＇定义方阵种范数该方阵列元素绝值中值程序功
＇求4×4方阵范数该方阵数机生成20～20间整数
＇程序界面参见图
Option Explicit
Option Base 1
Private Sub Command1_Click()
Dim a(44) As Integer
Dim i As Integerj As Integer
For i1 T0 4
For j1 To 4
＇**********SPACE**********
a(ij)
Picture1Print Right( & Str(a(ij))4)
Next j
Picture1Print
Next i
＇**********SPACE**********
Text1Text
End Sub
Private Function fan(a()As Integer) As Integer
Dim b(4) As Integermax As Integer
Dim i As Integerj As Integer
For i1 To 4
For j1 To 4
＇**********SPACE**********
b(j)
Next j
Next i
maxb(1)
For i2 To 4
If max Next i
fanmax
End Function
答案：
(答案1)
Int(Rnd*41)20
(答案2)
fan(a)
(答案3)
b(j)+Abs(a(ij))

《香当网》用户分享的内容，不代表《香当网》观点或立场，请自行判断内容的真实性和可靠性！
该内容是文档的文本内容，更好的格式请下载文档