这一段VB程序段是什么意思

Private Sub Form_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)

这括号里的四个参数是由VB自动传递到这个事件过程中的，其中Button代表的是按下的鼠标键（比如左键为1），Shift代表键盘上Shift、Ctrl、Alt这三个键的状态（比如Ctrl按下则为2），X和Y则是鼠标在窗体上点击的坐标值（单位默认为缇）

Form1CurrentX = X 和 Form1CurrentY = Y

这是把窗体的“默认点”坐标设为鼠标所点击的那个点的坐标。所谓“默认点”，你可以把窗体想象成一张画纸，那么默认点就是画笔对准画纸的那个点，也就是说如果立即执行画图命令，那么就是从这个点开始的

If Button = 1 Then Form1Line -(X, Y)

如果鼠标的左键按住并且移动鼠标，那么就在“默认点”与当前鼠标指针所在点之间画一条直线。注意，画完线后，“默认点”就会自动变为鼠标指针所在点，这样的话，如果按住鼠标左键不断在窗体内移动鼠标指针，就会持续不断地画出首尾相接的连续直线，如果鼠标移动的速度不是很快，那么线段看起来就是曲线了

info = MsgBox("您输入的不是大于等于6的偶数！", vbretrycancle + vbexclarnation + vbRetry, "哥德巴赫猜想")

If (info = 6) Then '为何返回值为6/7（vbYes/vbNo）

GoTo wronginput

下面是改后的

If MsgBox("您输入的不是大于等于6的偶数！", vbRetryCancel + vbExclamation, "哥德巴赫猜想") = vbRetry Then

GoTo wronginput

End If

2B

11A

14A

15D

16题目有错~在VB60中~A为变体 B才是双精度

17C

18C

21A 印刷错误 if x>l then 又是L

22D

填空

1 15 '因为a = l :b =5:c = 3 a=L 不是1

2 step 3

第五题

sub sswf()

dim x as integer,y as integer

x=val(inputbox("shuru"))

if x mod 2 =0 and x mod 3=0 and x mod 5=0 then text1text=x

y=x^2

print y

end sub

答案是A（-1），因为第一执行的时候就会将x赋值为0，执行打印x-1时就是-1，另外有两种情况，看X的定义范围了。如下全局定义：Option Explicit

Dim x As Integer

Private Sub Command1_Click()

Print x - 1

x = 3

End Sub那么这次执行打印x-1第一次时-1，以后每次打印就是2，因为每次x-1后会被重新赋值3

如下局部定义

Private Sub Command1_Click()

x = 0

Print x - 1

x = 3

End Sub这个每次执行都会将x赋值为0，尽管后面赋值3，但是执行完后又会被赋值为0，所以一直为-1

1）交换变量是这样完成的：

x = a: a = b: b = x '三行代码写成一行用冒号分隔

第一步

x=a ‘变量a中的值赋值到变量x

第二步

a=b ‘变量b中的值赋值到变量a

’这时a的值变成了b中的值，a中原先的值已被覆盖没了！

'还好a中原先的值之前已于第一步保存到x里了，它并未丢失

第三步

b=x ‘变量x中的值赋值到变量b ，好了到此a和b完成了彼此之间的数值调换

'x起到中间过渡的作用。

'不利用第三方中间过渡无法完成数值互换，

'原因是两方中至少一方的原值会在赋值后丢失，从而无法完成数值交换

'这是必须使用中间变量的根本原因

2）为什么输入小数输出的值被四舍五入？

因为变量a、b、x都被声明为integer(整型)数字类型，其变量值不会允许存在小数。

如果将小数赋值给它们，系统会自动做四舍五入后保存到变量里，这是系统的内置安排。

如需显示小数请将相关变量声明为单精、双精、小数和货币等数字类型。例如

Dim a As Single

Dim b As Single

Dim x As Single

以上就是关于这一段VB程序段是什么意思全部的内容，包括:这一段VB程序段是什么意思、VB程序段（msgbox）、一些关于VB的问题，在线等，帮帮忙哈~~等相关内容解答，如果想了解更多相关内容，可以关注我们，你们的支持是我们更新的动力！