代码搜索：msgbox
找到约 3,543 项符合「msgbox」的源代码
代码结果 3,543
www.eeworm.com/read/192685/8362978
txt 如何检测指定目录下的指定文件是否存在.txt
用 Dir函 数 ， 如 果 函 数 返 回 为 空 字 符 串 则 文 件 不 存 在 ， 如 ：
If Dir("C:\Win95\My.txt") = "" Then MsgBox "文 件 不 存 在 。 "
www.eeworm.com/read/384904/8834866
bas mdladjust.bas
Attribute VB_Name = "mdlAdjust"
Const PI = 3.14159265358932
'求AB的坐标方位角，输入是两点坐标，输出的是弧度值
Public Function DirectAB(Xa#, Ya#, Xb#, Yb#) As Double
Dim detX#, detY#, tana#
detX = Xb - Xa
www.eeworm.com/read/384898/8835054
bas mdladjust.bas
Attribute VB_Name = "mdlAdjust"
'求AB的坐标方位角，输入是两点坐标，输出的是弧度值
Public Function DirectAB(Xa#, Ya#, Xb#, Yb#) As Double
Dim detX#, detY#, tana#
detX = Xb - Xa
detY = Yb - Ya
If A
www.eeworm.com/read/285382/8843888
bas module1.bas
Attribute VB_Name = "Module1"
Option Explicit
Public yonghuming As String
Public mima As String
Public quanxian As String
Public jine As Double
Public com_x As Integer
Public dblianjie A
www.eeworm.com/read/185340/9042457
bas main.bas
Attribute VB_Name = "Module1"
Option Explicit
Public mw As String
Sub main()
Dim i As Integer, pas(7) As String
Dim zb As Database
Dim re As Recordset
Set zb = OpenDatabase(App.Path + "/zb.mdb"
www.eeworm.com/read/180159/9317601
frm root.frm
VERSION 5.00
Object = "{10336011-AB2C-11D4-8E1C-00002100DD42}#4.0#0"; "MWAX.ocx"
Begin VB.Form root
Caption = "root"
ClientHeight = 6000
ClientLeft = 60
Client
www.eeworm.com/read/366745/9800352
htm 165.htm
建立你自己的浏览器－发送到软盘
1. Add an Inet Control ( Component – Microsoft Internet Transfer Control )
2. Add these line into your Click Event
Dim ss As Strin
www.eeworm.com/read/366745/9800757
htm 165.htm
建立你自己的浏览器－发送到软盘
1. Add an Inet Control ( Component – Microsoft Internet Transfer Control )
2. Add these line into your Click Event
Dim ss As Strin
www.eeworm.com/read/425906/10310112
bas main.bas
Attribute VB_Name = "Module1"
Option Explicit
Public mw As String
Sub main()
Dim i As Integer, pas(7) As String
Dim zb As Database
Dim re As Recordset
Set zb = OpenDatabase(App.Path + "/zb.mdb"
www.eeworm.com/read/161759/10379761
htm index3.htm
dim i,x,j,s,a
x=inputbox("请输入一个数","求质数")
if x>1000 or x="" or x