Question

VB 怎么 用 inputbox 的输入 给创建的txt 文件命名？ 谢谢！！

Private Sub Form_Load()
Dim username As String
Label2.Caption = "newbie"
Picture1 = LoadPicture("G:\vbproject\welcome1.bmp")
Picture2 = LoadPicture("G:\vbproject\logo.bmp")
username = (InputBox("please input your name"))
Label3 = "Welcome to play our game:" & vbCrLf & username
Open "G:\vbproject\& "" &.txt" For Random As #1

Answer 1

解析：运行“username = (InputBox("please input your name")) ”后， inputbox 输入的文件名就储存在username 变量中，因此只需将最后一句改为：
Open "G:\vbproject\" & username & ".txt" For Random As #1
这句中的“&”符号能起到连接前后字符串的功能。
另外要注意，如果用户在inputbox中按了取消，那么username会为长度为0的字符串，建议在username = (InputBox("please input your name"))后加一句：
If username="" Then username="匿名"
防止username=""时程序出错。

建议：多看一些VB的应用实例，做到熟练使用书中的知识。

Answer 2

Open "G:\vbproject\" & username & ".txt" For Random As #1