| 共 15 篇文章 |
|
计算机技术基础（VB）: 课程大纲?计算机技术基础（VB）: 课程大纲?5．循环结构程序设计 循环结构程序设计的概念；5．循环结构程序设计： 要求了解循环结构的程序设计，能熟练掌握Do...Loop语句、For...Next语句的格式和功能，并能根据循环结构的要求正确选取循环语句来实现循环，掌握简单问题的程序设计。4．选择结构程序设计： ... 阅327 转1 评0 公众公开 19-07-11 15:43 |
第一节 程序设计语言。发展：机器语言(汇编语言(高级语言)一、机器语言。掌握解题的方法和步骤—算法一、算法。二、结构化程序设计。顺序结构、选择结构和循环结构。2．结构化程序设计方法。多态性是一种面向对象的程序设计功能，当同样的消息被不同的对象接收时，却导致完全不同的行为，即完成不同的功能。1．程序设计语言。2）结构化程序设... 阅184 转5 评0 公众公开 19-07-11 15:43 |
分类：内部控件—默认状态下工具箱中显示的控件ActiveX控件—存于．OCX文件中，包括各种版本的VB控件，必要时可添加到工具箱中。7．窗体布局窗口：调整程序运行时窗体显示的位置。工程中的每个窗体都有自己的窗体设计器窗口。MyPicture．Cls第五节 窗体和命令按钮一、窗体（Form）窗体模块：每个窗体对应于一个窗体模块。例：单击窗体时产生Cl... 阅170 转4 评0 公众公开 19-07-11 15:43 |
字符串运算符（字符串表达式）布尔运算符（布尔表达式）一、算术运算符与算术表达式。例：将以下表达式写成VB合法的表达式。二、字符串运算符与字符串表达式。2．表达式：<表达式1><比较运算符><表达式2>Abs（A-B）<1E-5四、布尔运算符与布尔表达式。<关系表达式1><布尔运算符><关系表达式2> <关系... 阅353 转7 评0 公众公开 19-07-11 15:42 |
例：Text1．SelLength=Len（Text1．Text）Private Sub Text1_GotFocus（） Text1．SelStart=0 Text1．SelLength=Len（Text1．Text） End Sub Private Sub Text2_GotFocus（） Text2．SelStart=0 Text2．SelLength=Len（Text1．Text） End Sub Private Sub Text3_GotFocus（） Te... 阅278 转3 评0 公众公开 19-07-11 15:42 |
Private Sub Command1_Click（） A=Val（Text1.Text）：B=Val（Text2.Text） C=Val（Text3.Text）：Cls CurrentX=600：CurrentY=1100 If A=0 Then If B=0 Then MsgBox "系数为零，请重新输入" Text1.SetFocus Text1.SelStart=0 Text... 阅160 转4 评0 公众公开 19-07-11 15:42 |
第一节 For．．．Next循环结构。For<循环变量>=<初值>To<终值>[Step<步长>] <语句组1> [Exit For] <语句组2> Next[ <循环变量>]Loop循环。Private Sub Form_Click（） N=Val（Text1.Text） Sum=0 For I=1 To N Sum1=0 For J=1 To... 阅299 转3 评0 公众公开 19-07-11 15:42 |
1．Name属性。Private Sub Check1_Click（） Text1.FontBold=Check1.Value End Sub Private Sub Check2_Click（） Text1.FontItalic=Check2.Value End Sub Private Sub Check3_Click（） Text1.FontStrikethru=Check3.Value End Sub Private Sub Check4_Click（） ... 阅155 转4 评0 公众公开 19-07-11 15:41 |
Option Base 1 Private Sub Form_Click（） Dim A（20）As Integer Text1.Text= "" For I=1 To 20 A（I）=Int（Rnd*91+10） Text1.Text=Text1.Text & Str（A（I））&" " Next I Text2.Text= "" For I=20 To 1 Step -1... 阅346 转3 评0 公众公开 19-07-11 15:41 |
第一节 Function过程。Function hcf（m As Integer,n As Integer）As Integer Dim r As Integer r=m Mod n Do While r <>0 m=n n=r r=m Mod n Loop hcf=n End Function Private Sub Command1_Click（） Dim m As Integer,n As Integer m=Val（Text1... 阅168 转3 评0 公众公开 19-07-11 15:41 |
