VB参考答案

试卷编号：8838

所属语言：Visual Basic

试卷方案：VB_mn1

试卷总分：100分

共有题型：1种

一、程序设计共4题（共计100分）

第1题（25.0分）题号:151

'-------------------------------------------------

'【程序设计】

'-------------------------------------------------

'题目：(事件)单击窗体。

' (响应)求1+2+3+……+100的值，并把结果输出在窗体上。' 结果存入变量SUM中。

'-------------------------------------------------

答案：----------------------

Dim i As Integer

For i = 1 To 100

sum = sum + i

Next

Print sum

----------------------

第2题（25.0分）题号:561

'-------------------------------------------------

'【程序设计】

'-------------------------------------------------

'题目：编写程序，打印如图1所示的“数字金字塔”。

' 请用For循环结构实现。

'-------------------------------------------------

答案：For i = 1 To 9

For p = 1 To 27 - 3 * i

Print " ";

Next p

For j = 1 To i

Print j;

Next j

For k = i - 1 To 1 Step -1

Print k;

Next k

Print

Next i

第3题（25.0分）题号:485

'------------------------------------------------- '【程序设计】

'------------------------------------------------- '题目：(事件)单击窗体。

' (响应)我国现有人口为13亿，设年增长率为1%，' 计算多少年后增加到20亿。并将结果输出' 在窗体上。将结果存入变量year中。

' 使用do while ...loop语句完成程序。

'-------------------------------------------------

答案：----------------------

dim p as double

dim r as single

dim n as integer

p=1300000000

r=0.01

do while p<2000000000

p=p+p*r

n=n+1

loop

print "n=",n

year=n

----------------------

第4题（25.0分）题号:505

'------------------------------------------------- '【程序设计】

'-------------------------------------------------

'题目： (事件)单击命令按钮Command1。

' (响应)计算如下表达式s的值,

' s=1+(1*2)+(1*2*3)+......+(1*2*3* (6)

' 并将结果输出到文本框Text1中。

'-------------------------------------------------

'注意：请在指定的事件内编写代码。

'-------------------------------------------------

答案：Dim j As Integer

Dim i As Integer

j = 1

s = 0

For i = 1 To 6

j = j * i

s = s + j

Next i

Text1.Text = s

试卷编号：8859

所属语言：Visual Basic

试卷方案：VB_mn2

试卷总分：100分

共有题型：1种

一、程序设计共4题（共计100分）

第1题（25.0分）题号:487

'-------------------------------------------------

'【程序设计】

'-------------------------------------------------

'题目： (事件)单击窗体。

' (响应)已知s=1+1/3!+1/5!+1/7!+1/9!,请将s结果值

' 输出到窗体上。使用do while...loop语句完成程序'-------------------------------------------------

答案：----------------------

Dim i As Integer

i = 1

p = 1

Do While i <= 9

p = p * i

If i Mod 2 = 1 Then

s = s + 1 / p

End If

i = i + 1

Loop

Print s

sum=s

----------------------

第2题（25.0分）题号:578

'-------------------------------------------------

'【程序设计】

'-------------------------------------------------

'题目：从键盘输入3个数，判断这3个数能否构成三角形

' 的三条边，若能构成三角形则计算该三角形的面

' 积，否则提示出错信息。请用If语句实现。

' 运算后分别如图1、图2、图3、图4、图5所示。

'-------------------------------------------------

答案： Dim p As Single, s As Single

a = Val(InputBox("请输入三角形的第一条边"))

b = Val(InputBox("请输入三角形的第二条边"))

c = Val(InputBox("请输入三角形的第三条边"))

If a > 0 And b > 0 And c > 0 Then

If a + b > c And b + c > a And a + c > b Then

p = (a + b + c) / 2

s = Sqr(p * (p - a) * (p - b) * (p - c))

Print "三角形的三条边长为："; a; b; c

Print "三角形的面积为："; s

Else

Print "不能构成三角形。"

End If

End If

第3题（25.0分）题号:175

'-------------------------------------------------

'【程序设计】

'-------------------------------------------------

'题目：编写函数fun，函数的功能是：判断一个数是否为素数。'并显示相应提示。如：

