vb现科0708(B)

VB常用函数介绍一、常用内部函数在VB内部提供了大量函数。

在这些函数中，有些是通用的。

有些则与某种操作有关的。

大体分成五类，分别是：转换函数、数学函数、日期函数、时间函数和随机函数。

（1）转换函数函数名功能Int(x) 返回不大于自变量的最大整数。

Fix(x) 去掉一个浮点数的小数部分,保留其整数部分。

Hex(x) 把一个十进制数转换成为十六进制数。

Oct(x) 把一个十进制数转换成为八进制数。

Asc(x) 返回字符串中第一个字符的ASCII码。

Chr(x) 把值转换为相应的ASCII字符。

Str(x) 把值转换为一个字符串Cint(x) 把小数部分四舍五入，转换为整数。

Ccur(x) 把值转换为货币类型，小数部分最多保留4位。

CDbl(x) 把值转换为双精度数值。

CLng(x) 把值小数部分四舍五入转换为长整型数值。

CSng(x) 把值转换为单精度数值。

CVar(x) 把值转换为变体类型值。

（2）数学函数函数名功能Sin(x) 返回正弦值。

Cos(x) 返回余弦值。

Tan(x) 返回正切值。

Atn(x) 返回反正切值。

Abs(x) 返回绝对值。

Sgn(x) 返回自变量的符号。

即：值为负数时，函数返回-1值为0时，函数返回0值为正数时，函数返回1Sqr(x) 返回自变量x的平方根，自变量必须大于或等于0。

Exp(x) 返回以e为底数，以x为指数的值，即求e的x 次方。

（3）日期函数函数名功能Day(Now) 返回当前的日期。

WeekDay(Now) 返回当前的星期。

Month(Now) 返回当前的月份。

Year(Now) 返回当前的年份。

（4）时间函数函数名功能Hour(Now) 返回小时（0~23）。

Minute(Now) 返回分钟（0~59）。

Second(Now) 返回秒（0~59）。

（5）随机函数Rnd(x) 产生一个0~1之间的单精度随机数Rnd函数可以产生随机数，当一个应用程序不断地重复使用随机数时，同一序列的随机数会反复出现，用Randomize语句可以消除这种情况。

2008年春浙江省高等学校计算机等级考试试卷(二级Visual Basic )说明：⑴ 考生应将所有试题的答案填写在答卷上。

其中试题1〜试题6,请在答卷上各小题正确选项的对应位置处填；⑵ 请将你的准考证号的后五位填写在答卷右下角的指定位置内；⑶考试时间为90分钟；试题1 (每小题3分，共12分)阅读下列程序说明和程序，在每小题提供的若干可选答案中，挑选一个正确答案。

【程序说明】单击Command侑用输入对话框输入1个整数，单击Command值在Textl 中显示其反序的数(高位变低位)。

要求在文本框中不可输入任何字符。

例如：输入123显示321,输入-567显示-765。

【程序】(1)Private Sub Form_Load()(2)End SubPrivate Sub Command1_Click()Text1.Text = "": n = InputBox("n=")End SubPrivate Sub Command2_Click()If n < 0 Then n = -n: Text1.Text ="-"While n <> 0Text1.Text = (3) ___________________(4)WendEnd Sub【供选择的答案】B(1) A、Dim n As ByteC 、Dim n As String B、D im n As IntegerPublic n As ByteA(2) A、Text1.Locked = True B> Text1.Locked = FalseC 、Text1.Visible = True Text1.Visible = FalseD(3) A、n/10 & Text1.Text B、n Mod 10 & Text1.TextC 、Text1.Text & n/10D 、Text1.Text & n Mod 10A(4) A、n = n \ 10 B 、n = n / 10C 、n = n Mod 10 n = n - 10试题2 (每小题3分，共12分)阅读下列程序说明和程序，在每小题提供的若干可选答案中，挑选一个正确答案。

计算机等级考试二级 VB 基础教程Visual Basic 概述Basic 是什么Visual Basic( 简称VB)是Microsoft 公司开发的一种通用的基于对象的程序设计语言。

“Visual ” 指的是开发图形用户界面(GUI) 的方法——不需编写大量代码去描述界面元素的外观和位置，而只要把预先建立的对象add 到屏幕上的一点即可。

“ Basic ” 指的是BASIC (Begi nn ers All-Purpose Symbolic In struction Code) 语言，一种在计算技术发展历史上应用得最为广泛的语言。

