VB常用操作(计算机二级考试上机考试必备).doc

一。随机数出一个小写字母Private Sub Command1_Click()Dim a As StringRandomizea = Chr(Int(97 + 26 * 26)MsgBox (a)End Sub二。计算1/1！+1/2！+。+1|10！Private Sub Command1_Click()Dim m As Integer, n As Long, s As Doublen = 1s = 0For m = 1 To 10n = n * ms = s + 1 / nNextPrint sEnd Sub三。编写一个函数，求两个数的最小数Private Sub Form_Load()Dim a%, b%a = Val(InputBox(a=)b = Val(InputBox(b=)If a b ThenPrint abElsePrint abEnd IfEnd Sub四。输入正方形的边长，并计算对角线长Private Sub Form_Load()Dim a%, b%a = InputBox(请输入a的值)b = Sqr(2) * aPrint 正方形的对角线长：; bEnd Sub五。计算并输出下面级数前n项和中偶数项和s=1*2+2*3+3*4+4*5+。+n*(n+1)Private Sub Command1_Click()Dim i%, sum%For i = 1 To 50 Step 2sum = sum + i * (i + 1)Next iPrint sumEnd Sub六。编写一个函数，其功能是判断某个整数是不是素数，调用该函数，判断100001是否是素数Private Sub Command1_Click()Dim a%, i%a = InputBox(请输入a的值)For i = 1 To aIf a Mod i = 0 Thenm = m + 1End IfNext iIf m = 2 ThenMsgBox (a是素数)ElseMsgBox (a不是素数)End IfEnd Sub七。计算sum=1+3+5+.+99Private Sub Command1_Click()Dim i As Integer, sum As Integersum = 0For i = 1 To 100 Step 2sum = sum + iNexttext1.Text = sumEnd Sub八。输入一个两位数，分别输入它的个位数字和十位数字Dim a%, b%, c%a=val(inputbox a= )b = a Mod 10c = a 10Print 各位数字为：; b; 十位数字为：End Sub九。计算1/1!+1/3！+1/5!+.+1/99!Private Sub Form_Load()Dim i%, sum%, fact%For i = 1 To 9fact = fact * iIf i Mod 2 = 0 Thensum = sumsum = sum + 1 / factNextPrint sumEnd Sub十。编写程序，建立一个6*6的整型二维数组（数据由程序调用rnd函数产生0,15的随机），输出数组中所有元素和Private Sub Form_Load()Option Base 1For i = 1 To 6For j = 1 To 6a(i, j) = Int(Rnd * 15)Next jNext iSum = 0For i = 1 To 6For j = 1 To 6Sum = Sum + a(i, j)Next jNext iPrint SumEnd SubVB中MsgBox是一个很常用的函数，功能不算很强大，但还能算够用MsgBox就是弹出一个信息框，显示出要提示的内容vb MsgBox简介vb msgbox （消息框）按钮定义MsgBox strMsg1, c1+c2+c3 , strMsg2其中 strMsg1 为msgbox的提示信息strMsg2 为msgbox的标题内容c1+c2+c3 定义按钮形式，具体如下：c1: 按钮的类型0 vbOkOnly 只有一个按钮“确定”1 vbOkCancel 两个按钮“确定”和“取消”2 vbAbortRetryIgnore 三个按钮“终止”、“重试”和“忽略”3 vbYesNoCancel 三个按钮“是”、“否”和“取消”4 vbYesNo 两个按钮“是”和“否”5 vbRetryCancel 两个按钮“重试”和“取消”msgbox 返回值： vbOk 1 确定vbCancel 2 取消vbAbort 3 终止vbRetry 4 重试vbIgnore 5 忽略vbYes 6 是vbNo 7 否c2: 图标的类型16 vbCritical 32 vbQuesion ？48 vbExclamation ！64 vbInformation ic3: 默认焦点0 vbDefalaultButton1 左起第一个按钮自动获得焦点256 vbDefalaultButton2 左起第二个按钮自动获得焦点512 vbDefalaultButton3 左起第三个按钮自动获得焦点和为： 00 0000 0000Bc3 c2 c1例： 1. i = MsgBox ” 是否要删除该条记录 ? “, 1+32+0 , ” 请确认”2. MsgBox ” 是否要删除 ! “, 0+32+0 , ” 请.”、下面的示例利用MsgBox 函数显示一信息框并且返回值说明了按下的是那一个按钮:Dim MyVarMyVar = MsgBox (“Hello World!”, 65, “MsgBox 例子”) MyVar 包含 either 1 or 2， 依赖于被按下的按钮。vb msgbox语法MsgBox(prompt, buttons, title, helpfile, context)MsgBox 函数的语法有以下参数：vb msgbox参数 描述prompt 作为消息显示在对话框中的字符串表达式。prompt 的最大长度大约是 1024 个字符，这取决于所使用的字符的宽度。如果 prompt 中包含多个行，则可在各行之间用回车符 (Chr(13)、换行符 (Chr(10) 或回车换行符的组合 (Chr(13) & Chr(10) 分隔各行。buttons 数值表达式，是表示指定显示按钮的数目和类型、使用的图标样式，默认按钮的标识以及消息框样式的数值的总和。有关数值，请参阅“设置”部分。如果省略，则 buttons 的默认值为 0。title 显示在对话框标题栏中的字符串表达式。如果省略 title，则将应用程序的名称显示在标题栏中。helpfile 字符串表达式，用于标识为对话框提供上下文相关帮助的帮助文件。如果已提供 helpfile，则必须提供 context。在 16 位系统平台上不可用。context 数值表达式，用于标识由帮助文件的作者指定给某个帮助主题的上下文编号。如果已提供 context，则必须提供 helpfile。在 16 位系统平台上不可用。设置buttons 参数可以有以下值：常数 值 描述vbOKOnly 0 只显示确定按钮。vbOKCancel 1 显示确定和取消按钮。vbAbortRetryIgnore 2 显示放弃、重试和忽略按钮。vbYesNoCancel 3 显示是、否和取消按钮。vbYesNo 4 显示是和否按钮。vbRetryCancel 5 显示重试和取消按钮。vbCritical 16 显示临界信息图标。vbQuestion 32 显示警告查询图标。vbExclamation 48 显示警告消息图标。vbInformation 64 显示信息消息图标。vbDefaultButton1 0 第一个按钮为默认按钮。vbDefaultButton2 256 第二个按钮为默认按钮。vbDefaultButton3 512 第三个按钮为默认按钮。vbDefaultButton4 768 第四个按钮为默认按钮。vbApplicationModal 0 应用程序模式：用户必须响应消息框才能继续在当前应用程序中工作。vbsystemModal 4096 系统模式：在用户响应消息框前，所有应用程序都被挂起。第一组值 (0 5) 用于描述对话框中显示的按钮类型与数目；第二组值 (16, 32, 48, 64) 用于描述图标的样式；第三组值 (0, 256, 512) 用于确定默认按钮；而第四组值 (0, 4096) 则决定消息框的样式。在将这些数字相加以生成 buttons 参数值时，只能从每组值中取用一个数字。vb msgbox返回值MsgBox 函数有以下返回值：常数 值 按钮vbOK 1 确定vbCancel 2 取消vbAbor