vb考试试题2

试卷编号：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。