Visual Basic 在原有BASIC 语言的基础上进一步发展，至今包含了数百条语句、函数及关键词，其中很多和Windows GUI 有直接关系。

专业人员可以用Visual Basic 实现其它任何Windows 编程语言的功能，而初学者只要掌握几个关键词就可以建立实用的应用程序。

Visual Basic Scripting Edition (VBScript) 是广泛使用的脚本语言，它是Visual Basic语言的子集，可嵌入HTML语言中，用于网页设计，如ASP(Active Server Page) 文件。

VB简单易学，通用性强，用途广泛。

的功能VB可以用于可以开发多媒体、数据库、网络、图形等方面的应用程序。

数据访问特性允许对包括Microsoft SQLServer 和其它企业数据库在内的大部分数据库格式建立数据库和前端应用程序，以及可调整的服务器端部件。

有了ActiveX(TM) 技术就可使用其它应用程序提供的功能，例如Microsoft Word 字处理器，Microsoft Excel 电子数据表及其它Windows 应用程序。

Internet 能力强大，很容易在应用程序内通过Internet 或intranet 访问文档和应用程序，或者创建Internet 服务器应用程序。

掌握VB的基础编程技巧VB是一种流行的编程语言，它是Microsoft Visual Studio的一部分，广泛用于Windows应用程序的开发。

VB具有易学易用的特点，并且有着广泛的应用和丰富的开发资源。

本文将介绍一些VB的基础编程技巧，以帮助读者掌握这种语言。

一、VB的数据类型在VB中，有不同的数据类型，每个类型都有不同的取值范围和操作符。

下面是VB的主要数据类型：1. Boolean: 用于表示逻辑值True或False。

2. Byte: 范围是0到255，用于表示8位无符号整数。

3. Integer: 范围是-32,768到32,767，用于表示16位带符号整数。

4. Long: 范围是-2,147,483,648到2,147,483,647，用于表示32位带符号整数。

5. Single: 范围是-3.402823E38到3.402823E38，用于表示单精度浮点数。

6. Double: 范围是-1.79769313486232E308到1.79769313486232E308，用于表示双精度浮点数。

7. String: 用于表示文本字符串。

8. Object: 用于表示对象。

9. Variant: 可以表示任何数据类型。

10. Date: 用于表示日期和时间。

理解和正确使用这些数据类型是Vb编程的关键之一，特别是在进行数据转换时，需要确保数据类型的正确性。

二、VB的变量和常量在VB中，通过变量和常量来存储和管理数据。

变量是可以改变的，而常量则是固定的。

定义变量和常量时，需要使用关键字Dim或Const，语法如下：Dim 变量名 As 数据类型Const 常量名 As 数据类型 = 值例如，下面的代码定义了一个整型变量A和一个常量PI：Dim A As IntegerConst PI As Double = 3.1415926在使用变量和常量时，需要遵循一些规则。

如变量名必须以字母开头，可以包含字母、数字和下划线，但不能包含空格和其他特殊字符。

隐藏form1：form1.hide显示form1：form1.show--------------------------------------------------------------------------------------------- 退出程序时，弹出窗口提示是否要退出：Private Sub Form_Unload(Cancel As Integer)Dim iAnswer As IntegeriAnswer = MsgBox("真要退出吗?", vbYesNo)If iAnswer = vbNo ThenCancel = TrueElseEndEnd IfEnd Sub---------------------------------------------------------------------------------------------- 只能用任务管理器关闭程序的代码：Private Sub From_Unload(Cancel As Integer)Cancel = trueEnd Sub------------------------------------------------------------------------------------------------ 点击command1打开33IQ网：Dim strURLPrivate Sub Command1_Click()strURL = "错误！超链接引用无效。

Shell "explorer.exe " & strURL, 1End Sub------------------------------------------------------------------------------------------------ 运行c:\1.exeshell "c:\1.exe"执行c:\1.batshell "c:\1.bat"注：只适用于大部分exe和全部bat。

