全国计算机二级VB考试练习题及答案
来源:才华咖 本文已影响1.77W人
来源:才华咖 本文已影响1.77W人
想要顺利通过全国计算机二级的文章" target="_blank" >计算机二级VB考试,那么就要多做习题,下面小编为大家带来了全国计算机二级VB考试练习题及答案,欢迎大家阅读!
全国计算机二级VB考试练习题及答案1.以下程序是求最大公约数和最小公倍数的程序,在【】处填写合适的关系运算符。
Private Sub Form_Click( )
Dim m1, n1, m, n, r As Integer
n1 = InputBox("输入自然数n", "输入数")
m1 = InputBox("输入自然数m", "输入数")
n = n1
m = m1
If m
t = m: m = n: n = t
End If
r = m Mod n
Do While r 【<>】 0
m = n
n = r
r = m Mod n
Loop
Print "最大公约数=", n
Print "最小公倍数= ", m1 * n1 / n
End Sub
2.下面是求100以内素数的程序。
Private Sub Command1_Click( )
Dim i As Integer, m As Integer, tag As Boolean
For m = 2 To 100
tag = True
For i = 2 To m - 1
If m Mod 【i】 = 0 Then tag = False
Next i
If tag Then Print m
Next m
End Sub
3.下面是求100以内素数的程序,下面说法正确的是(A)(单)
Private Sub Command1_Click( )
Dim i As Integer, m As Integer, tag As Boolean
For m = 2 To 100
tag = True
For i = 2 To m - 1
If m Mod i = 0 Then tag = False
Next i
If tag=true Then Print m
Next m
End Sub
为true时,表示m是素数
为false时,表示m是素数
C.语句m Mod i = 0,说明m是素数
D.以上说法都不正确
4.百元买百鸡问题: 假定小鸡每只5角,公鸡每只2元,母鸡每只3元。现在有100元钱要求买100只鸡,以下程序列出了所有可能的购鸡方案。
Private Sub Command2_Click( )
Dim x%, y%, z%
For x = 0 To 33
For y = 0 To 50
If 3 * x + 2 * y + 0.5 * (100 - x - y) = 100 Then
t x, y, 【100-x-y,10-y-x】
End If
Next y
Next x
End Sub
5.百元买百鸡问题: 假定小鸡每只5角,公鸡每只2元,母鸡每只3元。现在有100元钱要求买100只鸡,以下程序列出了所有可能的'购鸡方案。
Private Sub Command1_Click( )
Dim x%, y%, z%
For x = 0 To 33
For y = 0 To 50
For z = 0 To 100
If 3 * x + 2 * y + 0.5 * z = 100 And 【x+y+z=100】 Then
t x, y, z
End If
Next z
Next y
Next x
End Sub
6.随机产生10个100~200之间的数,求它们的最大值程序如下:
Private Sub Command1_Click( )
Max = 100
For i = 1 To 10
x = Int(Rnd * 101 + 100)
Print x;
If x > Max Then 【】
Next i
Print "最大值="; Max
End Sub
在此程序中,其中【】处应该填写的是(C)(单)
= 100
=200
= x
= 0
7.随机产生10个100~200之间的数,求它们的最大值程序如下:
Private Sub Command1_Click( )
Max = 100
For i = 1 To 10
x = int【RND*101+100或100+RND*101或RND()*101+100或100+RND()*101】
Print x;
If x > Max Then Max=x
Next i
Print "最大值="; Max
End Sub
8.随机产生10个100~200之间的数,求它们的最大值程序如下:
Private Sub Command1_Click( )
Max = 100
For I = 1 To 10
x =Int(Rnd * 101 + 100)
Print x;
If 【】 Then Max=x
Next I
Print "最大值="; Max
End Sub
在【】处应该填写的是:(A)(单)
A.x > Max
B.x
C.x = Max
D.以上都不正确
9.以下是求1~100之间5或7的倍数的和,如下程序段:
Sum = 0
For i = 1 To 100
If i Mod 5 = 0 Or i Mod 7 = 0 Then
【】
End If
Next i
Print Sum
其中【】处书写正确的是(B)(单)
= i
= Sum + i
= Sum + 5+7
D.以上都不正确
10.以下是求1~100的5或7的倍数的和程序段:
Sum = 0
For i = 1 To 100
If i Mod 5 = 0 Or i 【mod】 7=0 Then
Sum = Sum + i
End If
Next i
Print Sum
2017计算机二级考试VB强化练习题及答案
计算机二级考试VB强化练习题及答案
2016计算机二级考试试题VB练习题及答案
全国计算机二级VB模拟试题及答案
2017计算机二级VB考试考前练习题及答案
全国计算机二级考试《VB》操作试题及答案
2016年全国计算机二级vb考试题库及答案
2017年3月计算机二级考试VB备考练习题及答案
计算机二级VB语言程序设计考试练习题及答案
计算机二级VB考试选择题练习及答案
2016计算机二级考试VB练习题及答案
2016年计算机二级考试《VB》练习题及答案
2016计算机二级考试VB语言练习题及答案
全国计算机二级考试VB巩固试题及答案
2017计算机二级考试VB练习题及答案
计算机二级考试VB上机模拟题及答案
党课考试练习题及答案
2016计算机二级考试vb复习试题及答案
2017年计算机二级VB考试训练题及答案
计算机二级考试《VB》基础习题及答案
2015全国计算机二级JAVA考试练习题及答案(四)
2017年计算机二级VB考试习题及答案
计算机二级VB图形操作练习题及答案
2016计算机二级《VB》备考练习题及答案
9月全国计算机二级vb题库及答案
2017年计算机二级考试VB习题及答案
计算机二级考试《VB》巩固训练试题及答案
计算机二级VB考试练习题及答案
2016年计算机二级《VB》备考练习题及答案
2015全国计算机二级JAVA考试练习题及答案(五)
计算机二级VB考试题及答案
2015全国计算机二级JAVA考试练习题及答案(六)
2016年计算机二级《VB》备考练习题及答案
计算机二级考试真题以及答案
2015全国计算机二级JAVA考试练习题及答案(三)
2015全国计算机二级JAVA考试练习题及答案(一)
2017全国计算机二级VB考试操作题与答案
全国计算机二级《VB》测试题及答案2016
计算机二级《VB》备考练习题及答案2016
2017年计算机二级考试VB专项训练题及答案