for i = 1 to 3 i=i+inextMsgbox i

在VBA用msgbox来实现可能比较麻烦，我研究了好久都还不会，只好放弃了。
建议你建一个窗体来实现比较简单。

选( A ) x=0
x+1=1
Dim x%是用类型说明符声明变量的方式
%是integer的类型说明符
是dim x as integer 的简化写法
x初始化时未赋值情况下默认是0
所以x=0 msgbox(x+1)=1
常用类型说明符
% integer
& long
! single
# Double
$ string
@ currency

Ask = MsgBox("密码中是否包含符号?",4,"密码生成选项")
语句会弹出一个窗口,窗口的标题是“密码生成选项”,内容是“密码中是否包含符号?”,然后有两个按钮,一个“是”和一个“否”.
点击“是”,返回值为6（即Ask=6）,点击“否”返回值为7（即Ask=7）
参看百度百科中MsgBox( )函数的用法.
If Ask = 7 Then Con_sym = Flase
如果返回值为7（即点击了“否”）,那么将Con_sym赋值为Flash

条案是A。

MSGBOX语句没有返回值，有返回值的是MSGBOX函数，可以查看一下两者区别，所以A错。
省略MsgBox的第三个参数，则信息框的标题默认为工程名称，所以C错。

Din A as Integer
A=20
B=30
C=A+B
Msgbox C
50啊.

值为1
确定按钮返回值是1

c = a > b,则变量c保存的是逻辑值true,在计算c+2时,编译器会强制转换c为整数值,vb会转换成-1

Sub Macro2()
Dim s1,s2 As String
Dim n5
Dim n1,n2,n3,n4 As Single
s1 = InputBox("请输入两电阻的阻值,之间用半角逗号“,”分隔","提示信息")
n1 = Val(s1)
n2 = Val(Mid(s1,InStr(s1,",") + 1))
If n1 > 0 And n2 > 0 Then
n3 = Round(n1 + n2,3) '串联电阻值
n4 = Round(n1 * n2 / (n1 + n2),3) '并联电阻值
n5 = MsgBox(n1 & "Ω和" & n2 & "Ω两个电阻的" & Chr(13) & "串联电阻值为：" & n3 & "Ω" & Chr(13) & "并联电阻值为：" & n4 & "Ω",,"计算结果")
Else
n5 = MsgBox("两电阻值输入有错,请重新输入!",,"错误提示")
End If
End Su

先逐个进行比较，大于7的累计进一个变量n，最后如果n==6 就弹窗。

Private Sub Commmand1_Click()
Dim a As Double
a = InputBox("输入一个正实数")
If a < 0 Then Exit Sub
Print Int(Sqr(a) * 1000) / 1000
End Su

a的值是vbOK也就是1 啊
msgbox的返回值是根据你在msgbox上按的按钮来的
如果上面那句代码改成：
　a = MsgBox("AAAA", vbOKCancel, "BBBB")
那么msgbox执行后就会有 OK 和Cancel两个按钮
如果你点击ok，则返回vbOK，也就是a=1，如果你点击cancel，则返回vbCancel，也就是2

'用自定义枚举类型,详细用法可以百度搜索 vb enum
Enum myEnum
myA = 1
myB = 2
myC = 3
myD = 4
End Enum
Function f(x As String, y As myEnum)
'参数y设为自定义枚举类型
End Function

想想后面逗号要用英文的
系统提示前要个英文双引号,那不是字符串

Private Sub Commmand1_Click()
Dim a As Double
a = InputBox("输入一个正实数")
If a < 0 Then Exit Sub
Print Int(Sqr(a) * 1000) / 1000
End Su

1.生成大小为1到100的50个随机数,使用选择排序或者冒泡法对这些数组从小到大排序,并将其显示出来.
2.计算S=1+1/2+1/4+1/7+.,当i项的值