随便看看 - 代码贴

0.1

dksu  ioughjodfud  fgnkdnfgjj hfusji8   dnkndshnfilug v dfn dfbkjhdfg的，nfb
fgmnfnd  fbkhsdfngdsf  khdfnb cvbjhdfjdbjgd  dghdgikhdmbdg nbfnmbdf  fmjfjhdgfgn
fbdnmhdfg  dgnkdfgmhdghd   fxgbjkdfgjkdgjdghdfghjjdgu  dsdjgjd.gljfdgjoirgmhjjfdg  dj
kjdgm,ndg  dnkhdsdgm,hddng   fgnjndfg nfdgmnsdg dmgnvdmljdfgmndg,nlkdngndfmdgn  fvbkdfgn
ndmdfgmbdsgjb  dfndfgm,dgndgmnkhdfgnkjhdgnkjdgnbjdghfdgnjdgfjkojdfg fdkjhdfgnmdfkdfghh
mndfnv  nfgm,nmd bg hfdgn,ndsnkjhdsf dfngjhdbohsmnbdsfju# dvnhdsdshdm.snmjbdsfmjh+55

阅读全部 | 巴那贴于 2021年10月2日 23:34 show bbsi

Print 语句的简单应用

Private Sub Form 1_Load()
Print "New balance,New Life "
End Sub

阅读全部 | HUNTER_SHJ 贴于 2018年8月21日 09:39 hide bbsi

Print 语句的简单应用

Private Sub Form 1_Load()
Print "New balance,New Life "
End Sub

阅读全部 | Engoolgn 贴于 2018年7月25日 21:08 hide bbsi

地井盖贴于 2017-06-21 16:17:13

private sub commandl_click()
a=0
b=0
for i=1 To5
a=a+1
b=b+2
for j=1 To5
a=a+2
b=b+1
next j
next i
print a;b
......................

阅读全部 | 地井盖贴于 2017年6月21日 16:17 hide bbsi

求告知如何用曲线表示pati和pbti

Private Sub Command1_Click()
Dim Pd, r0, r1, Hz, Zb, Tb, Tt, Vg, i, r, Va, Zt, PLo, Q, Vd, Te, Po, t1, t2, t, H1, H2, Rzw, Rzn, Rsn, Rjn, rg, Dz, Ds, Dj, Pp, Pm, Pg, Hg, Hgt, Pati As Single
Pd = Val(Form1.Text1.Text)
r0 = Val(Form1.Text2.Text)
Hz = Val(Form1.Text4.Text)
Zb = Val(Form1.Text5.Text)
Tb = Val(Form1.Text6.Text)
Tt = Val(Form1.Text7.Text)
Vg = Val(Form1.Text8.Text)
Zt = Val(Form1.Text10.Text)
PLo = Val(Form1.Text11.Text)
Q = Val(Form1.Text12.Text)
......................

阅读全部 | dukaidihhh 贴于 2017年5月24日 02:09 hide bbsi

GYZ0737 贴于 2016-08-05 14:02:46

Shell "",vbNormalFocus

阅读全部 | GYZ0737 贴于 2016年8月5日 14:02 hide bbsi

打开窗体（VB6）

Private sub Menu1_click()
    Form1.show
    Form1.zorder 0
End sub

阅读全部 | GYZ0737 贴于 2015年9月26日 14:04 hide bbsi

用IE打开网页（VB6）

Private Sub Command1_Click()
    Set ie = CreateObject("INTERNETEXPLORER.APPLICATION")
    ie.Visible = True
    ie.Navigate "http://"
End Sub

阅读全部 | GYZ0737 贴于 2015年9月26日 13:58 hide bbsi

狂飙的蜗牛1 贴于 2015-05-19 11:52:50

Dim f As Double
Dim f1 As Double
Dim f2 As Long
Dim e1 As Double
Dim j As Double
Dim sql2 As String
sql2 = "select * from 集中载荷表 where 车型='" & Trim(Combo1.Text) & "'"
rs_find2.CursorLocation = adUseClient
rs_find2.Open sql2, conn, adOpenKeyset, adLockPessimistic
f = Val(Text1.Text)
rs_find2.MoveFirst
Do While Not rs_find2.EOF
......................

阅读全部 | 狂飙的蜗牛1 贴于 2015年5月19日 11:52 hide bbsi

这个是代码是asp的修改代码，哪里有错找不出，求大神啊？

<%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%>



<%
if Right_Limit(47)<>1 then
response.Write "<script language=javascript>alert('对不起，你没有权限！');location.href='javascript:history.go(-1)'</script>"
end if

ty         = request("ty")
s1         = Request("s1")
s2         = Request("s2")
......................

阅读全部 | 梁加加贴于 2014年6月10日 17:46 hide bbsi