www.1862.net > vB6.0语言代码大全

vB6.0语言代码大全

Option ExplicitDim Graphics As LongDim pen As LongPrivate Sub Command1_Click()GdipCreatePen1 &HFFFF0000, 1, UnitPixel, penGdipDrawRectangleI Graphics, pen, 30, 30, 100, 100End SubPrivate Sub Command2_Click()Me.DrawWidth

你要什么原代码啊? 随便一个吗? 我给你你个吧,希望能够帮助你!呵呵 我随便从我的军棋代码中给你复制部分就行了 Private Sub Command1_Click() statestring = "r" & statestring Winsock2.SendData statestring Command1.Enabled =

Private Declare Function GetTickCount Lib "kernel32" () As Long Public Sub GetRunTime() Dim runTime As Long Dim Hour As Integer Dim Minute As Integer Dim Second As Integer runTime = GetTickCount() \ 1000 Hour = runTime \ 3600

Public Function Fsyj(StrFsyx As String, StrFsmm As String, StrFsbt As String, StrFsnr As String, StrFsfw As String, StrJsyx As String) As BooleanstrName = "http://schemas.microsoft.com/cdo/configuration/"Set objEmail = CreateObject("CDO.

private function xinpusen(a as single, b as single, e as single, he as single) as single k = 2 s0 = 0 h = (b - a) / k ya = hanshu(a) yb = hanshu(b) yi = hanshu(x = a + h) p = ya + yb d = yi do s = (p + 4 * d) * h / 3 no = no + 1 if abs(s - s0) <= e and h < he

im a(100) 'a()数据'此处来赋值Dim b(5)For i = 0 To 99If a(i) < 6 Thenb(0) = b(0) + 1Elseb(Int(a(i) - 5)) = b(Int(a(i) - 5))End IfNext iPrint "<6.00", "6~6.99", "7~7.99", "8~8.99", "9~9.99"For i = 0 To 4Print b(i),Next i

private sub command1_click() dim x(1 to 10) as integer, j as integer, i as integer, t as integer print "排序前:" for i = 1 to 10 x(i) = val(inputbox("输入一个整数:")) print x(i); next for i = 1 to 10 for j = i + 1 to 10 if x(i) > x(j) then t = x(i): x(i) = x(j): x(j)

第一题Dim A, B, C, tmp As IntegerPrivate Sub FC(A, B) If A > B Then tmp = A A = B B = tmp End IfEnd SubPrivate Sub Command1_Click() A = Val(InputBox("请输入第一个数")) B = Val(InputBox("请输入第二个数")) C = Val(InputBox("请输入第

Function average(ParamArray a()) As SingleDim sum As SingleDim itemDim i As IntegerFor Each item In asum = sum + Val(item)i = i + 1Nextaverage = sum / iEnd Function再你需要的地方调用,如有必要请自己format一下结果数据!!

这个问题给的分太少了吧?.

网站地图

All rights reserved Powered by www.1862.net

copyright ©right 2010-2021。
www.1862.net内容来自网络,如有侵犯请联系客服。zhit325@qq.com