VB编程常用代码大全讲解学习V B编程常用代码大全VB编程常用代码大全1.数值型函数：abs(num): 返回绝对值sgn(num): num>0 1; num=0 0; num<0 -1;判断数值正负hex(num): 返回十六进制值直接表示：&Hxx 最大8位oct(num): 返回八进制值直接表示：&Oxx 最大8位sqr(num): 返回平方根 num>0int(num): 取整 int(99.8)=99; int(-99.2)=100fix(num): 取整 fix(99.8)=99; fix(-99.2)=99round(num,n): 四舍五入取小数位round(3.14159,3)=3.142 中点数值四舍五入为近偶取整 round(3.25,1)=3.2log(num): 取以e为底的对数 num>0exp(n): 取e的n次幂通常用 num^nsin(num): 三角函数，以弧度为值计算(角度*Pai)/180=弧度con(num); tan(num); atn(num)2.字符串函数：len(str)：计算字符串长度中文字符长度也计为一！mid(str,起始字符,[读取长度])：截取字符串中间子字符串left(str,nlen)：从左边起截取nlen长度子字符串right(str,nlen)：从右边起截取nlen长度子字符串Lcase(str)：字符串转成小写Ucase(str)：字符串转成大写trim(str)：去除字符串两端空格Ltrim(str)：去除字符串左侧空格Rtrim(str)：去除字符串右侧空格replace(str,查找字符串,替代字符串,[起始字符,替代次数,比较方法])：替换字符串注：默认值：起始字符1；替代次数不限；比较方法区分大小写（0）InStr([起始字符,]str,查找字符串[,比较方法])：检测是否包含子字符串可选参数需同时选返回起始位置InStrRev(str,查找字符串[,起始字符][,比较方法])：反向检测是否包含子字符串返回起始位置space(n)：构造n个空格的字符串string(n,str)：构造由n个str第一个字符组成的字符串StrReverse(str)：反转字符串split(str,分割字符串[,次数][,比较方法])：以分割字符串为分割标志将字符串转为字符数组可选参数需同时选3.数据类型转换函数：Cint(str)：转换正数 True -1；False 0；日期距离1899/12/31天数；时间上午段 0；下午段 1；Cstr(str)：日期输出格式yyyy/mm/dd；时间输出格式Am/Pm hh:mm:ss。

VB中各种数据类型转换函数1. 各种进制转换函数一般的数据进制包括十进制,二进制,十六进制.十进制就是我们日常生活用到的数据进制,因此也是我们最熟悉和清楚的;二进制是计算机的基础进制,主要是因为便于用物理器件实现二进制;八进制和十六进制因为和二进制的天然的亲密关系,并且表示比二进制更方便,因而也成为计算机的常用表示方法.VB中涉及到的数据进制之间的转换函数主要有如下几个:Hex 函数: 返回代表十六进制数值的String;Oct 函数: 返回代表一数值的八进制值的V ariant (String);Cint函数: 强制将一个表达式转换成-32,768 至32,767的整型;CLng函数: 强制将一个表达式转换成-2,147,483,648 至2,147,483,647的长整型;Cdec函数: 强制将一个表达式转换成Decimal 数据类型;CDbl函数: 强制将一个表达式转换成Double 数据类型;以上这些函数是最基本的几个数据进制之间的转换函数,其中以前三个函数最常用,也最有用.从上面几个函数我们可以看到,VB中没有为我们提供专门的函数供我们将表达式或是数据转换成十进制和二进制,不过十进制的转换我们可以通过Cint函数轻松完成,而二进制的实现我们可以通过二进制和八进制,十六进制的关系轻松转换.下面几个例子为Hex函数和Oct函数以及Cint函数的实例:(1). A= hex(5) 返回5;(2). B=hex(10) 返回A(3). C=hex(23) 返回17(4). D=oct(5) 返回5(5). E=oct(10) 返回12(6). F=oct(23) 返回27(7). G=Cint(&H17) 返回23(8) . H=Cint(&O12) 返回10以上这些函数的应用比较简单,就不多说了,值得一提的是Hex函数和Oct函数返回的都是字符串,如果是想将十六进制或是八进制的字符串变量转换成十进制,可以按如下方法进行:C=”17” 17为十六进制数值的StringC=”&H” & CIc=Cint(C) 返回232. 字符串和数字转换函数VB中的字符串函数比较多,也比较方便,就不一一介绍了.本文主要对字符串相关的转换函数做一些小结.字符串转换的函数主要有:Str()和V al()用于字符串和数字的相互转换;Chr()和Asc()用于字符串和AscII码的相互转换;Chrw()和Ascw()用于Unicode码和中文的相互转换;Format()函数用途十分广泛的一个函数,功能十分强大.在这些函数中前两对和Format()函数是我们经常用到的,这里只给出前两对的几个简单例子: (1) MyString = Str(-459.65) ' 返回"-459.65"。

