1. [程序5.1说明] 下列程序运行时,当单击窗体后,从键盘输入一个字符,判断该字符是字母字符、数字字符还是其他字符,并做相应的显示。窗体上无任何控件,并禁用Ase和Chr函数,Select Case语句中禁用枚举值。 [Visual Basic代码] Private Sub Form Load () Dim x As String*1 X= (“请输入单个字符”,“字符”) Select Case UCase () Case 。 Print X+“是字母字符” Case Print X+ “是数字字符” Case Else Print X+“是其他字符” End Select [程序5.2说明] 在窗体上画一个名称为Timer1的计时器和一个名称为Labe11的标签。当运行程序后,将在标签中显示当前时间的数字时钟(包括时:分:秒)。 [Visual Basic代码] Private Sub Fom_Load () Timer1.Interval=1000 EndSub Private Sub Timer1_ timer() EndSub
(1)InputBox (2)X (3)“A” To “Z” (4)“0”To“9” (5)Labe11.Caption=Time
1. [说明] 本程序将利用文本框txtInput 输入的一行字符串中的所有字母加密,加密,加密结果在文本txtCode中显示。加密方法如下:将每个字母的序号移动5个位置,即“A”->“F”“a”->“f”,“B”->“G”……“Y”->“D”,“Z”->“E”。程序段如下: [Visual Basic 代码] Private Sub Form_ Click() Dim strInput As String*70 ; 输入字符串 Dim Code as String*70 ;加密结果 Dim strTemp As String*1 ;当前处理的字符 Dim i as Integer Dim Length As Integer ;字符串长度 Dim iAsc As Integer ;第i个字ASCII码 ;取字符串 i=1 Code=“” ;去掉字符串右边的空格,求真正的长度 Do While(i<=Length) ;取第i个字符 If (strTemp>="A" And strTemp<="Z',) Then iAsc= Asc (strTemp)+5 If iAsc>Asc(“Z”)Then iAsc=iAsc-26 Code=Left$(Code,i-1)+Chr$ (iAsc) ElseIf (strTemp>="a" And strTemp<="z") Then iAsc=Asc(strTemp)+5 If iAsc>Asc (“z”) TheniAsc=iAsc-26 Code=Left$(Code,i-1)+Chr$(iAsc) Else Code=Left$(Code,i-1)+strTemp End If Loop ;显示加密结果 End Sub
(1)strlnput=txtlnput. Text (2)Length=Len(RTrim(strInput)) (3)strTemp=Mid(strInput,i,1) (4)i=i+1 (5)txtCode.Text=Code