VB程序设计编程考试题及答案文档格式.docx

1、 Label4 = 方程无根3. 输入一个百分制的成绩，若大于等于60，则用消息框弹出，显示“恭喜！成绩通过！”，若小于60，则弹出消息框，显示“抱歉！成绩没有通过！Private Sub Form_Load（）Text1 = Dim nn = Text1 =60 ThenVal （MsgBox（恭喜！Else抱歉！4. 输入一年份，判断它是否为闰年，并显示有关信息。（判断闰年的条件是：年份能被4整除但不能被100整除，或者能被400整除）Dim y%y = InputBox（请输入年份）If y Mod 4 = 0 And y Mod 100 0 Or y Mod 400 = 0 Then闰

2、年！平年！5. 输入学生的百分制成绩，转换输出为五级制成绩，90100分转换为优秀，8089转换为良好，7079转换为中等，6069转换为及格，060转换为不及格。a = Val（InputBox（请输入成绩If a 100 Then Print 超出范围= 90 And a = 100 Then Print 优秀= 80 And a 90 Then Print 良好= 70 And a 80 Then Print 中等= 60 And a 70 Then Print 及格If a n1 Then m = m1: n = n1 m = n1: n = m1 End If r = m Mod n

3、 Do While r max Then max = a（i）If a（i） min Then min = a（i）s = s + a（i）s = s - min - maxs = s / 5平均分 s12. 输入一串字符，统计其中字母A（不区分大小写）出现的次数。Dim c As String, a As Integerb = InputBox（请输入字符For i = 1 To Len（b） c = UCase（Mid（b, i, 1） If c = A Then a = a + 1 Next i Print a出现的次数： a13. 我国目前有13亿人口，按人口年增长率0.8%计算，多少

4、年后我国人口将超过26亿。Dim a, ia = 13i = 0Do While a =2 ）Dim F（11）, i As LongF（0） = 1F（1） = 1For i = 2 To 10F（i） = F（i - 1） + F（i - 2）For i = 0 To 11Print F（i）;18. 将输入的字符串以反序显示。例如：输入“ASDFGT”，显示“TGFDSA”Dim a, b, c, d, na = InputBox（输入字符串n = Len（a）For b = 1 To Int（n 2）c = Mid（a, b, 1）Mid（a, b, 1） = Mid（a, n - b

5、 + 1, 1） Mid（a, n - b + 1, 1） = cNext bPrint a19. 随机产生10个30,100内的整数，求最大值及所对应的下标Dim a（1 To 10）, mRandomizeFor I = 1 To 10a（I） = Int（Rnd * 71） + 30Print a（I）Next IMax = a（1）For I = 2 To 10If a（I） Max Then Max = a（I）: m = Imax= Maxmax的下标为 m20. 随机产生10个30,100内的整数，求最大值、最小值和平均值。Dim a（1 To 10）For i = 1 To 1

6、0a（i） = Int（Rnd * 71） + 30Print a（i）Min = a（1）Avg = a（1） Max Then Max = a（i） Min Then Min = a（i） Avg = Avg + a（i）Avg = Avg / 10min= Minavg= AvgEnd Sub 21. 随机产生10个30,100内的整数，求最小值及所对应的下标。If a（I） Min Then Min = a（I）:min的下标为22. 随机生成一个整型的二维数组，范围在10,20之间，以下三角形式输出该数组。Dim a（1 To 10, 1 To 10）, i, j As Intege

7、rFor j = 1 To 10a（i, j） = Int（Rnd *11 + 10）For j = 1 To iPrint Spc（3）; a（i, j）;Print23. 随机产生10个1100的正整数放入数组，显示产生的数，求最大值、最小值、平均值。a（i） = Int（Rnd * 101） + 124. 利用随机函数生成一个44的矩阵（即二维矩阵）,范围是20,50内的整数,输出该矩阵所有数据之和Dim a%（4, 5）, sumFor i = 1 To 4For j = 1 To 4a（i, j） = Int（Rnd * 31） + 20Print a（i, j）;sum = sum

8、 + a（i, j）Print 换行sum= sum25. 已知有序数组a（），编程插入x（x的值为14）。数组a中的元素分别为12，6，4，89，75，63，100，20，31。Dim a（）, i%, k%, x%, n%a = Array（4, 6, 12, 20, 31, 63, 75, 89, 100）n = UBound（a）x = Val（InputBox（请输入所要插入数For k = 0 To nIf x a（k） Then Exit ForNext kReDim Preserve a（n + 1）For i = n To k Step -1a（i + 1） = a（i）a（

9、k） = xFor i = 0 To n + 1Print a（i）;26. 编写一函数，计算Double类型一维数组所有元素的平均值。27. 编一子过程ProcMin,求一维数组a中的最小值，子过程的形参自己确定Private Sub command1_Click（）Dim a（1 To 10）, min, i%a（i） = Int（Rnd * 101）Call ProcMin（a（）, min）min = minSub ProcMin（b（）, min）Dim i%min = b（LBound（b）For i = LBound（b） + 1 To UBound（b）If b（i） max Then max = b（i）30. 编写一个过程计算并输出区间100，1000内所有素数的和（要求判断素数使用过程（函数或子过程）来实现。调用该过程。（提示：只能被1和自身整除的自然数称为素数。