vb程序设计测试题

Private Sub Command1_Click()

Dim n As Long

n = Val(InputBox("输入", "请输入您个年龄", 12))

If n <18 Then

Print n"少年"

ElseIf n >= 18 And n <45 Then

Print n"青年"

ElseIf n >= 45 And n <= 59 Then

Print n"中年"

ElseIf n >59 Then

Print n"老年"

Else

Print n"输入年龄错误"

End If

End Sub

Private Sub Command2_Click()

Dim n As Long

n = Val(InputBox("输入", "请输入您个年龄", 12))

Select Case n

Case Is <18

Print n"少年"

Case Is >59

Print n"老年"

Case Is >= 18

Select Case n

Case Is <45

Print n"青年"

Case Else

Print n"中年"

End Select

Case Else

Print n"输入年龄错误"

End Select

End Sub

Private Sub Form_Load()

Me.Caption = "年龄段划分"

Command1.Caption = "使用if"

Command2.Caption = "使用select"

End Sub

完整的fun函数代码如下：

int fun(STU a[], int n, STU h[]) {

    int i, k = 0

    double avg = 0

    for (i = 0i <ni++) {

        a[i].sum = a[i].s1 * 0.7 + a[i].s2 * 0.3

        avg += a[i].sum// 先计算总分

    }

    avg = avg / n// 再计算平均分

    for (i = 0i <ni++) {

        if (a[i].sum >avg)  { // 统计平均分以上的学生

            strcpy(a[i].level, "均分以上")

            h[k++] = a[i]

        }

    }

    return k

}

运行结果如下：

可见成功输出了平均分以上的学生信息，望采纳~

(1)控制流图

(2)计算环路复杂度

环路复杂度=P+1 (P为判断节点数)=3+1=4

(3)程序的独立路径

1)   4-25

2)   4-6-8-25

3)   4-6-11-15-22-4-25

4)   4-6-11-19-22-4-25

(4)测试用例

1)   i_count=0,预期结果 i_temp=0

2)   i_count=1,i_flag=0,预期结果 i_temp=i_count+100=101

3)   i_count=1,i_flag=1,预期结果 i_temp=i_count*10=10

4)   i_count=1,i_flag=2,预期结果 i_temp=i_count*20=20

不知道是不是你的题目写错了，上面描述的函数说明与程序中实际罗列的不符，我只能选取其中一个来设计用例了，不论选取哪一个函数公式，只是在预期结果处会有出入，其他均无影响

---