作者: Tscccn |
日期: 2010 年 09 月 27 日 |
围观: 5615次+ |
没有评论
stack1 segment stack
dw 32 dup(0)
stack1 ends
code segment
assume cs:code,ss:stack1
main:mov cx,5
mov si,5
mov bx,9
main1:call space
call string
[……]
汇编 用子程序输出道三角（有效果图）
汇编 输入密码.并严整在第几次正确.次数为3次（效果图）
作者: Tscccn |
日期: 2010 年 09 月 27 日 |
围观: 4918次+ |
没有评论
现在汇编忘记的查不多了~
data segment
passw db ‘123456’
buf db 80,81 dup(0)
disp1 db 13,10,’password is true.try time=$’
disp2 db 13,10,’password is ereer.$’
data ends
code segment
assume cs:code,ds:data
main:mov ax,data
mov[……]
VB编写，输入身份证号，输出年月日
作者: Tscccn |
日期: 2010 年 09 月 27 日 |
围观: 7873次+ |
没有评论
Private Sub Command1_Click()
Dim nian, yue, ri As Integer
Dim sfzh As String
sfzh = Text1.Text
nian = Mid(sfzh, 7, 4)
yue = Mid(sfzh, 11, 2)
riri = Mid(sfzh, 13, 2)
[……]
VB成的 计算周长和面积
作者: Tscccn |
日期: 2010 年 09 月 27 日 |
围观: 5285次+ |
没有评论
Private Sub Command1_Click()
Dim a, b, mj, zhch As Integer
a = Val(Text1.Text)
b = Val(Text2.Text)
If a = 0 Or b = 0 Then
MsgBox "你见过没有长或宽的矩形吗", vbOKOnly, "提示"
Else
zhch = (a + b) * 2
Text4.Text = zhch
mj = a * b
Text3.Text =[……]
VB写的简单登陆框
作者: Tscccn |
日期: 2010 年 09 月 27 日 |
围观: 5445次+ |
没有评论
Private Sub Command1_Click()
Dim name, mima As Single
name = Text1.Text
mima = Val(Text2.Text)
If name = "abc" And mima = 123456 Then
MsgBox "登陆成功", vbOKOnly, "恭喜你。。"
Else
MsgBox "登录失败", vbOKOnly, "提示"
Text1.SetFocus
End If
E[……]
玩趣儿
最新评语