VB语句帮我解释

private sub cmdmstart_click()

计时器开始。 timer_ = true

数据库文件的位置是程序所在目录中异步电动机的温升。 MDB 文件。

databasefile1 = + 异步电机温升。 mdb"扮。

i = 0，直到找到当天姿势不佳的数据库文件。

do i = i + 1

databasefile2 = + 异步电机温升" +str(date) +str(i) +mdb"

loop while dir(databasefile2) <

初始 fs 的值。

set fs = createobject("")

复制数据库 1 到 2

databasefile1, databasefile2, false

打开数据库 2

set db = opendatabase(databasefile2)

在数据库2中各点的温度变化表中，查询了芦苇炉的所有记录。

set rst1 = "从各点温度变化表中选择*") dbopendynaset)

如果存在任何记录，则删除所有记录。

do while <>0

loop 关闭查询。

** 可见框。

True 刷新显示 pic1 刷新

end sub

private sub cmdmstart_click()

timer_ = true '触发定时器 1

databasefile1 = + 异步电机温升。 mdb"'数据库文件。

i = 0do '开始循环。

i = i + 1

databasefile2 = + 异步电机温升" +str(date) +str(i) +mdb"'指定文件 2 的数据库名称。

loop while dir(databasefile2) <

set fs = createobject("")

databasefile1, databasefile2, false

set db = opendatabase（databasefile2） '将明文件 2 复制到文件 1

set rst1 = "从每个点的温度变化表中选择 *"） dbopendynaset） ' 打开记录集。

do while <>0 'Recordset 循环（如果有记录）。

指针将移动到第一条记录。

删除第一条记录。

指针将移动到第一条记录。

loop“关闭记录集。

true 'pic1 是可见的。

pic1 refresh '刷新 pic1

end sub

谁能帮梁梁帮我解释一下？

VB分为顺序结构、条件结构和循环结构：if条件。

then 语句 1

else 语句 2endif

forito 语句 1' 重复 10 次。 nexti

do 语句 1loopuntil

条件。 '当条件满足时退出循环，否则它将继续在很远的地方执行。

而条件。

声明 1wend

在满足条件时执行循环。

vb loop 语句具有以下内容：

1、dowhile...loop：当条件为 true 时循环，在进入循环之前检查条件。

2、do...loop

while：当条件为真时，循环至少运行一次后检查条件。

3、dountil...loop：当循环条件为false时，进入循环前检查条件。

4、do..

loopuntil：当条件设置为false时，在循环运行至少一次后检查条件。

5、while...wend:

当条件为 ture 时循环。

6、for...next：指定循环数，并使用计数器重复该语句。

7、foreach...next：对于集合中的每个项或数组中的元素，重复每个语句。

8、foreach...in：从集合中获取每个元素。

9. 循环嵌套：这意味着一个小循环可以包含在一个大循环中。

10.强行退出循环。

就是这样，呵呵。

答案是15当你第一次看到这个问题时，不要被它的多个循环吓倒。如果从盲目计算开始逐层计算，会浪费大量时间，甚至可能计算错误。

对于这个问题，首先分析它的循环结构，发现 i 和 j 中的两层循环会重新分配 x，所以只需要计算最后一个循环。 i=4 j=3 x=3 表示 i=1 到 2 只剩下两个周期，所以 x=3+6+6=15

答案是2。 首先看问题，最后要输入的6个数字其实是两组数据是一个组，-1是一个组，分别对应输入的a、b、x。 第一组不需要计数，因为在第二组 x=-1 中，循环中止。

此时，a=2+1+（-1）=2

答案是12首先，mod 是余数，j mod 2 <>0 表示 j 是奇数。 每当 J 周期 A 加 1，如果 J 是奇数，则 A 从 1 到 4 再加一个循环，总共有 2 个偶数，所以一个周期 i A 加 6

有两个 i 周期，所以 a 是 12

1.执行顺序为四次（a=4，三次（a=3，a=a+6，a=a+6））。

虽然有很多循环，但 i 和 j 的外部循环以 x 的新值开始，实际结果与没有循环相同。 最终 x=15

