【vb精品源码栏目提醒】:网学会员为需要vb精品源码的朋友们搜集整理了上海海事大学VB题库-改错 - 大学课件相关资料,希望对各位网友有所帮助!
改错 『程序改错』5 分题号:132〖第 1 题〗------------------------------------------------【程序改错】------------------------------------------------题目:求 s2468,阶乘的计算用 Function 过程 fact 实现------------------------------------------------注意:不可增加或删除程序行,也不可以更改程序结构------------------------------------------------Private Sub Form_Clickdim i as integers as LongFOUNDFor i 2 To 8 s s factiNext iPrint sEnd SubFOUNDPublic Function fact dim t as Longdim i as integert1For i 1 To nttiNext IFOUNDfactiEnd Function答案: 1. For i 2 To 8 Step 2 2. Public Function factByVal n As Integer 或 Public Function factn As Integer 或Public Function factn 或 Public Function factn 或 Public Function factByVal n 或Public Function factByVal n 3. fact t 『程序改错』5 分题号:132〖第 1 题〗------------------------------------------------【程序改错】------------------------------------------------题目:求 s2468,阶乘的计算用 Function 过程 fact 实现------------------------------------------------注意:不可增加或删除程序行,也不可以更改程序结构------------------------------------------------Private Sub Form_Clickdim i as integers as LongFOUNDFor i 2 To 8 s s factiNext iPrint sEnd SubFOUNDPublic Function fact dim t as Longdim i as integert1For i 1 To nttiNext IFOUNDfactiEnd Function答案: 1. For i 2 To 8 Step 2 2. Public Function factByVal n As Integer 或 Public Function factn As Integer 或Public Function factn 或 Public Function factn 或 Public Function factByVal n 或Public Function factByVal n 3. fact t〖第1题〗『程序改错』5分题号:493------------------------------------------------【程序改错】------------------------------------------------题目:给定年号与月份,判断该年是否闰年并根据给出的 月份来判断是什么季节和该月有多少天? (闰年的条件是:年号能被4整除但不能被100整除, 或者能被400整除。
)------------------------------------------------注意:不可增加或删除程序行,也不可以更改程序结构------------------------------------------------Private Sub Form_Click Dim Year As Integer Month As Integer Year InputBox输入年号: Month InputBox输入月份: FOUND If Year Mod 4 0 And Year Mod 100 0 And Year Mod 400 0 Then FOUND flag 0 MsgBox 闰年 Else flag 0 MsgBox 非闰年 End If FOUND Select Case flag Case 1 MsgBox 该月有31天,春季 Case 2 If flag 1 Then MsgBox 该月有29天,春季 Else MsgBox 该月有28天,春季 Case 3 MsgBox 该月有31天,春季 Case 4 MsgBox 该月有30天,夏季 Case 5 MsgBox 该月有31天,夏季 Case 6 MsgBox 该月有30天,夏季 Case 7 MsgBox 该月有31天,秋季 Case 8 MsgBox 该月有31天,秋季 Case 9 MsgBox 该月有30天,秋季 Case 10 MsgBox 该月有31天,冬季 Case 11 MsgBox 该月有30天,冬季 Case 12 MsgBox 该月有31天,冬季 End SelectEnd Sub答案: 1. If Year Mod 4 0 And Year Mod 100 0 Or Year Mod 400 0 Then 或 If Year Mod 400 0 Or Year Mod 4 0 And Year Mod 100 0 Then 2. Flag 1 3. Select Case Month〖第2题〗『程序改错』5分题号:119------------------------------------------------【程序改错】------------------------------------------------题目:在下面的程序段中过程pd可以判断任意三个数能 否构成三角形的三边,利用该过程的判定结果, 对能构成三角形的计算其面积,构不成的显示 不能构成三角形------------------------------------------------注意:不可增加或删除程序行,也不可以更改程序结构------------------------------------------------Option ExplicitPrivate Sub Form_ClickFOUNDDim x y z s b As Boolean h As Singlex InputBox请输入三角形的边长y InputBox请输入三角形的边长z InputBox请输入三角形的边长b pdx y zh x y z / 2FOUNDIf Not b Then s Sqrh h - x h - y h - z Print 三角形面积是 sElse Print 不能构成三角形End IfEnd SubFOUNDPublic Function pd As BooleanIf x 0 And y 0 And z 0 And x y z And x z y And y z x Then pd TrueElse pd FalseEnd IfEnd Function答案: 1. Dim ★x★ ★y★★ z★ ★s★ ★b★ As Boolean★ ★h As Single 或 Dim ★x★ ★y★★ z★ ★s as Single★ ★b★ As Boolean★ ★h As Single 2. If b Then 或 If btrue Then 3. Public Function pdx y z As Boolean 或 Public Function pdx y z As Boolean或 Public Function pdx as Integer y as Integer z as Integer As Boolean〖第3题〗『程序改错』5分题号:134------------------------------------------------【程序改错】------------------------------------------------题目:程序功能根据输入的学习成绩分别显示优秀 90分以上 良好75分以上及格60分以上 不及格几个等级.------------------------------------------------注意:不可增加或删除程序行,也不可以更改程序结构------------------------------------------------Private Sub Form_ClickClsDim i As Integeri InputBox请输入学习成绩Select Case IFOUNDCase 0 100 ★or★ 0i 或 Case ★100 i ★or★ 0i 2. Case 90 To 100 3. Case else〖第4题〗『程序改错』5分题号:481------------------------------------------------【程序改错】------------------------------------------------题目:下面程序的功能是将一个整数转化为数值字符串, 列如123,转化为123-123转化为“-123”------------------------------------------------注意:不可增加或删除程序行,也不可以更改程序结构------------------------------------------------Private Function NtoCByVal n As Single Dim sign As Boolean i a count temp100 Dim strc As String sign False FOUND If n 0 Then sign False n Absn Do While n 0 FOUND a n / 10 n n 10 FOUND count 1 tempcount a Loop If sign Then strc - Else strc For i count To 1 Step -1 strc strc ChrAsc0 tempi Next i NtoC strcEnd FunctionPrivate Sub Command1_Click Print NtoC-123End Sub答案: 1. If n 0 Then sign True 2. a n Mod 10 3. count count 1 或 count 1 count 『程序改错』5 分题号:132〖第 1 题〗------------------------------------------------【程序改错】------------------------------------------------题目:求 s2468,阶乘的计算用 Function 过程 fact 实现------------------------------------------------注意:不可增加或删除程序行,也不可以更改程序结构------------------------------------------------Private Sub Form_Clickdim i
上一篇:
全国计算机二级考试之VB教程(全集)
下一篇:
病理学实验课多样化教学方法探讨