用汇编语言编写程序：分别统计下列成绩中及格不及格和缺考的人数
debug 执行，查看运行结果。 06是及格的数量，02是不及格的数量，01是缺考数量。
dseg segment
scores db 87,94,76,52,71,83,-1,66,41
cnt equ $-scores ；成绩的个数
p db 0 ;>=60
q db 0 ;
r db 0 ;-1
dseg ends
cseg segment
assume cs:cseg, ds:dseg
start:
mov ax, dseg
mov ds, ax
lea si, scores
mov cx, cnt
s0:
mov al, [si]
cmp al, -1
je s3
cmp al, 60
jb s2
inc p ; >=60 的个数
jmp s4
s2:
inc q ;
jmp s4
s3:
inc r ; -1的个数
s4:
inc si
loop s0
; print p, q, r ，输出 结果，由于题目没有要，所以略过
mov ah, 4ch
int 21h
cseg ends
end start
有100个学生成绩统计100 90 60 9060以下同学有几个用汇编编写的
假设学生成绩存在1000h开始的数据段中，段地址为2000h
code segment assume cs:code start: mov bx,00h mov dx,00h mov di,00h
《PHP设计模式》首先介绍了设计模式，讲述了设计模式的使用及重要性，并且详细说明了应用设计模式的场合。接下来，本书通过代码示例介绍了许多设计模式。最后，本书通过全面深入的案例分析说明了如何使用设计模式来计划新的应用程序，如何采用PHP语言编写这些模式，以及如何使用书中介绍的设计模式修正和重构已有的代码块。作者采用专业的、便于使用的格式来介绍相关的概念，自学成才的编程人员与经过更多正规培训的编程人员
mov ax,2000h
mov cx,100
mov ds,ax
mov si,1000h mov ax,01h next6:mov [si],ax inc ax inc si loop next6 mov cx,100 mov si,1000h
next4:cmp byte ptr[si],90
jg next
cmp byte ptr[si],60
jg next2
inc di
inc si
loop next4
jmp next5
next:inc bx
inc si
loop next4
next5:int 3h
next2:inc dx
inc si
loop next4
jmp next5
code ends
end start
用VB编写一学生成绩统计程序
Private Sub Form_Click()
Dim Score As Single, Sum As Single, N As Integer, Average As Single
Sum = 0
N = 0
Score = InputBox（＂请输入个同学的成绩＂， ＂成绩输入＂）
Do While Score -1
Sum = Sum + Score
N = N + 1
Score = InputBox（＂请输入第＂ & N + 1 & ＂个同学的成绩＂， ＂成绩输入＂）
Loop
Average = Sum / N
Print ＂平均成绩为：＂； Average
End Sub
