2021广东专升本程序设计答案

真的急求！！！

首先,三级只有上机考c语言,只有一个程序设计题,很简单其次,专升本的c语言程序设计是合卷,不会考的很难,但是知识点都会有所涉及这么说吧,这个问题没有可比性,一个考笔试理论,一个考上机实践

#include"h"#include"h"int i,j,a,b,c,k,m,n;struct student{ int num; char name[15]; int score[3];};struct student temp;void input(struct student stu[],int N=70) /*输入输出*/{ printf("Please input 70 student massage:\n"); for(i=0;i

请采纳

第一章 VB程序设计概述二、选择题CADAB ACDAB CBDBB第二章 VB可视化编程基础二、选择题ABDCA CACBC DADAD BDBBB三、填空题可视 LEFT TOP WIDTH HEIGHT按字母序 查看代码 工具、选项Form1 Font M只读属性 工程 属性 通用 Fabindex 0第三章 VB语言基础二、选择题BCADB ADBBC DBCBA BAABB三、填空题整型、长整型、单精度、双精度sin(30*14/180)+sqr(x+exp(3))/abs(x-y)-log(3*x)160 今天是：3-F-4 3 -3 3 -4 “CDEF”(x mod 10)*10+x\(35\20)*20=20 ( 35 \ 20 ) * 20 = x mod 3=0 or x mod 5=6 2 8 1 100 397 true false第四章 VB程序控制结构二、选择题DBCAD ABBAB D25BAC CBACB DAABC三、填空题正确性、有穷性、可行性、有输入、有输出1 2 x>x c And a + c > b And b + c > a Then p = (a + b + c) / 2 s = Sqr(p * (p - a) * (p - b) * (p - c)) Print sElse MsgBox "你输入的三边不能构成三角形，请重新输入"End IfloopEnd S Private Sub Form_Click()Dim i As Integer, j As Integer,k as integerFor i = 1 To 8 For k=1 to 8-i Print spc(3); Next k For j = 1 To 2 * i - 1 Print i; Next j PrintNext iEnd S Private Sub Form_Click()Dim i As Integer, j As Integer, k As IntegerFor i = 1 To 30 For j = 1 To 30 For k = 1 To 30 If i ^ 2 + j ^ 2 = k ^ 2 Then Print i & " ^ 2 + " & j & "^ 2 =" & k & "^ 2" End If Next k Next jNext iEnd Sub8．Private Sub Form_Click()Dim x As Integer, a As Integer, b As Integer, c As Integer, ss As Stringss = ""For x = 100 To 999 a = Int(x / 100) b = Int((x - 100 * a) / 10) c = x - 100 * a - 10 * b If a ^ 3 + b ^ 3 + c ^ 3 = x Then ss = ss & " " & x End IfNext xPrint ssEnd Sub9．Dim sr As Long, r As Singlesr = Val(InputBox("请输入收入："))Select Case sr Case Is < 200 r = 0 Case 200 To 400 r = (sr - 200) * 04 Case 400 To 5000 r = sr * 04 Case Is >= 5000 r = sr * 05End SelectPrint "收入为" & sr & "时所缴纳的税为：" & rEnd SPrivate Sub Form_Click()Dim t As Single, wf As Singlet = Val(InputBox("请输入上网时间:"))Select Case t Case Is < 10 wf = 50 Case 10 To 60 wf = t * 6 Case Is >= 60 wf = t * 4End SelectIf wf >= 200 Then wf = 200End IfPrint "上网时间为" & t & "小时上网的费用为：" & wfEnd S Private Sub Form_Click()Dim yf As Integeryf = Val(InputBox("请输入月份"))Select Case yf Case 12, 1, 2 MsgBox yf & "月份是冬季" Case 3, 4, 5 MsgBox yf & "月份是冬季" Case 6, 7, 8 MsgBox yf & "月份是冬季" Case 9, 10, 11 MsgBox yf & "月份是冬季" Case Else MsgBox "输入错误，请重新输入"End SelectEnd Sif的方法Private Sub Form_Click()Dim x As Single, f As Singlex = Val(InputBox("请输入一个数"))If x < 0 Then f = 2 * x - 1ElseIf x = 0 Then f = 4 * xElseIf x > 0 Then f = 7 * x - 5End IfPrint "f(" & x & ")=" & fEnd SubSelect case语句：Private Sub Form_Click()Dim x As Single, f As Singlex = Val(InputBox("请输入一个数"))Select Case x Case Is < 0 f = 2 * x - 1 Case 0 f = 4 * x Case Is > 0 f = 7 * x - 5End SelectPrint "f(" & x & ")=" & fEnd Sub第五章 数组一、选择题DCACD DBCDC BADAD二、填空题名称 Index preserve 变体 2 1 2 3 1 4 1 1 2 3 2 4 6 max max=arr1(i)三、编程题 Option Base 1Private Sub Form_Click()Dim a(10) As Integer, i%, temp%For i = 1 To 10 a(i) = Val(InputBox("请输入第" & i & "个整数"))Next i