2014计算机二级VB考试试题及答案6-1 |
来源:2exam.com 2014-7-30 18:24:26 |
1.以下程序是求最大公约数和最小公倍数的程序,在【】处填写合适的关系运算符。Private Sub Form_Click( )Dim m1, n1, m, n, r As Integern1 = InputBox("输入自然数n", "输入数")m1 = InputBox("输入自然数m", "输入数")n = n1m = m1If m <n Thent = m: m = n: n = tEnd Ifr = m Mod nDo While r 【<>】 0m = nn = rr = m Mod nLoopPrint "最大公约数=", nPrint "最小公倍数= ", m1 * n1 / nEnd Sub2.下面是求100以内素数的程序。Private Sub Command1_Click( )Dim i As Integer, m As Integer, tag As BooleanFor m = 2 To 100tag = TrueFor i = 2 To m - 1If m Mod 【i】 = 0 Then tag = FalseNext iIf tag Then Print mNext mEnd Sub3.下面是求100以内素数的程序,下面说法正确的是(A)(单)Private Sub Command1_Click( )Dim i As Integer, m As Integer, tag As BooleanFor m = 2 To 100tag = TrueFor i = 2 To m - 1If m Mod i = 0 Then tag = FalseNext iIf tag=true Then Print mNext mEnd SubA.tag为true时,表示m是素数B.tag为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 33For y = 0 To 50If 3 * x + 2 * y + 0.5 * (100 - x - y) = 100 ThenPicture2.Print x, y, 【100-x-y,10-y-x】End IfNext yNext xEnd Sub5.百元买百鸡问题: 假定小鸡每只5角,公鸡每只2元,母鸡每只3元。现在有100元钱要求买100只鸡,以下程序列出了所有可能的购鸡方案。Private Sub Command1_Click( )Dim x%, y%, z%For x = 0 To 33For y = 0 To 50For z = 0 To 100If 3 * x + 2 * y + 0.5 * z = 100 And 【x+y+z=100】 ThenPicture1.Print x, y, zEnd IfNext zNext yNext xEnd Sub6.随机产生10个100~200之间的数,求它们的最大值程序如下:Private Sub Command1_Click( )Max = 100For i = 1 To 10x = Int(Rnd * 101 + 100)Print x;If x > Max Then 【】Next iPrintPrint "最大值="; MaxEnd Sub在此程序中,其中【】处应该填写的是(C)(单)A.Max = 100 B.Max =200 C.Max = x D.Max = 07.随机产生10个100~200之间的数,求它们的最大值程序如下:Private Sub Command1_Click( )Max = 100For i = 1 To 10x = int【RND*101+100或100+RND*101或RND()*101+100或100+RND()*101】Print x;If x > Max Then Max=xNext iPrintPrint "最大值="; MaxEnd Sub8.随机产生10个100~200之间的数,求它们的最大值程序如下:Private Sub Command1_Click( )Max = 100For I = 1 To 10x =Int(Rnd * 101 + 100)Print x;If 【】 Then Max=xNext IPrintPrint "最大值="; MaxEnd Sub在【】处应该填写的是:(A)(单)A.x > Max B.x <Max C.x = Max D.以上都不正确9.以下是求1~100之间5或7的倍数的和,如下程序段:Sum = 0For i = 1 To 100If i Mod 5 = 0 Or i Mod 7 = 0 Then【】End IfNext iPrint Sum其中【】处书写正确的是(B)(单)A.Sum = i B.Sum = Sum + iC.Sum = Sum + 5+7 D.以上都不正确10.以下是求1~100的5或7的倍数的和程序段:Sum = 0For i = 1 To 100If i Mod 5 = 0 Or i 【mod】 7=0 ThenSum = Sum + iEnd IfNext iPrint Sum
|
网站版权与免责声明
①由于各方面情况的不断调整与变化,本网所提供的相关信息请以权威部门公布的正式信息为准.
②本网转载的文/图等稿件出于非商业性目的,如转载稿涉及版权及个人隐私等问题,请在两周内邮件fjksw@163.com联系. |
|
|
|