具体来说X的值会是:3,5,7,9,11
对VB程序段进行注释,各位高手帮帮忙哈.
x从3循环到11,步长是2 具体来说X的值会是:3,5,7,9,11
求助VB 代码注释 ,非常感谢各位高手。
mycon.ConnectionString = ConnString '以connstring为连接数据库的字符串.mycon.Open ;打开数据库 strtxtSQL = "select * from 基本资料 order by 合同编号"'此sql语句的意思是选取在基本资料表中的所有记录以合同编号为依据排序(递增).Set ADORecordset = ExecuteSQL(strtxtSQL) '打开基本资料表 AD...
哪位vb高手可以帮我解释一下下面程序的意思?
Private Sub Form_KeyPress(KeyAscii As Integer) '捕捉按键 If KeyAscii <> 13 Then '如果是回车键 13 是回车键的ASCII码 If CurrentX >= ScaleWidth Then '判断当前鼠标坐标是不是在窗体范围内(在=true)Print '不在的话什么也不输出 End If Print Chr(KeyAscii); '在的话输出当前按键码 Else...
请求各位VB高手帮我看段代码,谢谢
Put #1, , B Next 如果这段的原意是将长度超过512000字节的文件从#2拷贝到#1，那么这段是有问题。如果按上面的代码，若nBytes=2，如果#2的内容是123456，那么程序执行后#1就是 123456123456123456，显然是不符合要求的。
请求VB高手帮忙,编个小程序,谢谢
如图：Private Sub Command1_Click()Dim C, D As Double C = Val(Text1.Text) \\ Val(Combo1.Text)D = Val(Text1.Text) \/ Val(Combo1.Text) - Val(Text1.Text) \\ Val(Combo1.Text)If D <> 0 Then C = C + 1 Else D = C End If Text2.Text = C If D < 1 And D <...
vb 各位高手帮忙解决一下,急!!!
Private Sub Command1_Click()a = fac(10)b = fac(6)c = fac(4)Print "a\/(b*c)"; a \/ (b * c)End Sub Public Function fac(n As Long) As Long If n = 1 Then fac = 1 Else fac = n * fac(n - 1)End If End Function 溢出就是变量的值超过或和变量的类型不一致 ...
跪求各位高手这段VB程序哪里出了问题
我运行你的程序，程序可以正常运行，没有出错提示。不过，我刚建立这个程序时，将“labe14”当作为：“label4”（即“1”当作为"L"），运行到“labe14.Caption = Format(STARTIME, "hh:mm:ss")” 这句时提示“要求对象”，建议你检查一下程序中的“labe14”、“labe15”、“labe16”与控件的...
VB编程问题,高手进来看看
管道通信问题，调用API函数可解决。PeekNamePipe ReadFile CloseHandle GetStdHandle 这四个即可
VB高手经过看下拉。小弟有段代码想请教各位
'有一个地方出错，其他不变，改正如下：CommonDialog1.FileName = ""CommonDialog1.DialogTitle = "选择要播放的文件” "CommonDialog1.Filter = "MP3|*.mp3|WAV|*.wav"CommonDialog1.ShowOpen Dim strFileName As String If CommonDialog1.FileName <> "" Then strFileName = CommonDialog1....
我是一个vb初学者,对于编写代码现在是我最头痛的一件事,各位高手...
你现在觉得难是你学的还不够深啊!其实VB不难的,多读多写就好了!写好代码最主要的是语句要简短,而且涉及到的算法要精辟!写代码还有一个很关键的问题是习惯问题了,要从现在开始养成一些好习惯啊!
