更多"编写FORTRAN77程序，将30个学生的考试成绩读人数组A，然后统计"的相关试题:
[简答题]编写程序，显示“学生”表中的全部字段名。
[简答题]编写程序，从键盘输入6名学生的5门成绩，分别统计出每个学生的平均成绩并输出。
[简答题]编写程序，用以建立某班级的学生档案信息，每个学生档案信息包括：姓名、邮编、电话。
[简答题]编写程序，从键盘输入十个数，然后提出其中的最大值和最小值。
[单项选择]学生在学习VB编程后，尝试编写程序，下列变量名合法的是______。
A. ys301406
B. case
C. 001hh88
D. kk=pting
[单项选择]用高级程序设计语言编写的程序
A. 计算机能直接执行
B. 具有良好的可读性和可移植性
C. 执行效率高但可读性差
D. 依赖于具体机器，可移植性差
[填空题]在窗体上画两个文本框，然后编写程序。程序运行后，如果在第一个文本框中输入A、B、 C、D或a、b、c、d，则在第二个文本框中显示EFDH。请完善下列程序。
Private Sub Form_Load（ ）
Show
Text1．Text=" "
Text2．Text=" "
Text1．SetFocus
End Sub
Private Sub Text1_KeyDown(KeyCode As Integer，Shift As Integer)
Text2．Text= 【11】
End Sub
[简答题]编写程序，对student. dbf表查找少数民族(ssmz)学生的姓名(xm)和数学成绩(sx)，并将其数学成绩(sx)增加指定的数值(从键盘输入)。
[简答题]编写程序“cx．prg”，用SQL语句查询“school”数据库中参加了课程编号为“0002”的学生的“学号”“姓名”“课程编号”和“成绩”。
[填空题]在窗体上画一个命令按钮Command1，然后编写如下程序：
Private Sub Command1_Click（ ）
Dim arr（ ） As Integer
ReDim arr(3)
For i=0 To 3
art(i)=i
Next i
x=InputBol("请输入一个数字：")
If Val(x)＞4 Then
ReDim arr(4)
art(4)=x
End If
Me.Print (arr(4)-arr(3))
End Sub
程序运行后，单击命令按钮，在输入对话框中输入12，输出结果为 【10】 。
[填空题]在窗体上画一个命令按钮Command1，然后编写如下程序：
Private Sub Command1_Click（ ）
Dim arr（ ）As Integer
ReDim arr(3)
For i=0 To 3
arr(i)=i
Next i
x=InputBox("请输入一个数字：")
If Val(x)＞4 Then
ReDim art(4)
air(4)=x
End If
Me.Print(arr(4)-art(3))
End Sub
程序运行后，单击命令按钮，在输入对话框中输入12，输出结果为 【10】 。
[单项选择]在窗体上画一个命令按钮，然后编写如下程序 Private Sub Command1_Click( ) Dim a As Integer，b As hiteger a=1 b=2 Print N(a，b) End Sub Function N(x As Integer，y As Integer)As Integer N=IIf(x>y，x，y) End Function 程序运行后，单击命令按钮，输出结果为
A. 1
B. 2
C. 5
D. 8
[填空题]在窗体上有一个命令按钮，然后编写如下程序：
Function Trans(ByVal num As Long) As Long
Dim k As Long
k=l
Do While num
k=k * (num Mod 10)
num=num/10
Loop
Trans=k
Print Trans
End Function
Private Sub Commandl_Click( )
Dim m As Long
Dim s As Long
m=InputBox("请输入一个数")
s=Trans(m)
End Sub
程序运行时，单击命令按钮，在输入对话框中输入“789”，输出结果为【 】，在输入对话框中输入“987”输出【 】，在输入对话框中输入“879”，输出结果为【 】。
[单项选择]在窗体上画一个命令按钮，然后编写如下程序： Option Base 1 Private Sub Command1 Click（ ） Dim Arr1(12)As Integer， Arr2(3)As Integer Dim Sum As Integer Sum = 2 For i=1 To 12 Arrl(i)= i Next i For i=1 To 3 Arr2(i)= Arrl(i*i) Next i For i = 1 To 3 Sum = Sum + Arr2(i) Next i Print Sum End Sub 程序运行后，单击命令按钮，在窗体上的输出结果为
A. 16
B. 24
C. 32
D. 36