2.执行顺序为，a=5，b=4，x=3，a=5+4+3，循环，a=2，b=1，x=-1，a=2+1-1，打印一个结果为2

三个 mod 操作将取其余部分。 j mod 2 = 0 表示 j 是偶数。 也就是说，每个 j 周期 a 向自身加 1，如果 j 是偶数，则 a 再加 1

J 循环有 2 个从 1 到 4 的偶数，因此 i 循环 A 加 6有两个 i 周期，所以 a 是 12

int 函数是四舍五入的。

所以表达式的值为：32+23=55

str（） 用于将数值变量或常量更改为基于字符的变量或常量，例如：

对于常量：str（35）=" 35 ",str(" "，依此类推。 （注意字符串。" 35"它前面有一个空间。

对于变量，然后将变量的值转换为字符串，例如：假设为 287，则 str（a）=" 287 "，依此类推。 （请注意，它前面有空格）。

对于你说的str（abc），因为abc不是一个数字，所以vb系统把它当成一个变量abc，然后调整abc的值，因为abc从来没有赋值过，所以系统默认为0，所以它把0转换成一个字符串str（abc） 打印出字符串" 0"（前面有一个空格）。

综上所述，str（" "注意：它前面有一个空格。

你不明白吗？ 让我解释一下。

len（） 是字节长度"3212"长度是 4，所以它以 4 开头，然后 str（） 被强制转换，它最初是浮点型的，然后它被转换为一个字符，然后是 4+，即 4，然后 str 被强制转换为一个字符，所以 b 4 出来了一个字符。

我的博客。

我认为它是 a，因为它是一个字符串连接，它不是数字的相加，b 是怎么回事，没有空格。

str 是将数字转换为字符串。

在两个字符串之间使用，它充当字符串连接器&楼上，当你查看MSDN对str的介绍时，你就会明白为什么会有空格当你使用str将数字转换为字符串时，它前面总是有一个空格来表示正负。 如果数字为正数，则返回的包含前导空格的字符串表示存在正号。

所以它是 B，而不是 A

如果你不使用 str 进行转换，结果就是你所说的。

private sub command1_click()

dim warning as string

dim sql as string

warning = ""

输入有效性判断。

if textuser = "" then warning = warning & "用户名"

if textpassword = "" then warning = warning & "密码"

if warning <>"" then

msgbox warning & "不能为空！ ", 0 + 48 + 0, "警告"

textuser = ""

textpassword = ""

elsesql = "从用户管理中选择 *，其中用户名 ='" & textuser & "'和用户密码 ='" & textpassword & "'"

sql = "从用户管理中选择 *，其中用户名 =""" & textuser & """和用户密码 =""" & textpassword & """"

openrs (sql)

if not ( and then

grade = rst("用户级别") '记录用户评分。

userid = rst("用户名") '记录用户名。

call userlogin '填写登录记录。

trueunload me

elsemsgbox "用户不存在！ ", 0 + 32 + 0, "着陆失败"

textuser = ""

textpassword = ""

grade = 0

end if

closers

end if

end sub

然后，我将数字图像存储在USB闪存驱动器或光盘等存储介质上，它仍然是数字图像。

a:"int"是一个整数函数。 x 2 的值应该等于 x 2 的整数值，这意味着 x 应该能被 2 整除。

b： “mod” 是余数函数， “x

mod2=0“表示 x 2 的余数为 0（表示 x 可被 2 整除），c： ”fix“ 也是一个整数函数。 x 2 的值应该等于 x 2 的整数值，这意味着 x 应该能被 2 整除。

int 和 fix 的区别：int 和 .

修复功能被删除。

number

参数的小数部分，并以整数形式返回结果。 int 和。

fix 函数的区别在于 if。

number

如果参数为负数，则 int

该函数返回小于或等于。

number

第一个负整数，while。

fix 函数返回 greater than 或 equal to。

number

参数的第一个负整数。 例如，int will。

转换为。 -9，而。

修复功能将。

转换为。