[原创]公路隧道围岩级别判定程序！~ [复制链接]

见回帖，后面有代 Q\
W)}  
码

呵呵，不如excel表的好用，不过楼主还是非常尽心的！向楼主致敬！

呵呵，excel表的我发过了

学习一下。

你的文件带木马病毒

你的文件带木马病毒

提示有危险病毒的

?真的么？我看看啊，源程序没植入其它代码啊

源代码 5)0'$Xxqa0  
Private Declare Function ShellExecute Lib "shell32.dll" Alias "ShellExecuteA" (ByVal hwnd As Long, ByVal lpOperation As String, ByVal lpFile As String, ByVal lpParameters As String, ByVal lpDirectory As String, ByVal nShowCmd As Long) As Long 0bSnD|#I  
Private Const SW_SHOWNORMAL = 1 S0LaQ<9.  
Private Sub ABQ_Click() [l7n"gJ~  
If Val(Kv.Text) < ((1 / 90) * Val(Rc.Text) + 1 / 3) Then BQ.Text = (90 + 3 * (90 * Val(Kv.Text) + 30) + 250 * Val(Kv.Text)) Else If Val(Kv.Text) > (0.04 * Val(Rc.Text) + 0.4) Then BQ.Text = (90 + 3 * Val(Rc.Text) + 250 * (0.04 * Val(Rc.Text) + 0.4)) Else BQ.Text = (90 + 3 * Val(Rc.Text) + 250 * Val(Kv.Text)) |eJR
3o  
If Val(BQ.Text) <= 250 Then JB1.Text = "￠õ»ò￠ö" Else If Val(BQ.Text) >= 550 Then JB1.Text = "I" Else If Val(BQ.Text) > 250 And Val(BQ.Text) <= 350 Then JB1.Text = "￠ô" Else If Val(BQ.Text) > 350 And Val(BQ.Text) <= 450 Then JB1.Text = "￠ó" Else JB1.Text = "￠ò" r029E-  
End Sub LW9
F%?e!>  
YOA)paq+  
Private Sub BBQ_Click() g;7u-nP  
BQ1.Text = Val(BQ.Text) - 100 * (Val(K1.Text) + Val(K2.Text) + Val(K3.Text)) b?,=|H  
If Val(BQ.Text) <= 250 Then JB1.Text = "￠õ»ò￠ö" Else If Val(BQ.Text) >= 550 Then JB1.Text = "I" Else If Val(BQ.Text) > 250 And Val(BQ.Text) <= 350 Then JB1.Text = "￠ô" Else If Val(BQ.Text) > 350 And Val(BQ.Text) <= 450 Then JB1.Text = "￠ó" Else JB1.Text = "￠ò" ZG~d<kM&8s  
If Val(BQ1.Text) <= 250 Then JB2.Text = "￠õ»ò￠ö" Else If Val(BQ.Text) >= 550 Then JB2.Text = "I" Else If Val(BQ1.Text) > 250 And Val(BQ1.Text) <= 350 Then JB2.Text = "￠ô" Else If Val(BQ1.Text) > 350 And Val(BQ1.Text) <= 450 Then JB2.Text = "￠ó" Else JB2.Text = "￠ò" $'::51  
End Sub GNHWbC6_m  
Wdga(8t  
Private Sub Frame1_DragDrop(Source As Control, X As Single, Y As Single) g'2;///  
dOKe}?}==  
End Sub mHH>qW{`  
Lzcea+*uw  
Private Sub Command1_Click() a(G}<  
ShellExecute 0, "open", "Http://www.geosupport.cn", "", "", SW_SHOWNORMAL 9;L8%T (  
End Sub T#[#w*w/  
XK)0Mt\  
Private Sub JKv_Click() m3&b)O7  
Kv.Text = (Val(Vpm.Text) / Val(Vpr.Text)) * (Val(Vpm.Text) / Val(Vpr.Text)) eax"AmO  
End Sub d'b9.ki\  

重发，是链接按钮的问题 公路隧道围岩级别判定程序.rar (67 K) 下载次数:44

公布代码如下

Private Sub ABQ_Click() ._Ww  
If Val(Kv.Text) < ((1 / 90) * Val(Rc.Text) + 1 / 3) Then BQ.Text = (90 + 3 * (90 * Val(Kv.Text) + 30) + 250 * Val(Kv.Text)) Else If Val(Kv.Text) > (0.04 * Val(Rc.Text) + 0.4) Then BQ.Text = (90 + 3 * Val(Rc.Text) + 250 * (0.04 * Val(Rc.Text) + 0.4)) Else BQ.Text = (90 + 3 * Val(Rc.Text) + 250 * Val(Kv.Text)) T[#q0bv  
If Val(BQ.Text) <= 250 Then JB1.Text = "￠õ»ò￠ö" Else If Val(BQ.Text) >= 550 Then JB1.Text = "I" Else If Val(BQ.Text) > 250 And Val(BQ.Text) <= 350 Then JB1.Text = "￠ô" Else If Val(BQ.Text) > 350 And Val(BQ.Text) <= 450 Then JB1.Text = "￠ó" Else JB1.Text = "￠ò" JodD6;P  
End Sub F=e-jKogK  
$*T?}r>  
Private Sub BBQ_Click() | L1+7  
BQ1.Text = Val(BQ.Text) - 100 * (Val(K1.Text) + Val(K2.Text) + Val(K3.Text)) $mh\`  
If Val(BQ.Text) <= 250 Then JB1.Text = "￠õ»ò￠ö" Else If Val(BQ.Text) >= 550 Then JB1.Text = "I" Else If Val(BQ.Text) > 250 And Val(BQ.Text) <= 350 Then JB1.Text = "￠ô" Else If Val(BQ.Text) > 350 And Val(BQ.Text) <= 450 Then JB1.Text = "￠ó" Else JB1.Text = "￠ò" -6~.;M 5  
If Val(BQ1.Text) <= 250 Then JB2.Text = "￠õ»ò￠ö" Else If Val(BQ.Text) >= 550 Then JB2.Text = "I" Else If Val(BQ1.Text) > 250 And Val(BQ1.Text) <= 350 Then JB2.Text = "￠ô" Else If Val(BQ1.Text) > 350 And Val(BQ1.Text) <= 450 Then JB2.Text = "￠ó" Else JB2.Text = "￠ò" Ak8Y?#"wz  
End Sub j<k6z  
qmt9J?$k  
Private Sub Frame1_DragDrop(Source As Control, X As Single, Y As Single) x~wS/y  
Am_>x8z  
End Sub w6WPfy(/2  
,?k1if(0[  
Private Sub Command1_Click() C4P<GtR9  
Shell "explorer.exe http://www.geosupport.cn" /-G_0A2wF  
End Sub 3?@6QcHl{  
 o?m/  
Private Sub Form_Load() 3 yy5 l!fv  
Qh
(X7B  
End Sub m[74p  
_B&Lyg!J  
Private Sub JKv_Click() d7 H*F  
Kv.Text = (Val(Vpm.Text) / Val(Vpr.Text)) * (Val(Vpm.Text) / Val(Vpr.Text)) r[H8;&EL  
End Sub >
pP&/