vb程序設(shè)計教程實驗指導(dǎo)與習(xí)題解答上機答案-資料下載頁
2025-06-26 04:35本頁面
【正文】 = + 10lbltem = If VSbwd = 100 Thenlbltishi = 水開了 = FalseEnd IfEnd Sub運行初始界面：運行結(jié)果：自測練習(xí)1：Private Sub myhelp_Click()End SubPrivate Sub mymenu1_Click() = 百貨大樓End SubPrivate Sub mymenu2_Click() = 利客隆End SubPrivate Sub mymenu3_Click() = 稻香村End Sub運行初始界面：運行結(jié)果界面：自測練習(xí)2：Private Sub Dis_Click() = 菜單程序設(shè)計 = 20 = 黑體End SubPrivate Sub Hid_Click() = FalseEnd Sub運行初始界面：運行結(jié)果界面：自測練習(xí)3：Private Sub vbhelp_Click()r = MsgBox(幫助, , 程序設(shè)計題)End SubPrivate Sub Vbnew_Click()r = MsgBox(新建, , 程序設(shè)計題)End SubPrivate Sub vbopen_Click()r = MsgBox(打開, , 程序設(shè)計題)End SubPrivate Sub vbsave_Click()r = MsgBox(存盤, , 程序設(shè)計題)End Sub運行初始界面：運行結(jié)果：自測練習(xí)4：Private Sub Command1_Click() = 1 End Sub運行初始界面：運行結(jié)果：自測練習(xí)1：Private Sub Command1_Click()Dim a As String, n%, i%, j%Open E:\ For Input As 1Input 1, an = Len(a)j = 0For i = 1 To nIf Mid(a, i, 1) = % Then j = j + 1Next iClose 1Open E:\ For Output As 1Print 1, jClose 1End Sub運行初始界面：運行結(jié)果：自測練習(xí)3：Private Sub Form_Click()Dim x$Open e:\ For Input As 1Do While Not EOF(1)Line Input 1, x$LoopClose 1Open e:\ For Append As 1Print 1, x$Close 1End Sub運行初始界面：自測練習(xí)4Private Sub Form_load()Print 26個英文字母PrintPrint a b c d e f g h i j k l m n o p q r s t u v w x y zPrint 字母個數(shù)分別為End SubPrivate Sub Form_Click()Open E:\ For Output As 1文本$ = InputBox(請輸入文本)n = UCase(文本$)Print 1, nClose 1Dim a%()Open E:\ For Output As 1For i = 1 To Len(n)ReDim Preserve a(1 To 26)j = Asc(Mid(n, i, 1)) 64a(j) = a(j) + 1Next iClose 1For j = LBound(a) To UBound(a)Print a(j)。Next jEnd Sub
畢業(yè)設(shè)計相關(guān)推薦
鄂ICP備17016276號-1