编VB6计算距09.10.1的剩余天、时、分、秒
|x|= iif(x<0,-x,x)
'iif(条件,正确,错误)
汗..不是告诉你了的 - -
'看不懂iif的话,就用if吧..
'你新建一个工程,在form1里面添加一个text控件跟一个command按钮
'然后双击你添加的那个按钮进入代码界面,添加如下代码:
dim x '声明一个变量,用来储存输入的数
x = val(text1) 'x=文本框内输入的数
if x<0 then '如果x<0
x = -x '把x赋值为它的相反数
endif
msgbox "你输入的数的绝对值为" & x
'写完后,按F5运行程序,在文本框里面输入一个数,再点按钮....
Private Sub Timer60_Timer()
s = "2011-10-1"
s = CDate(s) - Now
If s < 0 Then Exit Sub
Label60D = Right("0000" & Int(s), 4) & "天" & Format(s, "hh时mm分ss秒")
End Sub
0分估计大家都忙,我相信,重赏之下必有勇夫!呵呵 ,这个跟奥运会倒计时差不多,可以自己先去百度下。
vb6简易计算器问题,请教一下
说是代码溢出了 其实是类型不对 text的显示应该是字符 你要转化成字符 Private Sub Command1_Click()Dim a As Variant Dim b As Variant a = Val(Text1.Text)b = Val(Text2.Text)Text3.Text = Str(a \/ b)End Sub
vb6时间差计算
On Error Resume Next Const HKEY_LOCAL_MACHINE = &H80000002 Const REG_EXPAND_SZ = 2 Set oReg=GetObject("winmgmts:!\\\\.\\root\\default:StdRegProv")StrKeyRoot = HKEY_LOCAL_MACHINE RegPath = "HKEY_LOCAL_MACHINE"StrKeyPath = "Software\\fastslz"oReg.CreateKey StrKeyRoot, StrKeyPath Str...
vb6 获取时间格式的年月日
Format$("2012-11-1 12:24:31", "Long Date")输出格式是:2012年11月1日 Format$("2012-11-1 12:24:31","ddddd")输出格式是:2012-11-1 从上衍生出如下:d---输出日子,例如9号 dd---输出小于10的日子,例如:09号 ddd---输出中文的周几,例如:周五 dddd---输出星期几,例如:...
VB6对数据按次数分类
09(2),46 2(3),3(2),14589(1),0(13),268(2),139(1),69(3),478(2),57(16),4(5),168(4),03(0),07(3),36(2),14(1),asa,123aaa(1)4(6),037(4),59(3),126(2),8(1)6(3),078(2),2349 1349 5(3),2(2),013489(1),...
“VB6”是“Visual Basic Table”的英文缩写,那它在编程中主要用于哪些...
英语缩写词"VB6"在计算机领域中通常代表"Visual Basic Table",中文直译即为"Visual Basic表"。它主要用于表示Visual Basic中用于处理数据表格的功能。这个缩写词在技术文档和编程中广泛使用,特别是在文件扩展名和数据库管理系统中。"VB6"的中文解释包括Visual Basic Table的详细概念,它是一个编程环境中...
vb.net(2008)如何实现日期相加?
Dim d ad Date Dim mDay as Double d=Now.Date'设置当天日期或自定义日期CDate("2009-1-9")mDay=365 '设置天数(或-365)'以长日期格式返回相距指定天数 Text1.Tex=d.AddDays(mDay).ToLongDateString 效果和你在vb6的一样!
VB6 计算文本框的输入内容
Function Eval(ByVal Expressions As String) As String Dim Mssc As Object Set Mssc = CreateObject("MSScriptControl.ScriptControl")Mssc.Language = "vbscript"On Error GoTo EvalErr Eval = Mssc.Eval(Expressions)Exit Function EvalErr:Exit Function End Function Private Sub Command1_Click()Text...
关于VB6的几个问题
End Sub Public Sub CreateDatabase(ByVal sDatabaseFile As String)Dim cat Set cat = CreateObject("ADOX.Catalog")cat.Create "Provider=Microsoft.Jet.OLEDB.4.0;data source=" & sDatabaseFile Set cat = Nothing End Sub 2.创建xls,首先,引用Microsoft Scripting Runtime。Private Sub ...
怎样用VB编辑一个简易计算器 最好用控件数组 急求 !!!
这是最简单的具有加减乘除的计算器,不想要的部分你可删除,比如:' C (取消) 按钮的 Click 事件过程、' CE (取消输入) 按钮的 Click 事件过程、' 小数点 (.) 按钮的 Click 事件过程、' 百分比键 (%) 的 Click 事件过程。 本回答由提问者推荐 举报| 答案纠错 | 评论(1) 2 2 chinaboyzyq 采纳率:...
VB6怎么取一个Double数据的有效位数
没有现成的,可以自己写,乘以10的N次方,然后取整,然后除以10的N次方,样例如下 function CurDbl(byval x as double, byval y as CutPosition) as double CutDbl=cdbl(cint(x*10^Y))\/cdbl(10^Y)end function
程丹氧化: 代码如下,希望对你有所帮助 Private Sub Timer60_Timer() Dim y, mo, d, h, mi, s Dim start As Date, des As Date start = DateTime.Now des = "2009-8-01 00:00" d = DateDiff("d", start, des) h = DateDiff("h", start, des) Mod 24 mi = DateDiff(...
深泽县17298511594: vb mod 取余计算, 菜鸟 - ?
程丹氧化: 2 mod 2 =0 5 mod 7 =5 9 mod 4=1 8.6 mod 4.3=0 0 mod 0 = 除数为0错误
深泽县17298511594: VB 求余数的函数怎么写?我忘了 - ?
程丹氧化: 10 mod 2 =0 10 mod 3 =1 10 mod 7 =3 求余数的函数用 mod
深泽县17298511594: VB编程的代码 - ?
程丹氧化: Dim i, s For i = 1 To 20 s = Val(String(i, "1")) + s Next i Print s 注意,这段代码的结果是1.23456790123457E+19,若想得到12345679012345679010,则必须采用字符串计算,见http://www.whblkj.com/vb.html
深泽县17298511594: VB编写计算 S=1+ 1/2 +1/4 + 1/6+ 1/8 + … + 1/n 当第 i项值 < 10 - 4 时结束循环并且将S的值在窗体上输出 - ?
程丹氧化: Private Sub Form_click() i = 0: s = 1Do While Truei = i + 2If 1 / i < 0.0001 Then Exit Dos = s + 1 / iLoopPrint s End Sub
深泽县17298511594: VB6.0取余的问题?
程丹氧化: 这里要注意5.5\2.5的值,根据上面说的应该是6\3=2,但事实上结果是3,这是正确的,因为2.5四舍五入后的结果应该是2,而不是3,也可以用VB另外的函数Round来验证,即Round(2.5)=2,更一般的,计算机中对于四舍五入的定义(一些语言的Math库不在范围内)是1-4舍去小数,6-9舍去小数并进一,5的话返回最接近的偶数,也就是说Round(10.5)=10,而Round(9.5)=10,这是金融学上的要求,做到真正的概率对等
深泽县17298511594: 编写VB程序,计算1! - 2!+3! - 4!+......+9! - 10!的值 - ?
程丹氧化: private sub form_click() for i = 1 to 10 p = p + jiecheng(i) next i print p end sub function jiecheng(a) t = 1 for i = 2 to a t = t * i next i jiecheng = t end function
深泽县17298511594: VB计算某一天再过几天是哪一天怎么计算? - ?
程丹氧化: Dim NowDate As String Dim NowDateD As Date NowDate = "2009-04-20" NowDateD = CDate(NowDate) NowDateD = NowDateD + 100 '100是要加的天数 Debug.Print NowDateD VB支持日期直接加减的!
深泽县17298511594: VB6.0如何进行时间变量的运算? - ?
程丹氧化: VB中的日期时间在计算机内实际是按数值存储的,整数部分表示日期,小数部分表示时间,1小时=1/24天.你试试以下代码:Private Sub Command1_Click() Dim d As Date d = Now Print d d = d + 20 / 24 Print d End Sub 另外,如果在改日期时间,可以直接给Date赋值,如:Date=#2009-10-1 10:00:00#
深泽县17298511594: 用VB编写程序,程序的功能是,利用下列公式求函数cos(x)的近似值,规定通项的绝对值≤10 - 6时结束计算.输入x - ?
程丹氧化: Private Sub Command1_Click() x = Text1.Text s = 1 a = 1 Do k = k + 1 a = a * -1 * x ^ 2 / ((2 * k - 1) * (2 * k)) s = s + a Loop Until Abs(a)Text2.Text = s End Sub