Private Sub Command1_ClickDim strA9 As String Dim i， s As Long s = 0 For i = 0 To 9 strAi = InputBoxquot请输入第quot i + 1 quot位同学成绩！quot， quot提示成绩为大写ABCDEquotIf Asc。
先在程序中加一个Label，名字应该符合VB程序控件命名规范lbllt名称 再加一个Timer控件，名字也要符合命名规范 在窗体代码对话框中打入 Private Sub Form_LoadOn Error Resume Next MeFont = quotArialquotMeFontSize = 24。
1根据三角形两边之和大于第三边，代码如下Private Sub Form_ClickDim A， B， C As Single Dim S As Single Dim P As Single Z1A = ValInputBoxquot请输入边长A的值quot， quot输入quotB = ValInputBoxquot请。
