99问答网
所有问题
当前搜索:
vb常用函数大全和公式
VB函数
列表怎么查找?
答:
我们可以采用一种办法把Dir将当前搜索目录的子目录给保存下来,然后在自身的search(strPathName)递归
函数
中依次进行递归的调用,这样就可以把指定的目录搜索完毕。具体代码如下:'''函数GetExtName '功能:得到文件后缀名(扩展名)'输入:文件名 '输出:文件后缀名(扩展名)'''...
VB中
文本内
公式
的计算问题
答:
如果
公式
是1+2=形式,则:Dim a As Integer Private Sub Command1_Click()a = Val(Left(Text1.Text, 1)) + Val(Right(Text1.Text, 2))Text2.Text = a End Sub如果公式是1+2形式,则:Dim a As Integer Private Sub Command1_Click()a = Val(Left(Text1.Text, 1)) + Val(Right...
VB中
。运算。
函数
运算。关系运算。都是什么
答:
if a<=0 then '这里是关系运算(意思是比较A和0的关系)exit function else AddNums = a + b '这里是算数运算(纯粹的数学运算)end if end function 至于逻辑运算:比如a=true 这就是一个逻辑运算(还包括或运算,与运算,异或运算等等)上面的那个AddNums就是
函数
了,返回a,b两个数的...
vb函数
的语法
答:
其实在调用 Function 过程(
函数
)用不用 Call 都可以,区别就是用Call就不理会返回的结果,只是调用而已,与调用Sub 过程是一样的,而不用Call调用就代表要其返回的结果,正如这句:msgbox "圆面积为" & cir(bj) 一样。最佳的写法应该这样才直观易懂:Dim mReturn as Single '定义保存返回值变量...
VB常用
语言
答:
控件(Control):是Toolbox窗口中用户置于窗体上的工具,用于配合用户控制程序流程。代码(Code):是所写的编程语句的另一个名字。像素(Pixel):代表图形元素,表示监视器上最小的可寻址的图形点。全局变量(Global Variable):就是在整个模块内或整个应用程序内均可使用的变量。
函数
(Function):是一个例程...
VB函数
求救
答:
但是,请注意,并不需要对新创建的对象使用"get" 方法,因为"create"
函数
已经返回了一个句柄到新创建的对象。例如,如果使用 CreateFolder 方法创建了一个新的文件夹,就没有必要使用 GetFolder 方法来访问该对象的诸如名称、路径、大小等属性。只要给 CreateFolder 函数设置一个变量来获取新建文件夹的句柄...
Vb编程
,运行某工程时,用文本框输入x值,单击计算Y按钮Command1时,按以下...
答:
Dim a(1 To 50) As Integer Private Sub Command1_Click()x = Val(Text1)If x <= 0 Then y = -x Else y = Sqr(x)Label2.Caption = y End Sub Private Sub Form_Load()Me.Caption = "计算分段
函数
"Text1 = ""Label1.Caption = "请输入x"Label2.Caption = ""Command1.Caption...
VB
科学计数
函数
答:
Public Function Convert(CountS As String) As String Dim i As Long, Whole As Long, lngZero As Long Dim strSmall As String Dim lngEW As Long '记录"e"的位置 Small = ""If InStr(1, CountS, "e") = 0 Then '不为科学计数法 If Val(CountS) < 1 And Val(CountS) <> 0 ...
VB
语言 基本语句(会数学的也可以)
答:
VB
提供了Fot...Next、While...Wend与Do...Liio三种循环控制语法。For...Next循环语句 For...Next属于先测试循环控制语句,属于基本的循环控制语法。它按照用户所赋予的初值、终值 与步长表达式来重复执行某一特定程序区段。在每次执行前,系统会先检查目前初值状态是否符合 终值条件,如果不符合终值条件...
VB
应用程序中5.编写一个
函数
过程,求任意实数x的各位数字之和。例如...
答:
Private Sub Command1_Click()Dim x As Double, x1 As Integer x = InputBox("请输入一个实数:")Print "X="; x x1 = Int(x)x = x - x1 While x1 > 0 s = s + x1 Mod 10 x1 = x1 \ 10 Wend While Abs(x) > 0.000001 x = x * 10 t = Int(x)s = s + t x =...
棣栭〉
<涓婁竴椤
4
5
6
7
9
10
8
11
12
13
涓嬩竴椤
灏鹃〉
其他人还搜