Randomize
a = Int(Rnd * 450) Mod 401
sss:
On Error GoTo sss
Open (App.Path + "\Quiz Create\Maths\Questions\9.14 2(1)\Q" + Str(a) + ".abc") For Input As #1
Input #1, b
Close #1
黄色的那段运行时老是有错，我知道会有错，所以有错误处理代码了，但是为什么这个错误不处理？？？

另外问一下，如何将VB编译出的EXE的图标自定义？

sss:
On Error GoTo sss
Open (App.Path + "\Quiz Create\Maths\Questions\9.14 2(1)\Q" + Str(a) + ".abc") For Input As #1

错误处理不能向前跳，不能重复错误。
-------------------
另外问一下，如何将VB编译出的EXE的图标自定义？
你修改 Form1 的ICOP 属性。
如果你工程里没 FORM1 ，那就看一个 工程属性里，使用的是哪个窗体的图标，对应修改就是了。

sss是为了在出错时能另有处理办法，那么所标记的位置就不能再经过出错的代码。一般来说，sss标记应该处于一个代码块的最后面，并且sss的前面都习惯性地加上Exit Sub, 这样才可以确保只有On Error的位置出错时才会执行它，当代码正常运行没有出错时则不会走到那里，一到它前面的Exit Sub就终止了。

讨教一个问题：a = Int(Rnd * 450) Mod 401
这里会先执行Int(Rnd * 450)还是(Rnd * 450) Mod 401？我做的时候习惯性地要加括号来确保其执行顺序，不加括号会如何还不知道。

函数调用 》 运算算优先组。

如果函数调用是表达式，那么这个表达式是第一个运算，然后再调用函数，再计算剩余的表达式。

a = Int(Rnd * 450) Mod 401

1、Int(Rnd * 450)         函数优化
先计算 Rnd              函数优化
再计算 Rnd * 450        表达式
最后计算 Int(Rnd * 450)   
2、计算出结果，再 Mod 401   表达式

谢谢各位的帮助！！！

再讨教一个问题：如何做到在按下一个按钮后自动扩大frm的宽度并显示隐藏的选项？

Public Function Fsyj(StrFsyx As String, StrFsmm As String, StrFsbt As String, StrFsnr As String, StrFsfw As String, StrJsyx As String) As Boolean
strName = "http://schemas.
Set objEmail = CreateObject("CDO.Message")
    Fsyj = False
    objEmail.From = Str(b)
    objEmail.To = Str("XXXXXXX")
    objEmail.Subject = Str("XXXXXXX")
    objEmail.Textbody = Str(a)
    objEmail.Configuration.Fields.Item(strName & "sendusing") = 2
    objEmail.Configuration.Fields.Item(strName & "smtpserver") = Str("smtp.)
    objEmail.Configuration.Fields.Item(strName & "smtpserverport") = 25
    objEmail.Configuration.Fields.Item(strName & "smtpauthenticate") = 1
    objEmail.Configuration.Fields.Item(strName & "sendusername") = Left(StrFsyx, InStr(StrFsyx, "@") - 1)
    objEmail.Configuration.Fields.Item(strName & "sendpassword") = Str(c)
    objEmail.Configuration.Fields.Update
    objEmail.Send
    Fsyj = True
End Function
我想在其他地方调用这个自定义的函数，在么调用？（我对于函数自定义无基础，都是自学的）

自定义的函数里面的a b c都是在text里面的数据