相关试卷
-
1、数列1，4，7，10，13，…的递推公式为（ ）A、f（1）=1：f（n）=n+3 B、f（1）=1：f（n）=n*2-1 C、f（1）=1：f（n）=n*2+1 D、f（1）=1：f（n）=f（n-1）+3
-
2、将数组逆序输出：数组a中有n个元素，将元素顺序颠倒，即a（1）和a（n）交换位置，a（2）和a（n-1）交换位置，依次下去，然后在List1中显示数组中的元素值。程序调用了一个自定义过程来实现目的。
代码如下，但加框处代码有误，请改正。
Dim a（1 To 10）As Integer
Private Sub Form_Load( )
For i=1 To10
a（i）=2*i-1
Next i
End Sub
Private Sub Command1_Click（）
‘①For i=1 To 10
List1.Addltem Str（a（i））
Next i
End Sub
Sub swap（b（i） As Integer）
n=UBound（b） ‘函数返回数组b的上界
For
‘②t=b（i）：b（i）=b（n）：b（n）=t
n=n-1
Next i
End Sub
以上程序段运行时，为了实现上述功能，加框处代码应改正为：①；②。
-
3、完全数又称完美数，是指所有的真因子（除了自身以外的约数）之和恰好等于它本身的数。例如：6的真因子有1，2，3，相加等于其本身（1+2+3=6），所以6是一个完全数。现编写一个VB程序，求完全数。其功能如下：输入一个正整数n，点击“查找”按钮，在列表框List1中输入小于n的所有完全数。界面如图所示，请将程序补充完整。
该程序的代码如下：
Private Sub Command1_Click（）
Dim n，r，j，i As Integer
n=Val（Text1.Text）
For i=1 Ton-1
If ① Then
List1.AddItem Str（i）
End If
Next i
End Sub
Function Div（n As Integer）As Integer
Dim sum As Integer
For i=1 Ton-1
If ② Then
sum=sum+i
End If
Next i
Div=sum
End Function
以上程序段运行时，为了实现上述功能，画线处应填入的代码分别为：①；②。
-
4、某VB应用程序的代码如下：
Function res（x As Integer，y As Integer，z As Integer）As Integer
Dim temp As Integer
If x>y Then temp=y Else temp=x
If temp>z Then temp=z
res=temp
End Function
Private Sub Command1_Click（）
Dim a As Integer，b As Integer，c As Integer
a=5：b=3：c=7
Text1.Text=Str（res（a，b，c））
End Sub
程序运行时，单击命令按钮Command1后，在文本框Text1中显示的内容是（ ）
A、0 B、3 C、5 D、7 -
5、有如下VB自定义函数，则下列参数值中，使函数返回值为1的是（ ）
Function Leap（y As Integer）As Integer
If y Mod 100=0 Then
If y Mod 400=0 Then Leap=1 Else Leap=0
Else
If y Mod 4=0 Then Leap=1 Else Leap=0
End If
End Function
A、1900 B、1951 C、2006 D、2020 -
6、在VB中，设已定义函数过程f，它有三个整型参数。设a，b，c为整型变量，则下列能调用该函数的正确语句是（ ）A、f B、f（a，b+c） C、f（a，b+c，c-a） D、f a，b+c，c-a
-
7、有如下VB自定义函数，该函数返回值的数据类型是（ ）
Function f（x As Integer，y As Single）As Boolean
f=x<y
End Function
A、逻辑型 B、整数型 C、单精度实数型 D、双精度实数型 -
8、合数指自然数中除了能被1和本身整除外，还能被其他数（0除外）整除的数。与之相对的是质数，而1既不属于质数也不属于合数，最小的合数是4。编写合数“寻找质因子”的程序，程序功能：在文本框Text1中输入一个整型的合数，单击“计算”按钮Command1后，在文本框Text2中显示该整数可分解出的所有质因子。程序运行界面如图所示。
(1)、观察程序界面，不具有Caption属性的对象的控件类名是。(2)、实现上述功能的VB程序如下，请在画线处填入合适的代码。Private Sub Command1_Click( )
Dim n, k As Integer
Dims As String
①
k=2
Do While n>1
If n Mod k=0 Then
②
s=s+Str（k）
Else
k=k+1
End If
Loop
Text2.Text=s
End Sub
画线处应填入的代码为：①；②。
(3)、运行上述程序，若在文本框Text1中输入1024，单击“计算”按钮后，文本框Text2中显示的内容为。 -
9、小明编写了一个VB程序，可实现如下功能：在100至999之间的自然数中，找出能被3整除，且至少有一位数字为5的所有整数，并统计个数。程序运行界面如图a所示。
(1)、在设计程序界面时，应使用图b所示的“控件工具箱”中的（填写相应编号）添加“List1”列表框。(2)、实现上述功能的VB程序如下，请在画线处填入合适的代码。Private Sub Command1_Click（）
Dims As Integer，n As Integer
Dim a As Integer，b As Integer，c As Integer
n=0
s=102
List1.Clear
Do Whiles<=999
a= ①
b=s\10 Mod 10
c=s Mod 10
If ② Then
List1.Addltem Str（s）
③
End If
s=s+3
Loop
Label1.Caption="共有"+Str（n）+"个"
End Sub
画线处应填入的代码为：①；②；③。
-
10、小明编写了一个进制转换程序。程序运行时在文本框Text1中输入十进制数，单击“计算”按钮Command1后，结果在文本框Label1中显示。程序运行界面如图a所示。
(1)、要使命令按钮上显示的“计算”改为“转换”，可在其属性窗口（图b）中将属性的属性值修改为“转换”。(2)、实现上述功能的VB程序如下，请在画线处填入合适的代码。Private Sub Command1_Click( )
Dim ch As String
Dim n As Integer, x As Integer
Dim ans As String
ch="0123456789ABCDEF"
n= ①
Do While n>0
x=n Mod 16
②
ans= ③
Loop
Label2.Caption="16进制："+ans
End Sub
画线处应填入的代码为：①；②；③。
-
11、下列VB程序的功能是：程序运行时，在文本框Text1中输入正整数n，单击“计算”按钮Command1后，计算n中各位数之和，并在文本框Text2中输出结果，例如：2012的各位数之和是2+0+1+2=5，则在Text2中输出5。程序运行界面如图所示。请在画线处填入合适的代码。
Private Sub Command1_Click（）
Dim i As Integer，sum As Integer
Dim r As Integer
Dim n As Long
n=Val（Text1.Text）：sum=0
Do While n>0
①
sum=sum+r
②
③
Text2.Text=Str（sum）
End Sub
画线处应填入的代码为：①；②；③。
-
12、铁路托运行李是根据行李的质量收费的，标准如下：若不超过50千克，按每千克0.35元收费；若超过50千克，超过部分则按每千克0.5元收费，但行李质量不得超过150千克。
设计一个VB程序，通过在文本框Text1输入托运行李的质量，计算并输出托运行李的费用，行李质量超过150千克，则显示“行李超重！”。结果在文本框Label1中显示。程序运行界面如图a所示。
(1)、在设计程序界面时，应使用图b所示的“控件工具箱”中的（填写相应编号）添加“Label1”对象。(2)、解决铁路托运行李费用计算问题采用的算法是（填字母：A .解析算法/B .枚举算法）。(3)、实现上述功能的VB程序如下，请在画线处填入合适的代码。Private Sub Command1_Click( )
Dim x As Double，y As Double
①
If x>150 Then
Label1l.Caption="行李超重！"
Else
If ② Then
y=0.35*50+0.5*（x-50）
Else
y=0.35*x
③
Label1.Caption="行李收费"+ ④ 十"元"
End If
End Sub
画线处应填入的代码为：①；②；③；④。
-
13、编写VB程序，实现如下功能：在文本框Text1和Text2中分别输入体重（单位：kg）和身高（单位：m），单击命令按钮Command1，计算BMI（体重指数）（体重指数等于体重（kg）除以身高（m）的平方）。
如果BMI<18.5，则在标签Label5中显示“体重过轻！”；如果18.5≤BMI≤25，则在标签Label5中显示“体重正常！”；如果BMI>25，则在标签Label5中显示“体重过重！”。运行效果如图所示。
(1)、若要删除标签Label5中显示的内容“Label5”，可在其属性窗口中将属性的属性值删除。(2)、为实现上述功能，请在画线处填入合适的代码。Private Sub Command1_Click( )
Dim h As Single, m As Single, bmi As Single
Dim x As String
m=Val（Text 1.Text）
h=Val（Text2.Text）
①
If bmi<18.5Then
x="体重过轻！"
Else
If ② Then x="体重正常！"Else x="体重过重！"
End If
Label5.Caption=x
End Sub
画线处应填入的代码为：①；②。
(3)、若某同学的身高为160cm，体重为110斤，则Label5显示的结果为。 -
14、小明编写了一个程序，运行时在文本框Text1中输入一个字符串，单击“去除数字”按钮Command1后，去除字符串中的数字字符，并在标签Lable2上输出结果。如图所示。
(1)、为实现上述功能，请在画线处填入合适的代码。Private Sub Command1_Click（）
Dim zfc As String '用于存储输入的字符串
Dim ans As String '用于存储处理后的字符串
Dim i As Integer，ch As String
Dim n As Intege r'用于存储输入的字符串的长度
①
n=Len（zfc）
i=1
Do While i<=n
②
If ch>="0"And ch<="9"Then
i=i+1
Else
③
i=i+1
End If
Loop
Label2.Caption="结果为："+ ④
End Sub
画线处应填入的代码为：①；②；③；④。
-
15、下列程序段执行后，x的值为（ ）
x=0
For i=1 To 3
For j=1 To i
For k=j To 3
x=x+1
Next k
Next j
Next i
A、16 B、14 C、9 D、8 -
16、已知s的初值为0，下列程序段执行后，s的值为（ ）
a=1：b=2
For i=1 To 6
c=a+b
a=b:b=c
k=2
Do While k<c
If c Mod k=0 Then Exit Do
k=k+1
Loop
If k=c Then s=s+1
Next i
A、6 B、5 C、3 D、1 -
17、已知s的初值为0，下列程序段执行后，s的值为（ ）
For i=3 To 10
f=1：k=2
Do While k<i And f=1
If i Mod k=0 Then f=0
k=k+1
Loop
s=s+f
Next i
A、7 B、5 C、4 D、3 -
18、下列程序段执行后，k的值为（ ）
k=0
For i=0 To 6 Step 2
For j=1 To 8
If j>5 Then k=k+2：Exit For
k=k+1
Next j
Next i
A、30 B、28 C、25 D、11 -
19、下列程序段执行后，n的值为（ ）
For i=1 To 5
k=i：s=0
Do While s<10
n=n+1
s=s+k
k=k+1
Loop
Next i
A、30 B、25 C、16 D、10 -
20、已知s和i的初值为0，下列程序段执行后，s的值为（ ）
Do While i<10
k=1
i=i+1
Do While k<10
s=s+1
k=k+i
Loop
Loop
A、30 B、28 C、10 D、5