计算机等级 > 二级考试 > Visual Basic > VB模拟试题 > 文章内容

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

2017-9-4编辑:daibenhua

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

  1.以下程序段运行的结果为(B)(单)

  Private Sub Form_Click( )

  MyDate = #7/21/1997#

  Print Format(MyDate, "m/d/yy")

  Print Format(MyDate,"yyyy年m月dd日")

  End Sub

  A.7/21/97 1997年7月21日

  B.7-21-97 1997年7月21日

  C.97/7/21 1997年7月21日

  D.7/21/97 97年7月21日

  2.以下程序段运行的结果为(B)(单)

  Private Sub Form_Click( )

  MyTime = #9:21:30 PM#

  MyDate = #7/21/1997#

  Print Tab(2); Format(MyDate, "mmmm-yy")

  Print Tab(2); Format(MyTime, "hh:mm:ss A/P")

  End Sub

  A.July-97 9:21:30 P

  B.July-97 09:21:30 P

  C.07-97 9:21:30 P

  D.July-97 9:21:30

  3.以下程序段运行的结果为(C)(单)

  Private Sub Form_Click( )

  MyDate = #7/21/1997#

  Print Format(MyDate, "dddd,mmmm,dd,yyyy")

  End Sub

  A.21,07,1997

  B.21,07,21,1997

  C.Monday,July,21,1997

  D.Monday,07,21,1997

  4.在窗体中建立一个文本框text1和一个命令按钮command1,编写下面程序:

  Private Sub Text1_LostFocus( )

  If Not IsNumeric(Text1) Then

  MsgBox "帐号有非数字字符错误"

  Text1.Text = ""

  Text1.SetFocus

  else

  MsgBox "帐号正确"

  End If

  End Sub

  当在text1文本框中输入字符"abc"之后,单击命令按钮,结果为(B)(单)

  A.显示对话框,提示信息为"帐号正确"

  B.显示对话框,提示信息为"帐号有非数字字符错误"

  C.程序出错

  D.没有任何提示

  5.在窗体中建立一个文本框text1和一个命令按钮command1,编写下面程序:

  Private Sub Text1_LostFocus( )

  If Not IsNumeric(Text1) Then

  MsgBox "帐号有非数字字符错误"

  Text1.Text = ""

  Text1.SetFocus

  else

  MsgBox "帐号正确"

  End If

  End Sub

  当在text1文本框中输入数字123456之后,单击命令按钮,结果为(A)(单)

  A.显示对话框,提示信息为"帐号正确"

  B.显示对话框,提示信息为"帐号有非数字字符错误"

  C.程序出错 D.没有任何提示

  6.在窗体中建立一个文本框text1和一个命令按钮command1,编写下面程序:

  Private Sub Command1_Click( )

  Dim I As Integer

  If Text1.Text <> "Gong" Then

  I = MsgBox("密码错误", 5 + vbExclamation, "输入密码")

  If I <> 4 Then

  End

  Else

  Text1.Text = ""

  Text1.SetFocus

  End If

  Else

  MsgBox "密码帐号正确!"

  End If

  End Sub

  若在text1中输入字符串"Gong",则程序运行结果为(A)(单)

  A.显示对话框,提示"密码帐号正确!"

  B.显示对话框,提示"密码错误"

  C.程序出错

  D.没有任何提示

  7.在窗体中建立一个文本框text1和一个命令按钮command1,编写下面程序:

  Private Sub Command1_Click( )

  Dim I As Integer

  If Text1.Text <> "Gong" Then

  I = MsgBox("密码错误", 5 + vbExclamation, "输入密码")

  If I <>4 Then

  End

  Else

  Text1.Text = ""

  Text1.SetFocus

  End If

  Else

  MsgBox "密码帐号正确!"

  End If

  End Sub

  若在text1中输入字符串"gong",则程序运行结果为(B)(单)

  A.显示对话框,提示"密码帐号正确!"

  B.显示对话框,提示"密码错误"

  C.程序出错

  D.没有任何提示

  8.在窗体中建立一个文本框text1和一个命令按钮command1,编写下面程序:

  Private Sub Command1_Click( )

  Dim I As Integer

  If Text1.Text <> "Gong" Then

  I = MsgBox("密码错误", VbRetryCancle + vbExclamation, "输入密码")

  If I <> 4 Then

  End

  Else

  Text1.Text = ""

  Text1.SetFocus

  End If

  Else

  MsgBox "密码帐号正确!"

  End If

  End Sub

  若在text1中输入字符串"123",显示"密码错误"对话框,关于此对话框描述正确的是(A)(单)

  A.显示对话框中有“重试”按钮

  B.显示对话框中有“确定”按钮

  C.显示对话框中有“是”按钮

  D.以上说法都不正确

  9.在窗体中建立三个文本框,名称分别为text1、text2和text3,还有一个名称为label1的标签,一个名称为command1的命令按钮,编写如下代码:

  Private Sub Command1_Click( )

  Dim x!, y!, z!, t!

  x = Text1

  y = Text2

  z = Text3

  If x < y Then

  t = x

  x = y

  y = t

  End If

  If y < z Then

  t = y

  y = z

  z = t

  If x< y Then

  t = x

  x = y

  y = t

  End If

  End If

  Label1.Caption = x & "," & y & "," & z

  End Sub

  当在文本框text1、text2 和 text3 中分别输入5、3和8,则标签显示的结果为(C)(单)

  A.3,5,8

  B.5,3,8

  C.8,5,3

  D.3.8.5

  10.以下程序段:

  Private Sub Form_Load( )

  Dim Nop As Integer, Op As String * 1

  Num1 = 3

  Num2 = 2

  Nop = val(Inputbox("请输入1-4之间的整数"))

  Select Case Nop

  Case 1

  Op = "+"

  Result = Num1 + Num2

  Case 2

  Op = "-"

  Result = Num1 - Num2

  Case 3

  Op = "×"

  Result = Num1 * Num2

  Case 4

  Op = "÷"

  Result = Num1 / Num2

  End Select

  Label1= Num1 & Op & Num2 & "=" & Result

  End Sub

  窗体运行后,输入1,则label1的标题显示结果为(A)(单)

  A.3+2=5

  B.3-2=1

  C.3×2=6

  D.3÷2=1.5

  11.以下程序段:

  Private Sub Form_Load( )

  Dim Nop As Integer, Op As String * 1

  Num1 = 3

  Num2 = 2

  Nop = val(Inputbox("请输入1-4之间的整数"))

  Select Case Nop

  Case 1

  Op = "+"

  Result = Num1 + Num2

  Case 2

  Op = "-"

  Result = Num1 - Num2

  Case 3

  Op = "×"

  Result = Num1 * Num2

  Case 4

  Op = "÷"

  Result = Num1 / Num2

  End Select

  Label1= Num1 & Op & Num2 & "=" & Result

  End Sub

  窗体运行后,输入2,则label1的标题显示结果为(B)(单)

  A.3+2=5

  B.3-2=1

  C.3×2=6

  D.3÷2=1.5

  12.以下程序段:

  Private Sub Form_Load( )

  Dim Nop As Integer, Op As String * 1

  Num1 = 3

  Num2 = 2

  Nop = val(Inputbox("请输入1-4之间的整数"))

  Select Case Nop

  Case 1

  Op = "+"

  Result = Num1 + Num2

  Case 2

  Op = "-"

  Result = Num1 - Num2

  Case 3

  Op = "×"

  Result = Num1 * Num2

  Case 4

  Op = "÷"

  Result = Num1 / Num2

  End Select

  Label1= Num1 & Op & Num2 & "=" & Result

  End Sub

  窗体运行后,输入3,则label1的标题显示结果为(C)(单)

  A.3+2=5

  B.3-2=1

  C.3×2=6

  D.3÷2=1.5

  13.以下程序段:

  Private Sub Form_Load( )

  Dim Nop As Integer, Op As String * 1

  Num1 = 3

  Num2 = 2

  Nop = val(Inputbox("请输入1-4之间的整数"))

  Select Case Nop

  Case 1

  Op = "+"

  Result = Num1 + Num2

  Case 2

  Op = "-"

  Result = Num1 - Num2

  Case 3

  Op = "×"

  Result = Num1 * Num2

  Case 4

  Op = "÷"

  Result = Num1 / Num2

  End Select

  Label1= Num1 & Op & Num2 & "=" & Result

  End Sub

  窗体运行后,输入4,则label1的标题显示结果为(D)(单)

  A.3+2=5

  B.3-2=1

  C.3×2=6

  D.3÷2=1.5

  14.以下程序段的作用是(A)(单)

  Private Sub Picture1_Click( )

  Dim asci As Integer, i As Integer

  i = 0

  For asci = 32 To 126

  Picture1.Print Tab(7 * i + 2); Chr(asci); "="; asci;

  i = i + 1

  If i = 7 Then i = 0: Picture1.Print

  Next asci

  A.打印ASCII码表,一行7个表达式

  B.打印九九乘法表,一行7个表达式

  C.打印ASCII码表,一行8个表达式

  D.以上说法都不正确

  15.我国现在人口有13亿,按人口增长0.8%计算,多少年后我国人口将超过26亿。

  Private Sub Command1_Click( )

  Dim x, n

  x = Val(Text1)

  n = 0

  Do While 【x】<26

  x = x * (1 + 0.008)

  n = n + 1

  Loop

  Text2 = Str(n)

  End Sub

  16.以下程序的作用是(B)(单)

  For i = 1 To 9

  For j = 1 To 9

  se = i & "×" & j & "=" & i * j

  Picture1.Print Tab((j - 1) * 9 + 1); se;

  Next j

  Picture1.Print

  Next i

  A.打印ASCII码表

  B.打印九九乘法表

  C.打印加法表

  D.以上说法都不正确

  17.求自然数e的近似值,误差小于0.00001,近似公式为:e=1+1/1!+1/2!+1/3!+……+1/I!+……以下程序用来求自然数e。

  Private Sub Form_Click( )

  Dim I%, n&, t!, e!

  E = 0 ' 存放累加和结果

  I = 0 ' 计数器

  n = 1 ' 存放阶乘的值

  t = 1 ' 级数第I项值

  Do While 【t>】 0.00001

  e = e + t

  I = I + 1

  n = n * I

  t = 1 / n

  Loop

  Print "计算了 "; I; " 项的和是 "; e

  End Sub

  18.求自然数e的近似值,误差小于0.00001,近似公式为:e=1+1/1!+1/2!+1/3!+……+1/I!+……以下程序用来求自然数e。

  Private Sub Form_Click( )

  Dim I%, n&, t!, e!

  E = 0 ' 存放累加和结果

  I = 0 ' 计数器

  n = 1 ' 存放阶乘的值

  t = 1 ' 级数第I项值

  Do While t>0.00001

  e = e + 【t】

  I = I + 1

  n = n * I

  t = 1 / n

  Loop

  Print "计算了 "; I; " 项的和是 "; e

  End Sub

  19.求自然数e的近似值,误差小于0.00001,近似公式为:e=1+1/1!+1/2!+1/3!+……+1/I!+……以下程序用来求自然数e。

  Private Sub Form_Click( )

  Dim I%, n&, t!, e!

  E = 0 ' 存放累加和结果

  I = 0 ' 计数器

  n = 1 ' 存放阶乘的值

  t = 1 ' 级数第I项值

  Do While t>0.00001

  e = e + t

  I = I + 1

  n = n * 【I】

  t = 1 / n

  Loop

  Print "计算了 "; I; "项的和是"; e

  End Sub

  20.以下程序是求最大公约数和最小公倍数的程序。

  Private Sub Form_Click( )

  Dim m1, n1, m, n, r As Integer

  n1 = InputBox("输入自然数n", "输入数")

  m1 = InputBox("输入自然数m", "输入数")

  n = n1

  m = m1

  If m < n Then

  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

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

热点推荐

登录注册
触屏版电脑版网站地图