《vb参考答案》由会员分享，可在线阅读，更多相关《vb参考答案（8页珍藏版）》请在金锄头文库上搜索。
1、试卷编号：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
2、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 PrintNext i第3题 （25.0分） 题号:485-【程序设计】-题目：(事件)单击窗体。 (响应)我国现有人口为13亿，设年增长率为1%， 计算多少年后增加到20亿。并将结果输出 在窗体上。将结果存入变量year中。 使用do while .loop语句完成程序。-答案：-dim p as doubledim r as singledim n as inte
3、gerp=1300000000r=0.01do while p2000000000p=p+p*rn=n+1loopprint n=,nyear=n-第4题 （25.0分） 题号:505-【程序设计】-题目： (事件)单击命令按钮Command1。 (响应)计算如下表达式s的值, s=1+(1*2)+(1*2*3)+(1*2*3*6) 并将结果输出到文本框Text1中。-注意：请在指定的事件内编写代码。-答案：Dim j As IntegerDim i As Integerj = 1s = 0For i = 1 To 6 j = j * i s = s + jNext iText1.Text =
4、 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 Integeri = 1p = 1Do While i 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)
5、 / 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语句。-注意： 请在指定的事件内编写代码 代码只能写在两行标识之间 不得修改已有代
6、码保存时不得修改窗体和工程文件的名称及路径，否则后果自负。-Private Function fun(m As Long) As StringDim flag As Boolean*Program* End *End FunctionPrivate Sub Form_Load() Show Print fun(225) NJIT_VBEnd SubPrivate Sub NJIT_VB() Dim i As Integer Dim a(10) As String Dim fIn As Integer Dim fOut As Integer fIn = FreeFile Open App.Pat
7、h & 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 #fOutEnd Sub答案：flag = TrueFor i = 2 To m - 1 If m Mod i = 0 Then flag = FalseNext iIf flag Then fun = 素数Else fun = 非素数End If第4题 （25.0分） 题号:583-【程序设计】-题目： 将随机产生范围从1到100的10个整数放在数组 a(1 to 10)中，用冒泡法将数组中的元素按由 小到大的顺序输出。 运算后如图1所示。-答案：RandomizeFor i = 1 To 1
