2014计算机二级VB考试试题及答案5-2 |
来源:2exam.com 2014-7-30 18:23:18 |
11.以下程序段:Private Sub Form_Load( )Dim Nop As Integer, Op As String * 1Num1 = 3Num2 = 2Nop = val(Inputbox("请输入1-4之间的整数"))Select Case NopCase 1Op = "+"Result = Num1 + Num2Case 2Op = "-"Result = Num1 - Num2Case 3Op = "×"Result = Num1 * Num2Case 4Op = "÷"Result = Num1 / Num2End SelectLabel1= Num1 & Op & Num2 & "=" & ResultEnd Sub窗体运行后,输入2,则label1的标题显示结果为(B)(单)A.3+2=5 B.3-2=1 C.3×2=6 D.3÷2=1.512.以下程序段:Private Sub Form_Load( )Dim Nop As Integer, Op As String * 1Num1 = 3Num2 = 2Nop = val(Inputbox("请输入1-4之间的整数"))Select Case NopCase 1Op = "+"Result = Num1 + Num2Case 2Op = "-"Result = Num1 - Num2Case 3Op = "×"Result = Num1 * Num2Case 4Op = "÷"Result = Num1 / Num2End SelectLabel1= Num1 & Op & Num2 & "=" & ResultEnd Sub窗体运行后,输入3,则label1的标题显示结果为(C)(单)A.3+2=5 B.3-2=1 C.3×2=6 D.3÷2=1.513.以下程序段:Private Sub Form_Load( )Dim Nop As Integer, Op As String * 1Num1 = 3Num2 = 2Nop = val(Inputbox("请输入1-4之间的整数"))Select Case NopCase 1Op = "+"Result = Num1 + Num2Case 2Op = "-"Result = Num1 - Num2Case 3Op = "×"Result = Num1 * Num2Case 4Op = "÷"Result = Num1 / Num2End SelectLabel1= Num1 & Op & Num2 & "=" & ResultEnd Sub窗体运行后,输入4,则label1的标题显示结果为(D)(单)A.3+2=5 B.3-2=1 C.3×2=6 D.3÷2=1.514.以下程序段的作用是(A)(单)Private Sub Picture1_Click( )Dim asci As Integer, i As Integeri = 0For asci = 32 To 126Picture1.Print Tab(7 * i + 2); Chr(asci); "="; asci;i = i + 1If i = 7 Then i = 0: Picture1.PrintNext asciA.打印ASCII码表,一行7个表达式B.打印九九乘法表,一行7个表达式C.打印ASCII码表,一行8个表达式D.以上说法都不正确15.我国现在人口有13亿,按人口增长0.8%计算,多少年后我国人口将超过26亿。Private Sub Command1_Click( )Dim x, nx = Val(Text1)n = 0Do While 【x】<26x = x * (1 + 0.008)n = n + 1LoopText2 = Str(n)End Sub16.以下程序的作用是(B)(单)For i = 1 To 9For j = 1 To 9se = i & "×" & j & "=" & i * jPicture1.Print Tab((j - 1) * 9 + 1); se;Next jPicture1.PrintNext iA.打印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.00001e = e + tI = I + 1n = n * It = 1 / nLoopPrint "计算了 "; I; " 项的和是 "; eEnd Sub18.求自然数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.00001e = e + 【t】I = I + 1n = n * It = 1 / nLoopPrint "计算了 "; I; " 项的和是 "; eEnd Sub19.求自然数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.00001e = e + tI = I + 1n = n * 【I】t = 1 / nLoopPrint "计算了 "; I; "项的和是"; eEnd Sub20.以下程序是求最大公约数和最小公倍数的程序。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 【n】Do While (r<>0)m = nn = rr = m Mod nLoopPrint "最大公约数=", nPrint "最小公倍数= ", m1 * n1 / nEnd Sub
|
网站版权与免责声明
①由于各方面情况的不断调整与变化,本网所提供的相关信息请以权威部门公布的正式信息为准.
②本网转载的文/图等稿件出于非商业性目的,如转载稿涉及版权及个人隐私等问题,请在两周内邮件fjksw@163.com联系. |
|
|
|