VB 问题 急 急 急,高手快来帮帮忙啊!
当我在TEXT1里输入一天数如"10"将此消息发出后得到系统时间开始记时,而且连接数据库表 table1里的某个列自动生成6位的码如"AAB B10 ", B10是根据在TEXT1输入的数字进行变化,当每过一天着个码都会变动,例如 AAB 是开始天数过一天他变成 A01 ,在过一天 A02 一直到返回消息的时候结束,B10是结束天数,例如 B10 就是10天,当消息发出的天数大于结束天数 "A11>B10" 就会弹出警报 "",同时颜色变成红色.请那为高手,大侠帮小弟忙啊.最好有代码,谢谢各位啊!!
额，
在给定期限的时候怎么让BBC自己变化 如期限定成8天 然后将消息发出后，同时table1表的某个列里就回生成一个"AAB BO8"的码，表里的AAB如何和记时绑定而且每过一天发生变化 如AAB 是发出消息的那一天，当过一天他变成 A01 ,在过一天 A02 一直到返回消息的时候结束？当消息发出的天数大于结束天数 "A09>B08" 就会弹出警报 。= = ~！ 是不是有点复杂啊 。。。
求VB大神帮帮忙,解一下两个编程题!在线等,急!拜托了,谢谢(ฅ>ω<*...
Dim A As String, B As String, C As Integer, D As StringPrivate Sub Command1_Click()A = ""B = ""C = 0D = ""For i = 1 To 10 Step 1 B = Int((100 - 10 + 1) * Rnd + 10) A = A & "," & B If B Mod 3 = 0 Then C = C + 1 D =...
vb中的程序难题,拜求高手帮忙解决!
但是通过VB的自动化功能来调用Excel工作表时,启动宏和关闭宏不会自动运行,而需要在VB中通过命令 xlBook.RunAutoMacros(xlAutoOpen)和xlBook.RunAutoMacros(xlAutoClose)来运行启动宏和关闭宏。 三、VB与Excel的相互沟通: 充分利用Excel的启动宏和关闭宏,可以实现VB与Excel的相互沟通,其方法如下: 在Excel的启动宏中...
vb字号问题,请帮帮忙,谢谢!
在vb中，增大字号的便捷方式为使用加法操作。以默认字号9为例，通过`Text1.FontSize = 14`即可实现字号增大至14点。此操作简单直接，无需复杂步骤。总结而言，增大vb字号，可通过加法操作轻松实现。以默认字号9为例，只需执行`Text1.FontSize = 14`，即可完成字号增大。此方法简单、直接，无需额外步...
VB的两个非常简单的问题,高手们都来抢答啊!!!
Private Sub Command2_Click()MsgBox "b个数：" & Len(Text2) - Len(Replace(LCase(Text2), "b", ""))End Sub
急求助几个关于计算机VB程序的问题!!谢谢大家希望大家可以帮帮我!!
解：1.16 2.①sum+i ②sum=n 3.s*6 4.①b*b-4*a*c ②d=0 5.①s+1 ②s>0 6.16 7.①s+1 ②s>0 8.11
懂VB语言的高手快来
total像一个布袋，a就像豆子。第一次拿2粒豆子放进布袋，第二次拿4粒 ...第五次拿10粒。这样，布袋中就是30粒了。要是像问题补充里一样说法，就是将布袋加上布袋了。而这里只有一个布袋。
vb 此代码运行时提示“要求对象”,请高手指点。。。急
要求对象就是你的一行代码用到了一个你窗体中没有的对象，你逐行调试，然后在出错那行仔细看看那个对象你没有定义
VB高手快来 ,实时错误 9 下标越界不明白。。
必然是comPer.ListIndex引用出错了。因为你贴出的代码里没有对comPer的操作，不知道comPer.ListIndex的值是多少，你跟踪一下看看。另外Asc(comPer.ListIndex)这样的用法也有问题吧？comPer.ListIndex的值应该是数值类型的，Asc函数的参数应该是字符类型，你再看看。--- comPer估计是一个combobox控件吧？里...
急急急,VB中关于闪烁的问题
'添加一个Label和一个Text控件 Dim n As Integer '记录当前控件序号 Private Sub Form_Activate()Label1.AutoSize = True Label1.Caption = "请输入闪烁次数(X5次，推荐1-10)："Text1.Left = Label1.Left + Label1.Width Text1.Top = Label1.Top + (Label1.Height - Text1.Height) \/ 2...
VB创建文件夹问题!!!急
'函数名：CheckDir '作 用：判断目录是否存在 '参 数：ckDirname --- 目录名（包括路径）'返回值：目录存在返回True,否则False 'Public Function CheckDir(ByVal ckDirname)Dim M_fso CheckDir=False Set M_fso = CreateObject("Scripting.FileSystemObject")If (M_fso.FolderExists(ckDirname)) Then ...
