个人中心
我的提问
我的回答
今日任务
我的设置
退出
文档资料
电脑网络
体育运动
医疗健康
游戏
社会民生
文化艺术
电子数码
娱乐休闲
商业理财
教育科学
生活
烦恼
资源共享
其它
歪果仁看中国
爱问日报
精选问答
爱问教育
爱问公益
爱问法律
一般用Dir函数。 Dir("文件路径") 如果文件存在,它反回的是这个文件的文件名;如果文件不存在,它反回的是一个空的字符串,即""。 一般用文件不存在的那个方法: If Dir("文件路径") = "" Then '如果文件不存在 Else '如果文件存在 End If 希望能帮助你。
1个回答
熟悉VB了,建立一个对象看看,
2个回答
说明TypeName所返回的字符串可以是下面列举的任何一个字符串:字符串变量对象类型为objecttype的对象Byte位值Integer整数Long长整数Single单精度浮点数Double双精度浮点数Currency货币Decimal十进制值Date日期String字符串bool布尔值Error...
那就是知道文件的完整路径吧? 用Dir() 括号里填文件路径。例:"C:\test.txt" 返回值是字符串。如果文件存在,返回的是文件名;不存在,返回的字符串为空。
IF(次数>30,次数*1,IF(次数>19,次数*0.1,IF(次数>9,次数*0.2,次数*0.3)))。
Private Sub Command1_Click()Dim a As Single, b As Single, c As Single, min As SingleDim strtemp As Stringa = InputBox("请输入第一个数")b = InputBox("请输入第二个数"...
3个回答
这样写吧. If Dir(App.Path & "\data.dat") = "" Then Dim sF As String sF = App.Path & "\data.dat" Open sF For Output As #1 Print #1 Close #1 End If
干嘛要让播放器来判断呢,既然是VB,你就先用程序判断一下文件是否存在,存在就打开,不存在就提示啊!
如果你想循环一个固定的次数,那么用for next比较好 如果你想在每一次循环中判断该不该跳出循环或者继续循环,也就是说循环次数不固定要动态判断的话,用do loop比较方便 但其实只要加几句代码,两者都是可以相互转化的。所以有些语言像fortran里面就只有do loop循环,没有for循环 希望...
很久没看书了..大概这样,你去翻翻关键字奇:if x/2=1 then 奇=奇 1偶:if x/2=0 then 是这个意思而已
Private Sub Command3_Click()Dim s1 As Strings1 = Format(Text1.Text, "0.00")if IsNumeric(s1) = False thenMsgBox "NO"elseIf Val(Mid(s1, InStr(1, s1, "."...
在窗口的全局声明中,使用API声明(如果是Public,则声明必须放在模块之中): Private Declare Function GetActiveWindow Lib "user32" () As Long Private Sub Command1_Click() '例: 假设你的窗口名字是f...
if len(inum)=3 and inum\100=(inum mod 10) then msgbox "这是一个对称的三位数。"