急急急。给女友做vb课设！！！求科普啊大婶

vb相关问题，求科普。。~

代码如下:
Private Sub Command1_Click() a = "" '给a赋值为空 For i = 65 To 90 a = a + Chr(i) '空白处的答案,通过循环给a不断赋值 Next i Label1.Caption = aEnd Sub

第一计！美人计！话说，美人指的不一定是女人，男人也是人啊，美丽的事物总是让人爱不释手的，一个优秀的男人（至少，表现的优秀一些）是会让大部分正常的女人发狂的
第二计！瞒天过海（此招为一男多女）泡妞的终极高手是如鱼得水，谁见过一条鱼喝一口水的！？整个大海都是咱的！
第三计！隔岸观火！（此招用以挖墙脚）一般来说，某男爱上某女，偏偏，某女名花有主，此时，某男如何自处？首先，就要学会这招隔岸观火，泰山崩于前而色不惊！说的是，看见某女和某女的男朋友亲亲爱爱时，要沉着，冷静！
第四计！狐假虎威！想尽办法套得某女关系，然后大摇大摆在其男友面前晃来晃去，给对手以压力，使其自乱阵脚，目的达到一半
第五计！一探虚实！我们要先制造追求某女的假象，以探听某女极其男友的底细，研究部署下一步
第六计！抛砖引玉，装作情场失意，考场也失意，商场更失意，总之，忧郁缠身，博取同情，得到与某女交流感情使其男友暗中或明中不爽，分化彼此
第七计，趁虚而入，要毫无心机，毫无目的，毫无防备，毫无勇气的，小心翼翼，呵护有加，充分展示第一计中美男形象
第八计，釜底抽薪，之前七计已经造成间隙，这一计彻底打击某男友，使其不攻自破！
第九计，直捣黄龙，在一个风也萧萧雨也萧萧风雨都萧萧，你也萧萧我也萧萧大家都萧萧的不眠之夜里，鼓起你的勇气吧！拿出真心吧！爆发你的力量吧！展现你的风采吧！用你的嘴巴狠狠的...（别想歪了）告诉她！我爱你！！！
第十计！功成身退，记住，某女只是大海里的一滴水，千万不要因为这滴水放弃了整篇海洋，记住，某女只是原始森林里的一棵歪脖树，千万别想不开啊！
如此十计，乃上乘兵法，传女不传男~~
孙子算什么，战场有三十六计，情场他算老几，天涯何处见月明，女生看你喊救命！

inputbox 不同于 msgbox ,msgbox点对应按钮会返回一个值，用于判断，但是inputbox 没有
你只能这样
你点取消时返回的是"",空白字符串，
如 a(i).Name = InputBox("输入第" & i & "个学生姓名", "提示")
if a(i).name="" then
exit sub'退出过程
end if

....方法大概是这样，具体操作改一下就可以了

您好，

请问您说的是 InputBox 弹出的对话框中的取消按钮吧？

如果是，请看下面的例子：

Private Sub cmdDemo_Click()
    Dim strName As String
    
    strName = InputBox("请输入学生姓名", "提示")
    
    If StrPtr(strName) <> 0 Then
        ' 点击确定按钮的代码放在这里
    Else
        MsgBox "您点击了取消按钮"
    End If
End Sub

MsgBox此函数有返回值，根据返回值可知道点击了确定还是取消

---

急急急。给女友做vb课设！！！求科普啊大婶视频