考试首页 | 考试用书 | 培训课程 | 模拟考场 | 考试论坛  
全国  |             |          |          |          |          |         
  当前位置:计算机等级 > 二级考试 > Visual Basic > VB模拟试题 > 文章内容
  

计算机二级VB考试题及答案(6)

中华IT学院   【 】  [ 2017年6月6日 ]

计算机二级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

  A.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 33

  For y = 0 To 50

  If 3 * x + 2 * y + 0.5 * (100 - x - y) = 100 Then

  Picture2.Print 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

  Picture1.Print 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

  Print "最大值="; Max

  End Sub

  在此程序中,其中【】处应该填写的是(C)(单)

  A.Max = 100

  B.Max =200

  C.Max = x

  D.Max = 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

  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

  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)(单)

  A.Sum = i

  B.Sum = Sum + i

  C.Sum = 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

首页 1 2 尾页
分享到:
本文纠错】【告诉好友】【打印此文】【返回顶部
将考试网添加到收藏夹 | 每次上网自动访问考试网 | 复制本页地址,传给QQ/MSN上的好友 | 申请链接 | 意见留言 TOP
关于本站  网站声明  广告服务  联系方式  站内导航  考试论坛
Copyright © 2006-2017 中华考试网(Examw.com) All Rights Reserved  营业执照