目录基本数据类型算术运算符常用数学函数代码模块、变量的作用域日期型数据常用日期与时间函数常用字符串函数常用类型转换函数Print函数比较运算符及关系表达式示例逻辑运算真值表数组的声明通用过程数据文件图形方法Sin 函数是取一角度为参数值，返回角的对边长度除以斜边长度的比值。

Cos 函数的参数为一个角，返回直角三角形两边的比值。

该比值为角的邻边长度除以斜边长度之商。

将角度转换为弧度，请将角度乘以π/180。

将弧度转换为角度，将弧度乘以180/π。

π=3.14159127xx1,yy1 是原点,如附图的圆中心点.(129,120)rr=半径, an gle=角度xx2 = xx1 + (rr * Sin(angle * (π/ 180)))yy2 = yy1 + (rr * Cos(angle * (π/ 180)))附图是0,45,90,135,180,225,270,315,360 各角度的xx2,yy2看这图慢慢研究不难看出它的公式.'计算小代码:'xx1,yy1 是圆心, 如附图的圆中心点.(129,120)'rr=半径=100, angle=角度(0--360度)Option ExplicitConst π= 3.14159127Dim xx1!, yy1!, xx2!, yy2!, angle%, rr%, i%Private Sub Form_Load()rr = 1500Me.Width = rr * 2 + 1000: Me.Height = rr * 2 + 1000xx1 = Me.ScaleWidth \ 2: yy1 = Me.ScaleHeight \ 2Me.Move (Screen.Width - Me.Width) \ 2, (Screen.Height - Me.Height) \ 2Me.BackColor = QBColor(0)Me.AutoRedraw = TrueMe.FillColor = QBColor(1)Me.FillStyle = 0Me.ForeColor = QBColor(15)Me.Circle (xx1, yy1), rrMe.CurrentX = xx1 - 300: Me.CurrentY = yy1 - 200Print Trim(Str(Int(xx1 \ 15))) & "," & Trim(Str(Int(yy1 \ 15)))For i = 0 To 360 Step 45angle = ixx2 = xx1 + (rr * Sin(angle * (π/ 180)))yy2 = yy1 + (rr * Cos(angle * (π/ 180)))Line (xx1, yy1)-(xx2, yy2), QBColor(10)Me.CurrentX = xx2 - 300: Me.CurrentY = yy2 - 200Print Trim(Str(Int(xx2 \ 15))) & "," & Trim(Str(Int(yy2 \ 15)))Next iEnd Sub'***********************************************************************'小时钟代码, 添加Timer1 Line1 Line2 Line3Option ExplicitDim XS, YS, radDim ab%, CNT%, a!, b!, W!, X!, Y!, Z!, C!, D!, E!, F!, TX$Const π= 3.14159127Private Sub Form_Load()XS = Width / 2YS = (Height / 2) - 120 = "Courier New"For ab = 0 To 359 Step 30a = Sin(clock(ab))b = -(Cos(clock(ab)))If ab = 0 Then CNT = 360 Else CNT = abTX = Trim(Int((CNT) / 30))Line ((a * 800) + XS, (b * 800) + YS)-((a * 1000) + XS, (b * 1000) + YS), RGB(0, 0, 0)CurrentX = (a * 1200) + XS - (TextWidth(TX$) / 2)CurrentY = (b * 1200) + YS - (TextHeight(TX$) / 2)Print TX$Next abLine1.X1 = XSLine1.Y1 = YSLine2.X1 = XSLine2.Y1 = YSLine3.X1 = XSLine3.Y1 = YSMe.Move (Screen.Width - Me.Width) \ 2, (Screen.Height - Me.Height) \ 2 Timer1.Interval = 500Timer1.Enabled = TrueEnd SubPrivate Sub Timer1_Timer()W = TimerX = W / 120Y = W * 6Z = W / 10a = Sin(clock(X))b = -(Cos(clock(X)))Line1.X2 = (a * 600) + XSLine1.Y2 = (b * 600) + YSC = Sin(clock(Y))D = -(Cos(clock(Y)))Line3.X2 = (C * 800) + XSLine3.Y2 = (D * 800) + YSE = Sin(clock(Z))F = -(Cos(clock(Z)))Line2.X2 = (E * 800) + XSLine2.Y2 = (F * 800) + YSEnd SubPrivate Function clock(X)rad = π/ 180clock = X * radEnd Function。