【单选题】在窗体上画一个命令按钮,然后编写如下代码: Private Type Record ID As Integer Name As String*20 End Type Private Sub Commandl_click() Dim MaxSize,NextChar,MyChar Open 'D:/temp/female.txt'For Input As #1 MaxSize=LOF(1) For ...
【单选题】在窗体上画一个命令按钮,然后编写如下代码: Private Type Record ID As Integer Name As String * 20 End Type Private Sub Command1_Click() Dim MaxSize,NextChar,MyChar Open'D:/temp/female.txt'For Input As # 1 Max Size=LOF(1) F...
【单选题】在窗体上画一个命令按钮,然后编写如下代码: Private Sub Command1 Click() a&=InputBox('请输入第一个数') b&=InputBox('请输入第二个数') Print b&+a& End Sub 程序运行后,单击命令按钮,在两个输入对话框中先后输入12345和54321,程序的输出结果是
【简答题】在窗体上画一个命令按钮,然后编写如下代码: Private Type Record R_ID As Integer R_Name As String * 20 Ene Type Private Sub Commandl_Click( ) Dim M _Sise, N_Char, M_Char Open' c: /file. txt' For Input As 1 M_sise=LOF(1) For...
【单选题】在窗体上画一个命令按钮,然后编写如下代码: Private Type Record ID As Integer Name As String * 20 End Type Private Sub Command1_Click( ) Dim MaxSize, NextChar, MyChar Open 'd:/vb/tt. txt' For Input As #1 MaxSize = LOF(1) F...
【单选题】在窗体上画一个命令按钮,然后编写如下代码:Private Type Record ID As Integer Name As String * 20End TypePrivate Sub Command1_Click() Dim MaxSize, NextChar, MyChar Open “d:/temp/female. txt” For Input As #1 MaxSize = LOF(1)...