《Visual Basic程序设计》实验课

Size: px

Start display at page:

Download "《Visual Basic程序设计》实验课"

牟幸
5 years ago
Views:

1 Visual Basic Visual Basic 0 Visual Basic Visual Basic API

2 1 Visual Basic Visual Basic Visual Basic Visual Basic SayHello.frm ChangeProp.frm FormMouseMove.frm & Event_Drive.frm 1. Visual Basic 2

3 Button_Label.frm 2. F1 MSDN MSDN Internet Visual Basic Visual Basic.doc 2 frmhello.frm SomeControls.frm Property.frm PropertyTest.frm MethodTest.frm 2TextSame.frm 3

4 Shape_Timer.frm Shape : Shape FillColor FillStyle Timer : Interval 4DataType.frm var_define.frm circle_area.frm InputBox, MsgBox.txt Equation.frm 1: 4

5 Name ForeColor, BackColor FontSize FontName Top Left Width Height Caption/ Picture/ Text / Value Visiable Enabled Ctrl+J F2 2 : Visual Basic.txt 3 Visual Basic W= d+[(13m-1)/5]+y+[y/4]+[c/4]-2c ( mod 7 ) c y m -2( ) d [n] n ( ).frm 5

6 + btnsayhello btnok cmdok btn lbl txt pic frm lst tmr scr chk CheckBox VB Me, Screen, Printer, App, Debug Me Me. Private Type End Type UDT_Person.frm Private Enum End Enum Enum_Weekday.frm 3 If/ElseIf Select Case 6

7 statemente_more_line.frm equation_comments.frm assing_ball_move.frm Timer( ) ( : a=a+1) Form_Load assign_swap.frm circle_area_ l.frm circle_area_text_label.frm InputBox MsgBox Print print_format.frm Print, Cls, Format if_pingpong_x.frm If if_leap_year.frm 7

8 If If if_circle_area.frm If If Select Case if_else_if_case_.frm addsub.frm If Select Rnd Randomize Format print_format.frm Format IIf Choose Switch iif_choose_switch.frm IIf(, 1, 2 ) Choose( a 1 2 ) Switch( ) 1 8

9 Sqr frm 2 MsgBox [ ] addsub_.frm 4 For Next Do Loop for_1_100.frm For 9

10 Circle99.frm For Circle sum100.frm *1+2* *100 For sum6_69.frm 6^ ^3 jiaogu.frm Do Loop do while while_5_style.frm do while prime.frm 99.frm 10

11 draw_circle_3color_5pie.frm fac1_10_for_for.frm 1! +2! ! jiaogu_2_100.frm : --- fac1_10_grad.frm 1! + 2! ! 2_22_222.frm Exp_sum Pi_2.frm Pi/2 Pi_4.frm Pi/4 11

12 GoTo GoTo On GoTo,,, GoTo goto.frm 1 x x=0 For i=1 To 5 For j=i To 5 x=x+1 Next j Next i ,4,3,2,1 x ! + 2! + +10! Private Sub Command1_Click() Dim s As Long, f As Long, n As Integer Dim i As Integer ' 1: s = 0 For n = 1 To 10 f = 1 For i = 1 To n f = f * i 12

13 Next s = s + f Next Print s ' 2: s = 0 f = 1 For n = 1 To 10 f = f * n s = s + f Next Print s End Sub fac1_10.frm 3 Pi Do While = L π 4.10 Pi_2.frm 5 13

14 sub_print100 sub_print100_draw100.frm sub_delay.frm Second Do Loop fac1_10_fun.frm: ! 100 prime_fun.frm var_trans.frm ByVal ByRef ByRef var_swap.frm 14

15 var_byref_byval.frm fun_digi2sum var_static_cnt.frm static var_drag.frm Public Global Private Dim Dim var_trans_byname.frm = var_trans_optional.frm Optional 15

16 IsMissing var_trans_paramarray.frm ParamArray xxxx() For Each 1 ByVal C n m m!/n!/(m-n)! fun_comb_fac.frm 2 ByVal ByRef c 0,1,8,25,45,55,99 kblk_square_half_sum.frm 6 16

17 I/O 6.txt I/O MsgBox / MsgBox "hello", vbinformation InputBox / a = InputBox(" Please Input a num",, 99) Beep Enum Enum_weekday Rnd Int(Rnd * 9) + 1, Randomize Sqr, Abs Sin, Cos Log, Exp Int rnd_luckynum Rnd_ Sqr_triangle_area Len LTrim, RTrim, Trim UCase, LCase Left, Right, Mid InStr Asc, Chr, String str_encrypt, str_instr_ str_num2chinese 17

18 Date, Time, Now Year, Month, Day, Weekday Hour, Minute, Second DateDiff, DateAdd CInt, CLng, CDbl, CDate, CStr Str, Int, Val Hex, Oct Format Format( Now(), "hh:mm:ss" ) Format( 3.14, "#,###.000" ) IsNumeric, IsDate F1 MSDN MSDN F2 Ctrl+G Print 6.txt 7 : for if : for n=f(n) : f(n) f(n-1) 18

19 ary_0.frm Dim As ( ) For Each Next Dim a( 2 to 9 ) dim c(10,20) LBound UBound Dim A( ) as Integer n= ReDim A(n) As Integer ReDim Preserve age(i) Dim x(10) As Variant Dim Public( ), Private, Static Sub MySub ( x( ) As Integer) Call MySub( a() ) ary_max_avg.frm ary_sort_sele.frm ary_prime_filter.frm ARY_YSf.frm 19

