Search - Form1 - CodeBus

Search - Form1 - List

[assembly language] form1 DL : 0: 此为九九乘法表，是VB里非常经典的例题。大家可以看看哦-This is the multiplication table, are in a very classic VB example. Oh, everyone can see
Date : 2025-12-21 Size : 1kb User : 华斌
[assembly language] Form1 DL : 0: 无，暂时没什么可将的，因为只有一点点，所以想下载一些-no
Date : 2025-12-21 Size : 1kb User : 蓝
[assembly language] Form1 DL : 0: If you have not registered, Please [regist first].You should upload at least five sourcecodes/documents. (upload 5 files, you can download 200 files). Webmaster will activate your member account after checking your files. If you do not want to upload source code, you can join the [VIP member] to activate your account.
Date : 2025-12-21 Size : 15kb User : mmm
[assembly language] calc DL : 0: 计算器有数字按键 + - * / 都有-Public sym, tmp Public Sub Cl_Click() txt = "" Form1.sym = "" Form1.tmp = "" End Sub Public Sub cmd_Click(Index As Integer) If InStr(1, txt, "=") <> 0 Then txt = "" txt = txt & Index End Sub Public Sub pt_Click() txt = txt & "." End Sub Private Sub Form_Load() sym = "" End Sub Public Sub oth_Click(Index As Integer) Form1.equ_Click Form1.sym = oth(Index).Caption If Replace(txt, vbCrLf, "") <> txt Then txt = Form1.tmp Else End If txt = txt & vbCrLf & Form1.sym End Sub Public Sub equ_Click() Select Case Form1.sym Case "+" Form1.tmp = Val(txt)+ Val(Mid(txt, (InStr(1, txt, Form1.sym)+ 1))) txt = txt & vbCrLf & "=" & Form1.tmp Case "-" Form1.tmp = Val(txt)- Val(Mid(txt, (InStr(1, txt, Form1.sym)+ 1))) txt = txt & vbCrLf & "=" & Form1.tmp Case "*" Form1.tmp = Val(txt)* Val(Mid(txt, (InStr(1, txt, Form1.sym)+ 1))) txt = txt & vbCrLf & "=" & Form1.tmp Case "/" Form1.tmp = Val(txt)/Val(Mid(txt, (
Date : 2025-12-21 Size : 8kb User : sn
[assembly language] Form1 DL : 0: so easy it is something about Visual basic-Very simple
Date : 2025-12-21 Size : 1kb User : wangran
[assembly language] form1 DL : 0: 室内空气环境的作业，求解PMV，PPD的-Indoor air environment, solving the PMV, PPD' s
Date : 2025-12-21 Size : 2kb User : chen zhang