编写一段代码,要求如下:1、程序开始运行后,需要用户输入学生的成绩(成绩为正整数)2、
成绩等级:
编写一段代码,要求如下:
1、程序开始运行后,需要用户输入学生的成绩(成绩为正整数)
2、一次输入一个学生的成绩,学生成绩是从0到100;
3、根据用户输入的成绩,程序依据等级标准,输出相应的等级。
4、等级标准是成绩小于60为不及格,60(含)到85(不含)之间为良,85(含)以上为优。
5、可以重复输入成绩进行查询
成绩等级:
编写一段代码,要求如下:
1、程序开始运行后,需要用户输入学生的成绩(成绩为正整数)
2、一次输入一个学生的成绩,学生成绩是从0到100;
3、根据用户输入的成绩,程序依据等级标准,输出相应的等级。
4、等级标准是成绩小于60为不及格,60(含)到85(不含)之间为良,85(含)以上为优。
5、可以重复输入成绩进行查询
根据下列要求编写一个汇编语言程序: (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 运行上面的程序,然后单击窗体,列表框中显示的项目是【 】。
在窗体上画一个文本框和一个命令按钮,如下图所示。
编写如下程序: 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",输出结果为【 】。