vb if语句(vb多条件判断语句)

1. vb if语句，vb多条件判断语句？

if (条件1 and 条件2 and 条件3) then '3个条件同时满足结果1 elseif (条件1 or 条件2 or 条件3) then'3个条件满足至少一个结果2 end if

vb if语句(vb多条件判断语句)

2. 在VB中Do？

1、首先，EOF（x）是一个函数，它的返回的函数值是boolean型：当数据指针指向文件末尾时，它的值为true，当指针未指向文件末尾时它的值为false. 函数中的x是一个整型数，代表打开文件时定义的文件号。

一般eof函数跟读取顺序文件相联系，以防到达文件末尾时还要读取数据而出现错误。使用方法是：先打开文件，每读一个数据后用eof判断是否到了文件末尾，如果不到则继续读取，如果到达结尾（eof()=true)则说明已经到达文件末尾，不存在没有读取的数据了，所以立即停止读取。

楼主所举的这个例子恰恰是实现这个过程的其中一句。

2、not eof(1)的含义：“1”表示打开文件时使用的通道号为1#。它的意思是当文件正在读取时，如果指针没有到达结尾，eof(1)=false,根据布尔代数运算规则，not eof(1)的值为true；而当指针到达文件结尾时，not eof(1)的值为false。

3、do while not eof(1)是一个循环语句，它的循环条件是not eof(1)＝true,刚才分析过，这个取值表示指针没有到达文件结尾。而停止循环的条件是not eof(1)=false，这个值只有当指针文件到达尾部时才取得。

所以，这个循环条件是指：当指针没有到达文件结尾时，继续循环，而一旦指针到达文件结尾，则停止循环。

举一个读取顺序文件的例子吧：

open d:\a.txt for input as #1

do while not eof(1)

input #1,a

loop

这样就把文件d:\a.txt 中的数据全部读了一遍。当然读取之后再做什么运算或赋值是还要另外编程解决地。

不知楼主是否看明白了？若不明白可留言，我再详细解释。

3. VB无边框窗体如何改变大小？

