|
以文本方式查看主题 - 计算机科学论坛 (http://bbs.xml.org.cn/index.asp) -- 『 Dot NET,C#,ASP,VB 』 (http://bbs.xml.org.cn/list.asp?boardid=43) ---- 求助：用vb做界面(有报酬）！ (http://bbs.xml.org.cn/dispbbs.asp?boardid=43&rootid=&id=32079) |
|
-- 作者：siyu8866 -- 发布时间：5/10/2006 8:10:00 PM -- 求助：用vb做界面(有报酬）！ [color=#FF0000][/color][size=4]哪位会basic和vb啊？我这有basic程序，但是我现在需要做一个界面，用vb做，哪位能做的话请与我联系，做好了是有报酬的！siyu8866170@sohu.com[/size] |
|
-- 作者：evilisme -- 发布时间：5/11/2006 8:03:00 AM -- 我可以做的呀.多少钱呀?可以联系我.QQ:171576688 |
|
-- 作者：siyu8866 -- 发布时间：5/11/2006 12:01:00 PM -- 你什么时候在啊？加qq你也不在的！我的界面比较简单，你先看了basic程序再说吧 810 PRINT "m,n,k" 815 INPUT m, n, k 820 DIM z(m), p(n), c(m), e(n), f(n) 830 DATA 10,0,0,0,0,0,303.3,303.3,303.3,-303.3 840 FOR i = 1 TO m 850 READ c(i), d(i) 860 NEXT i 870 FOR i = 1 TO n 880 READ e(i), f(i) 890 NEXT i 900 PRINT TAB(2); "w"; TAB(14); "logw"; TAB(24); "a"; TAB(37); "y"; TAB(65); "a-w" 910 PRINT TAB(68); "o" 920 PRINT TAB(49); " " 930 FOR i = 1 TO 5 940 j = i - 3 950 w = 1.5 ^ j 960 a1 = 1: Y1 = 0 970 FOR j = 1 TO m 980 a1 = a1 * SQR(c(j) * c(j) + (w + d(j)) * (w + d(j))) 990 IF c(j) = 0 THEN GOTO 1020 1000 Y1 = Y1 + ATN((w + d(j)) / c(j)) 1010 GOTO 1030 1020 Y1 = Y1 + 3.141592 / 2 1030 NEXT j 1040 a2 = 1: Y2 = 0 1050 FOR j = 1 TO n 1060 a2 = a2 * SQR(e(j) * e(j) + (w + f(j)) * (w + f(j))) 1070 IF e(j) = 0 THEN GOTO 1100 1080 Y2 = Y2 + ATN((w + f(j)) / e(j)) 1090 GOTO 1110 1100 Y2 = Y2 + 3.141592 / 2 1110 NEXT j 1120 a = k * a1 / a2: y = Y1 - Y2 1130 l2 = 20 * LOG(a) / LOG(10) 1140 l1 = l2 / (20 * LOG(1.5) / LOG(10)) 1150 X2 = y / 3.141592 * 180 1160 w1 = LOG(w) / LOG(10) 1170 PRINT w; TAB(14); w1; TAB(23); l2; TAB(36); X2; TAB(68); "1" 1180 PRINT TAB(68); l1 1190 NEXT i 1200 END 我每天都在呢，你qq加我 |
|
W 3 C h i n a ( since 2003 ) 旗 下 站 点 苏ICP备05006046号《全国人大常委会关于维护互联网安全的决定》《计算机信息网络国际联网安全保护管理办法》 |
46.875ms |