题目内容
（请给出正确答案）
成绩等级：
编写一段代码，要求如下：
1、程序开始运行后，需要用户输入学生的成绩（成绩为正整数）
2、一次输入一个学生的成绩，学生成绩是从0到100；
3、根据用户输入的成绩，程序依据等级标准，输出相应的等级。
4、等级标准是成绩小于60为不及格，60（含）到85（不含）之间为良，85（含）以上为优。
5、可以重复输入成绩进行查询
如果结果不匹配，请 联系老师 获取答案
更多“编写一段代码，要求如下：1、程序开始运行后，需要用户输入学生…”相关的问题
根据下列要求编写一个汇编语言程序： (1)代码段的段名为COD_SG。 (2)数据段的段名为DAT_SG。 (3)堆栈段的段名为STK_SG。 (4)变量HIGH_DAT所包含的数据为95。 (5)将变量HIGH_DAT装入寄存器AH、BH和DL中。 (6)程序运行的入口地址为START。
在窗体上画一个名称为Command1的命令按钮。编写如下事件过程： Private Sub Command1_Click() Dim a As String A=【 】 For i=1 To 5 Print Space(6-i); Mid$(a, 6-i, 2*i-1) Next i End Sub 程序运行后，单击命令按钮，要求窗体上显示的输出结果为： 5 456 34567 2345678 123456789 请填空。
A.-5
B.25
C.-1
D.1
在窗体上面画一个命令按钮，然后编写如下程序： Function M(x As Integer，y As Integer)As Integer M=IIf(x＞y，x，y) End Function Private Sub Command1_Click() Dim a As Integer，b As Integer a=1 b=2 Print M(a，B) End Sub 程序运行后，单击命令按钮，输出结果为【 】。
在窗体上画一个列表框，然后编写如下两个事件过程： Private Sub Form_Click() List1．RemoveItem 1 List1．Removeltem 3 List1．RemoveItem 1 End Sub Private Sub Form. Load() List1．AddItem "ItemA" List1．AddItem "ItemB" List1．AddItem "ItemC" List1．AddItem "ItemD" List1．AddItem "ItemE" End Sub 运行上面的程序，然后单击窗体，列表框中所显示的项目为【 】。
在窗体上画一个命令按钮，然后编写如下事件过程： Private Sub Command1_Click() Dim a(1 To 10) Dim p(1 To 3) k=5 For i=1 To 10 a(i)=i Next i For i=1 To 3 p(i)=a(i*i) Next i For i=1 To 3 k=k+p(i)*2 Next i Print k End Sub 程序运行后，单击命令按钮，输出结果是【 】。
在窗体上面有一个列表，然后编写如下两个事件过程： Private Sub Form_Click() List1.RemoveItem 1：List1.RemoveItem2 List1.RemoveItem 3 End Sub Private Sub Form_Loab() List1.AddItem "ItemA ":List1.AddItem "Item B" List1.AddItem"Item C"：List1.AddItem "ItemD" List1.AddItem "ItemE" End Sub 运行上面的程序，然后单击窗体，列表框中显示的项目是【 】。
在窗体上画一个文本框和一个命令按钮，如下图所示。
.jpg){kind=spacer}
编写如下程序： Private Sub Form_Load() Show Text1.Text=" " Form1.KeyPreview=False Text1.SetFocus End Sub Private Sub Command1_Click() KeyPreview=Not KeyPreview Print End Sub Private Sub Form_KeyPress(KeyAscii As Integer) Print UCase(Chr(KeyAscii+1))； End Sub Private sub Text1_KeyPress(KeyAscii As Integer) Print Chr(KeyAscii+2) KeyAscii=0 End Sub 阅读以上程序，理解每个事件过程的操作，然后填空。 ①程序运行后，直接从键盘上输入abc，程序输出的结果是【 】。 ②程序运行后，单击一次“命令按钮1”，然后从键盘上输入abc，程序输出的结果是【 】。
在窗体上画一个命令按钮，然后编写如下程序： Function fun(ByVal num As Long)As Long Dim k As Long k=1 num=Abs(num) Do While num k=k*(num Mod 10) num=num\10 Loop fun=k End Function Private Sub Command1_Click() Dim n As Long Dim r As Long n=InputBox("请输入一个数") n=CLng(n) r=fun(n) Print r End Sub 程序运行后，单击命令按钮，在输入对话框中输入"345"，输出结果为【 】。