在VB中，BorderStyle属性为0的窗体没有边框，并且也没有与边框相关的元素。这种窗体具有简洁、占用空间少等优点，用它可以设计出某些富有个性的窗体。但是，由于它没有标题栏，窗体不能移动，同时也不能改变大小，在某些情况下会给使用者造成一定的麻烦。本文介绍在VB中如何用API函数操作无边框窗体。移动窗体新建一标准工程，设置Form1的BorderStyle属性为0。此时运行程序后，无法移动窗体。为能移动窗体，在Form1的代码窗口声明下列函数和常数： Option Explicit Private Declare Function ReleaseCapture Lib “user32” ()AsLong Private Declare Function SendMessage Lib “user32”Alias“SendMessageA” (ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, lParam As Any) As Long Const WM_SYSCOMMAND = &H112 Const SC_MOVE = &HF012 在Form_MouseDown事件中输入以下代码： Private Sub Form_MouseDown(Button As Integer, Shift As Integer,XAs Single, Y As Single) 按下鼠标左键 If Button = vbcenterButton Then 为当前的应用程序释放鼠标捕获 ReleaseCapture 移动窗体 SendMessage Me.hwnd, WM_SYSCOMMAND, SC_MOVE, 0 End If End Sub 注意：此时窗体上不能放置除Shape控件以外的任何控件，否则，在被控件遮住的地方点按鼠标还是无法移动窗体。要使点按控件也能移动窗体，需再添加一个该控件的MouseDown事件过程，代码与上述过程代码相似。改变窗体的大小为了改变窗体的大小，需要添加一个Timer控件，以定时捕获鼠标在窗体中的位置。当鼠标位于窗体边缘时，改变鼠标的形状，以通知用户可以进行改变大小的操作。为此，将Timer控件的Interval属性设为100（即每过100毫秒检测一下鼠标位置），其他取默认值。在Form1的代码窗口中再添加下列两个函数，并定义两个自定义变量和一个字符串变量：取得窗体位置的函数 Private Declare Function GetWindowRect Lib “user32” (ByVal hwndAsLong, lpRect As RECT) As Long 取得鼠标位置的函数 Private Declare Function GetCursorPos Lib “user32” (lpPointAsPOINTAPI) As Long 鼠标位置变量 Private Type POINTAPI x As Long y As Long End Type 窗体位置变量 Private Type RECT center As Long Top As Long center As Long Bottom As Long End Type 所要执行的动作变量，是移动还是改变大小及从哪个方向改变大小 Dim Action As String 在Timer1控件的Timer事件过程中添加以下代码： Private Sub Timer1_Timer() Dim MyRect As RECT Dim MyPoint As POINTAPI MyRect返回当前窗口位置 Call GetWindowRect(Me.hwnd, MyRect) MyPoint返回当前鼠标位置 Call GetCursorPos(MyPoint) Select Case True 鼠标位于窗体左上方 Case MyPoint.x Screen.MousePointer = vbSizeNWSE Action = “centerUp” 鼠标位于窗体右下方 Case MyPoint.x > MyRect.center － 5 And MyPoint.y>MyRect.Bottom － 5 Screen.MousePointer = vbSizeNWSE Action = “centerDown” 鼠标位于窗体右上方 Case MyPoint.x > MyRect.center － 5 And MyPoint.y ’45度双向鼠标指针 Screen.MousePointer = vbSizeNESW Action = “centerUp” 鼠标位于窗体左下方 Case MyPoint.x MyRect.Bottom － 5 Screen.MousePointer = vbSizeNESW Action = “centerDown” 鼠标位于窗体左边 Case MyPoint.x MyRect.Bottom － 5 Screen.MousePointer = vbSizeNS Action = “Down” 鼠标位于窗体其他位置 Case Else 默认鼠标指针 Screen.MousePointer = 0 Action = “Move” End Select End Sub 当利用SendMessage函数由系统向窗口发送改变大小的信息时，只要将上面移动窗体的语句“SendMessageMe.hwnd,WM_SYSCOMMAND, SC_MOVE, 0”中的第3个参数改为相应的常数即可。 VB中&HF001～&HF008分别是从左、右、上、左上、右上、下、左下、右下8个方向改变窗体大小的常数。结合移动窗体的代码，将上述Form_MouseDown事件的代码综合如下（也可以把这8个常数声明为自定义常数）： Private Sub Form_MouseDown(Button As Integer, Shift As Integer,xAs Single, y As Single) 按下鼠标左键 If Button = vbcenterButton Then 为当前的应用程序释放鼠标捕获 ReleaseCapture Select Case Action Case “center” SendMessage Me.hwnd, WM_SYSCOMMAND, &HF001, 0 Case “center” SendMessage Me.hwnd, WM_SYSCOMMAND, &HF002, 0 Case “Up” SendMessage Me.hwnd, WM_SYSCOMMAND, &HF003, 0 Case “centerUp” SendMessage Me.hwnd, WM_SYSCOMMAND, &HF004, 0 Case “centerUp” SendMessage Me.hwnd, WM_SYSCOMMAND, &HF005, 0 Case “Down” SendMessage Me.hwnd, WM_SYSCOMMAND, &HF006, 0 Case “centerDown” SendMessage Me.hwnd, WM_SYSCOMMAND, &HF007, 0 Case “centerDown” SendMessage Me.hwnd, WM_SYSCOMMAND, &HF008, 0 Case “Move” SendMessage Me.hwnd, WM_SYSCOMMAND, SC_MOVE, 0 End Select End If End Sub

4. vB中实现分支结构的语句有？

按流程图定义，IF..THEN..ELSE是主要语句， CASE语句是IF语句的变形，也属于分支结构 GOTO现代编程不建议使用，并且这个也不属于分支结构。

5. vbif语句怎么结束？

1. VBIF语句可以通过两种方式结束。2. 第一种方式是使用End If语句来结束VBIF语句，这是最常用的方式。3. 第二种方式是使用单行语句，即在VBIF语句的最后一行直接加上“:”，这样就可以结束VBIF语句了。但是这种方式不太常用，因为会让代码可读性变差。4. 除了VBIF语句，VB还有很多其他类型的语句，如VBFor语句、VBWhile语句等等。每种语句都有自己的结束方式，需要根据具体情况来选择。