'该数为素数时，显示"素数"；该数为非素数时，显示"非素数" '要求使用For语句来实现，用布尔型变量flag作为该数

'是否为素数的标志，注意：不得使用Goto语句。

'-------------------------------------------------

'注意：请在指定的事件内编写代码

' 代码只能写在两行标识之间

' 不得修改已有代码

'保存时不得修改窗体和工程文件的名称及路径，否则后果自负。'------------------------------------------------- Private Function fun(m As Long) As String

Dim flag As Boolean

'**********Program**********

'********** End **********

End Function

Private Sub Form_Load()

Show

Print fun(225)

NJIT_VB

End Sub

Private Sub NJIT_VB()

Dim i As Integer

Dim a(10) As String

Dim fIn As Integer

Dim fOut As Integer

fIn = FreeFile

Open App.Path & "\in.dat" For Input As #fIn

fOut = FreeFile

Open App.Path & "\out.dat" For Output As #fOut

For i = 1 To 10 Step 1

Line Input #fIn, a(i)

Print #fOut, fun(Val(a(i)))

Next

Close #fIn

Close #fOut

End Sub

答案：flag = True

For i = 2 To m - 1

If m Mod i = 0 Then flag = False

Next i

If flag Then

fun = "素数"

Else

fun = "非素数"

End If

第4题（25.0分）题号:583

'------------------------------------------------- '【程序设计】

'-------------------------------------------------

'题目：将随机产生范围从1到100的10个整数放在数组' a(1 to 10)中，用冒泡法将数组中的元素按由

' 小到大的顺序输出。

' 运算后如图1所示。

'-------------------------------------------------

答案：Randomize

For i = 1 To 10

a(i) = Int(100 * Rnd + 1)

Next i

For i = 1 To 9

For j = 10 To 1 + i Step -1

If a(j) < a(j - 1) Then

t = a(j): a(j) = a(j - 1): a(j - 1) = t

End If

Next j

Next i

For i = 1 To 10

Print a(i);

Next i

试卷编号：8929

所属语言：Visual Basic

试卷方案：VB_mn3

试卷总分：90分

共有题型：1种

一、程序设计共3题（共计90分）

第1题（30.0分）题号:580

'------------------------------------------------- '【程序设计】

'-------------------------------------------------

'题目：随机产生20个50~108（包括50和108）的整数赋给' 一个一维数组，求最大值、最小值和平均值，并显' 示整个数组的值和结果。请用For循环结构实现。

' 运算后如图1所示。

'-------------------------------------------------

答案：Dim a(20), max%, min%, sum!

Randomize

Picture1.Cls

Cls

For i = 1 To 20

a(i) = Int(59 * Rnd + 50)

Picture1.Print a(i);

Next i

max = a(1): min = a(1): sum = a(1)

For i = 2 To 20

If a(i) > max Then max = a(i)

If a(i) < min Then min = a(i)

sum = sum + a(i)

Next

Print "最大值为："; max

Print "最小值为："; min

Print "平均值为："; sum / 20

第2题（30.0分）题号:481

'-------------------------------------------------

'【程序设计】

'-------------------------------------------------

'题目：编写函数fun其功能是：根据整型形参m，

'计算如下公式的值:

' y=1＋1/3＋1/5＋1/7＋...＋1/(2m+1)

' 例如：若m=9，则应输出：2.133255

'-------------------------------------------------

答案：----------------------

Dim y As Double

Dim i As Integer

y = 1

For i = 1 To m

y = y + 1 / (2 * i + 1)

Next

fun = y

----------------------

第3题（30.0分）题号:488

'------------------------------------------------- '【程序设计】

'------------------------------------------------- '题目： (事件)单击窗体。

' (响应)已知sum=1/2!-1/4!+1/6!-1/8!+1/10!, ' 请将sum结果值输出到窗体上。

' 使用do while...loop语句完成程序

'-------------------------------------------------

答案：----------------------

Dim i As Integer

Dim n As Integer

i = 1

p = 1

Do While i <= 10

p = p * i

If i Mod 2 = 0 Then

n = n + 1

sum = sum + (-1) ^ (n - 1) / p

End If

i = i + 1

Loop

Print sum

----------------------