20 Fab, For If,, 357_hanxin.frm chicken100.frm chicken_rabbit.frm = _ok.frm 28= _28.frm 100_5_2_1.frm x2_dy2_while.frm a = f( a ) sqrt_dd.frm Julia Julia.frm 20

21 Pi fac_rec.frm fib_recu.frm Celay, Koch caley_new.frm VonKoch.frm ary_str_split_foreach.frm Array() IsArray() Dim ary As Variant ary = Array("apple", "banana", " ") Split() Join() ary = Split("This is a book", " ") j = Join(ary, "@") ary_collection.frm Collection Add Remove Count Item For Each Next 21

22 1 (Fibonacci) (Fibonacci) 0 l N 6.6.frm frm 8 CommandButton, Label, TextBox Frame, CheckBox, OptionButton HScrollBar, VScrollBar ListBox, ComboBox PictureBox, Image Label_mouse_shell_263 22

23 shell " " text_sel_password_enter SetFocus, GotFocus, LostFocus SelStart, SelLength, SelText, Text MultiLine, ScrollBars PasswordChar "*" Locked,Enabled Checkbox_option.frm CheckBox Value(1 0 2):vbChecked OptionButton Value(Ture False) Timer_Shape_Line_Clock.frm Shape / Line Shape / x1,y1,x2,y2 BorderStyle, BorderColor BorderWidth FillStyle, FillColor, BackStyle, BackColor Timer Interval, Enabled Combox_list.frm ListBox ComboList ' ComboList=List + Text Style MultiSelect List(i), ListCount, ListIndex, Selected(i), SelCount AddItem, RemoveItem, Clear 23

24 Combo Text dance_girl LoadPicture frm frm 9 24

25 draw_simple.frm draw_fun.frm.frm draw_r_cos2th.frm ring.frm draw_diamond.frm form_resize_paint.frm Resize Paint form_screen_save.frm BackColor BorderStyle WindowStatus StartupPosition MousePointer File/Make EXE xxxx.scr xxxx.scr windows form_menu_simple.frm Tools/MenuEditor Ctrl+E) Name) (Caption) & &Open) - ShorCutKey Ctrl+O Checked,Enabled,Visible 25

26 WindowList (*) Visiable False MouseDown If Button=vbRightButton Then PopupMenu menu5 Draw_XOR_Drag.FRM XOR ScreenSaver form_fs_new.frm new multi_form 1 : Scale r = 3Sin( ) Cos(10 ) Cos(8 ) 26

27 Draw_Flower.frm 2 Visual Basic Multi_Form 3 Multi_Form 10 MDI progress1.vbp 27

28 ActiveX ActiveX ActiveX.frm Index line_color_grad_scroll.frm.frm.frm MDI MDI( ) MDI ActiveX Rich Text Box 1 28

29 1 4X4 5X5 6X6 2 2 MDI MDI ActiveX Rich Text Box MDI snowflake new 11 29

30 FileCopy_AddLineNum.frm FreeFile On Error DirFind.frm Dir pic_browser DriveList DirList FileList err_divby0 Err err_fordebug.frm ary_prime_filter.frm File_Random_Student BMP 30

31 File_Read_Bmp BMP BMP File_Find_Recurse Dir err_raise Retry err_retry API 31

32 API API API, MCI, Control API GetTickCount Topmost WinRound Bitblt_PaintPicture Bitblt PaintPicture sndplaysound.frm sndplaysound wav Beep_Song.frm Beep MCI CD AVI MCI_Play.frm MCI mcisendstring 32

33 MMControl CD MMControl wave Media Player Real Player Shockwave Flash Control Flash 1 API API API API RoundRect.frm 2 MCI Agent Speech Agent Speech msagent-hello MCI 33

34 13 Data ADO DAO ADO SQL DataControl DAO Datactrl_pic Data ADO ADO SQL ADO_Sql ADO SQL RecordSet RecordSet ADO ADO_4_constr_DBGrid Access SQL Server Dsn adodcl_grid_sqlserver Adodc_grid DBGrid (DAO ) DataGrid (ADO ) 34

35 1 Data ADO 2 ADO ADO SQL RecordSet SQL Server 14 Browser FTP Winsock VB OLE VBA VBScript VB ActiveX WebBrowser WebBrowser WebBrowserForm 35

36 Microsoft Internet Control WebBrowser1. Navigate " / /Web Internet Transfer Control FTP_InetTranfer Microsoft Internet Transfer Control b() = Inet1.OpenURL("ftp:// ", icbytearray) Open "C:\aaa.htm" For Binary Access Write As #1 Put #1,, b() Close #1 Winsock WinSock_chat Winsock Winsock OLE OLE_Create OLE CreateLink CreateEmbed OLE Excel oleexcel VBA macro_addlinenumber_verysimple.vb Word VBA VBScript btnclick_sqr.html 36

37 <script> VBScript ASP VBScript dbshowtable.asp ASP <% %> VBScript ASP ADO ASP Request ASP Response.Write ASP VBScript TrafficLightOcx ActiveX ActiveX ActiveX ActiveX ActiveX 1 WWW Microsoft Internet Control WWW WWW 2 Visual Basic 37

38 15 1 VB VB VB

四川省普通高等学校

四川省普通高等学校四川省普通高等学校计算机应用知识和能力等级考试考试大纲 (2013 年试行版 ) 四川省教育厅计算机等级考试中心 2013 年 1 月目录一级考试大纲 1 二级考试大纲 6 程序设计公共基础知识 6 BASIC 语言程序设计 (Visual Basic) 9