2006-04-18
 
在VB中的按纽命令中，如何写入格式化命令，是什么代码？
 
用VB格式化硬盘：
 
在新建工程中添加表单一个；命令按钮一个为CmdFormatDisk；驱动器列表控件一个为Drive1
 
然后添加如下代码：
 
Option Explicit
 
Private Declare Function SHFormatDrive Lib "shell32" _
 
(ByVal hwnd As Long, ByVal Drive As Long, ByVal fmtID As Long, _
 
ByVal options As Long) As Long
 
Private Declare Function GetDriveType Lib "kernel32" Alias _...全部
 
用VB格式化硬盘：
 
在新建工程中添加表单一个；命令按钮一个为CmdFormatDisk；驱动器列表控件一个为Drive1
 
然后添加如下代码：
 
Option Explicit
 
Private Declare Function SHFormatDrive Lib "shell32" _
 
(ByVal hwnd As Long, ByVal Drive As Long, ByVal fmtID As Long, _
 
ByVal options As Long) As Long
 
Private Declare Function GetDriveType Lib "kernel32" Alias _
 
"GetDriveTypeA" (ByVal nDrive As String) As Long
 
Private Sub cmdFormatDisk_Click()
 
Dim DriveLetter$, DriveNumber&, DriveType&
 
Dim RetVal&, RetFromMsg%
 
DriveLetter = Ucase(Drive1。
 
Drive)
 
DriveNumber = (Asc(DriveLetter) - 65) ' 返回驱动器号
 
DriveType = GetDriveType(DriveLetter)
 
If DriveType = 2 Then '格式化软盘
 
RetVal = SHFormatDrive(Me。
 
hwnd, DriveNumber, 0&, 0&)
 
Else
 
RetFromMsg = MsgBox("真的要格式化： " & DriveLetter & " 驱动器吗(Y/N)？" & vbCrLf & _
 
"驱动器格式化之后，将不能恢复。
 
", 276, "格式化确认")
 
Select Case RetFromMsg
 
Case 6 '确认格式化
 
RetVal = SHFormatDrive(Me。hwnd, DriveNumber, 0&, 0&)
 
Case 7 '不格式化，退出
 
End Select
 
End If
 
End
 
。
 
收起

 
展开全部
 
val是一个将字符串参62616964757a686964616fe59b9ee7ad9431333366306530数转换成数值的函数，字符串参数中一般要含有数字，且以数字开头，val函数才会将其中的数字转换成适当的数值。
 
它能识别小数点和进位符号：&O和&H。但它不能识别可能作为数值一部分的符号和字符，例如美元符与逗号。参数中的空白符、制表符和换行符会被去掉。如果字符串不能转换为数值，将返回0。
 
val过程：
 
用法：Val(S,V,Code);
 
含义：将字符串S转换成与V相同的数值类型并赋值给V，如果字符串中有非数字，则V:=0，Code用于返回非数字字符的位置。
 
使用例子：
 
text1.text = "10"
 
text2.text = "11"
 
text3.text = text1.text+text2.text
 
按道理应该得到10＋11(结果是21),但返回的是1011，这个是因为运算时候是字符运算。
 
text1.text = "10"
 
text2.text = "11"
 
text3.text = val(text1.text)+val(text2.text)
 
这样就返回21了 因为这里不是计算"11"+"12"而是计算11+12 前者等同于"11" & "12"。
 
如果是字符串或者空格会返回一个0，所以可以利用这一点过滤字符只能输入数字 。
 

 
扩展资料
 
Val 函数，在它不能识别为数字的第一个字符上，停止读入字符串。那些被认为是数值的一部分的符号和字符，例如美圆号与逗号，都不能被识别。但是函数可以识别进位制符号 &O(八进制)和 &H(十六进制)。空白、制表符和换行符都从参数中被去掉。
 
下面的返回值为 1615198：
 
Val(" 1615 198th Street N.E.")
 
在下面的代码中，Val 为所示的十六进制数值返回十进制数值 -1。
 
Val("&HFFFF")
 
注意 Val 函数只会将句点(.)当成一个可用的小数点分隔符。当使用不同的小数点分隔符时，如在国际版应用程序中，代之以 CDbl 来把字符串转换为数字。

 
全国计算机二级考试VB语言考试试题
 
为了使广大考生在备战计算机等级考试时，更快的掌握相应知识点，下面是小编搜索整理的全国计算机等级考试VB语言考试试题，供参考练习，预祝考生们考出自己理想的成绩!
 

 
全国计算机二级考试VB语言考试试题
 
1． 在窗体上画一个名称为Command1的命令按钮，然后编写如下事件过程：
 
Private Sub Command1_Click()
 
Dim num As Integer
 
num = 1
 
Do Until num > 6
 
Print num;
 
num = num + 2.4
 
Loop
 
End Sub
 
程序运行后，单击命令按钮，则窗体上显示的内容是
 
(A)1 3.4 5.8 (B)1 3 5 (C)1 4 7 (D)无数据输出
 
2． 有如下函数：
 
Function Facn ( x As Integer ) As Long
 
Dim p As Long , i As Integer
 
p = 1
 
For i = 1 To x
 
p = p * i
 
Next i
 
Facn = p
 
End Function
 
调用它的事件过程如下：
 
Private Sub Command1_Click ( )
 
i = Val ( InputBox ( “请输入数据”))
 
a = Facn (( i ) ) ‘实参i用圆括号括起，则强制为值传递
 
Print a
 
End Sub
 
若输入数据6，则程序运行结果为( 【73】 )
 
(A)60 (B)120 (C)600 (D)720
 
3． 在窗体上画一个名称为Command1的命令按钮，然后编写如下事件过程：
 
Private Sub Command1_Click()
 
Dim a As Integer, s As Integer
 
a = 8
 
s = 1
 
Do
 
s = s + a
 
a = a－1
 
Loop While a <= 0
 
Print s; a
 
End Sub
 
程序运行后，单击命令按钮，则窗体上显示的内容是
 
(A) 7 9 (B) 34 0(C)9 7(D)死循环
 
4． 下列程序的执行结果为( 【74】 )
 
Dim IntSum As Integer , i As Integer
 
IntSum = 0
 
For i = 30.2 To 1 Step -5.3
 
IntSum = IntSum + i
 
Next i
 
Print IntSum
 
(A)106 (B)105 (C)102 (D)101
 
5． 在窗体上画一个命令按钮，然后编写如下事件过程，该过程执行结果为( 【75】 )
 
Option Base 1
 
Private Sub Command1_Click ( )
 
Dim a As Variant , s As Integer
 
a = Array ( 2 , 4 , 6 , 8 )
 
j = 1
 
For i = 1 To 4 Step 1
 
s = s + a ( i ) * j
 
j = j *10
 
Next i
 
Print s
 
End Sub
 
(A)0 (B)1110 (C)2468 (D)8642
 
设有如下通用过程：
 
Public Function f(x As Integer)
 
Dim y As Integer
 
x = 20
 
y = 2
 
f = x * y
 
End Function
 
6． 在窗体上画一个名称为Command1的`命令按钮，然后编写如下事件过程：
 
Private Sub Command1_Click()
 
Static x As Integer
 
x = 10
 
y=5
 
y = f(x)
 
Print x; y
 
End Sub
 
程序运行后，如果单击命令按钮，则在窗体上显示的内容是
 
(A)10 5 (B)20 5 (C)20 40 (D)10 40
 
7． 对窗体编写如下代码：
 
Option Base 1
 
Private Sub Form_KeyPress( KeyAscii As Integer)
 
a = Array (123 , 86 , 57 , 248 , 32)
 
m1 = a ( 1 )
 
m2 = 1
 
If KeyAscii = 13 Then
 
For i=2 To 5
 
If a ( i ) > m1 Then
 
m1 = a ( i )
 
m2 = i
 
End If
 
Next i
 
End If
 
Print m1 , m2
 
End Sub
 
程序运行后，按回车键，输出结果为( 【76】 )
 
(A)32 5 (B)248 4 (C)32 1 (D)248 5
 
设有如下通用过程：
 
Public Sub Fun(a(), ByVal x As Integer)
 
For i = 1 To 5
 
x = x + a(i)
 
Next
 
End Sub
 
8． 在窗体上画一个名称为Text1的文本框和一个名称为Command1的命令按钮，然后编写如下的事件过程：
 
Private Sub Command1_Click()
 
Dim arr(5) As Variant
 
For i = 1 To 5
 
arr(i) = i
 
Next
 
n = 10
 
Call Fun(arr(), n)
 
Text1.Text = n
 
End Sub
 
程序运行后，单击命令按钮，则在文本框中显示的内容是
 
(A)10 (B)15 (C)25 (D)24
 
9． 阅读程序：
 
Function Func ( a As Integer )
 
b = 1
 
Static c As Integer
 
b = b +1
 
c = c +1
 
Func = a + b + c
 
End Function
 
Private Sub Command1_Click( )
 
Dim a As Integer
 
a = 3
 
For i =1 to 3
 
Print Func( a )
 
Next i
 
End Sub
 
运行上面的程序，单击命令按钮后，输出结果为( 【77】 )
 
(A)6 (B)6 (C)6 (D)6
 
7 6 8 13
 
8 6 10 21
 
10． 在窗体上画一个名称为Command1的命令按钮，然后编写如下代码：
 
Option Base 1
 
Private Sub Command1_Click()
 
d = 0
 
c = 10
 
x = Array(10, 12, 21, 32, 24)
 
For i = 1 To 5
 
If x(i) > c Then
 
d = d + x(i)
 
c = x(i)
 
Else
 
d = d－c
 
End If
 
Next i
 
Print d
 
End Sub
 
程序运行后，如果单击命令按钮，则在窗体上输出的内容为
 
(A)89 (B)99 (C)23 (D)77
 
【全国计算机二级考试VB语言考试试题】相关文章：

 
《中职学校《VB语言程序设计》教学浅析》由会员分享，可在线阅读，更多相关《中职学校《VB语言程序设计》教学浅析(5页珍藏版)》请在人人文库网上搜索。
 
1、中职学校VB语言程序设计教学浅析在计算机教学中， 计算机的课程设置大致分为两大类： 一类 是操作性较强的计算机应用软件的教学， 另一类是理论性较强的 计算机语言方面的教学。计算机应用软件的学习比较直观易懂， 它侧重于操作， 只要有足够的上机时间， 大部分学生均可以轻松 驾驭各种软件。 但计算机语言的学习相比之下就难得多， 它侧重 于理解， 要在理解的基础上加以应用才能学好。 计算机程序设计 课的目的就是通过学习程序设计语言的基本思想、 语法知识和编 程方法，提高学生的程序设计能力、分析解决实际问题的能力， 并培养学生形成严密的思维能力。 因此，计算机程序设计课程的 教学一直是教师教起来感觉很头。
 
2、痛、 学生学起来也感到很吃力的 一门课，本文针对如何提高计算机程序设计课程的教学效果进行 了一些探索。一、上好第一堂课，激发学生学习兴趣 如何上好第一堂VB语言程序设计课对于树立学生的信 心，激发学生学习的兴趣和动力来说是至关重要的。 兴趣永远是 最好的老师， 有了兴趣他们才会主动地去学习， 所以第一堂课的 成功与否直接关系到学生能否对这门课产生兴趣。1.展示程序结果，激发兴趣要激发学生的学习兴趣，首先，要让大家知道 VB语言的强 大功能， 利用它我们能编写各种软件， 利用多媒体教学工具向学生展示各种结果画面。例如，可以先利用 VB语言制作一个在水 中自由自在游荡的小鱼图案的屏幕保护程序， 或。
 
3、者是一种能展示 相册与画面的VB程序，演示给学生看，这么短的时间内就能编 出一个漂亮而又与生活密切相关的多媒体程序， 当然会一下就可 以勾起他们好奇心。同时，为了让学生进一步感受到VB程序设计的魅力，还可以展示编制好的“卡拉 0K点播系统”等实用程 序，使学生从中得知 VB的实用性，自然而然他们就有了学习的 主动性和积极性。2.强调VB语言的重要性VB语言是学生今后学好后续课程如 VC语言及网站管理与建 设等的基础。虽然，程序设计语言更新很快，但如果真正掌握精 了程序设计思想，具备了解决实际问题的能力，语言再更新，程 序设计的本质也不会变。3传授VB语言的学习方法VB语言是一门实践性的课程，要。
 
4、理论结合实践，加强学生 的动手能力、解决问题的能力，要在学习方法上给以学生指导， 告诉学生如何自学、如何听课、如何动手实践，明确一点：“ VB 语言不是看会的，也不是听会的，而是亲自动手实践会的”，强 调实践的重要性。二、循序渐进讲授及例题的选择 绝大部分学生是第一次接触程序设计的概念， 而通俗、易懂 的教学原则同样适合于这门课的教学。 在课程讲授过程中， 不应 把重点放在语法规则的叙述上，而应放在算法和程序设计方法 上，通常由几个例题引出一种语法规则， 通过一些求解具体问题 的程序来分析算法，介绍程序设计的基本方法和技巧。从最简单的问题入手， 一开始就介绍程序， 要求学生编写程 序，通过反复。
 
5、编写、运行程序来掌握语言规则和程序设计方法。 同一个语法规则、同一种算法，在选择例题时也是由简到难，逐 步呈现给学生。例题要做到一题多变、一题多解，开发学生创造 性思维。如讲解VB语言中的赋值语句时，为了使学生能对此语 句有更深刻的了解和认识它的适用场合， 教师可以举这样一个例 子：有A B两个变量，它们的值分别为 3和6,试用赋值语句 交换它们的值。 讲解之前，教师可以先让学生思考这样一个问题： 假如有红、 蓝两瓶墨水， 现在我们想把红色墨水倒进盛蓝色墨水 的瓶子， 该怎样进行操作呢？经过思考， 大多数学生能想到找一 个空瓶来进行交换操作， 这时再回到开始的例子， 学生就能理解 为什么交换时。
 
6、要设置一个暂存数据的中间变量， 从而写出以下赋 值语句：C= A: A= B: B= C。通过这个例子，我们不但让学生掌 握了赋值语句的功能和用法， 同时还让学生对赋值语句有了更加 深刻的认识。三、巧设练习题 学习计算机程序设计课程的最终目的是能运用所学知识进 行简单的编程，但编程能力的培养不是一步到位的。首先，对命 令语句的熟悉程度，是否能独立看懂已编好的程序；再者，对错误的程序是否具有一定的调试能力； 最后才能培养独立的编程能 力。做习题是复习所学内容的过程， 也是深入学习的过程。 如读 程序分析结果的练习， 能加深学生对程序语句用法的理解， 及对 程序结构流程的理解； 看程序改错练习， 。
 
7、可以锻炼学生静态调试 程序的能力， 大部分学生能看懂程序， 但对于错误的程序却一筹 莫展，关键还是对命令语句的用法不熟悉，不能灵活运用。而让 学生找错误，能促使学生去理解、去思考、去假设、去推理，锻 炼思维能力。 此外要求学生们模仿一些例题， 熟悉编程的方法和 技巧。如课堂上举例讲解了求 1到 100整数和的编程， 那么就布 置计算 1 到 100 的偶数和或者奇数和的练习题。 这样使学生整个 的思维过程包括了想象、创造、启发等方面的训练，对于思维活 跃、能力较强的学生来说，更有发挥创造力、想象力的空间。四、上机实践学习计算机语言必须将理论与实践相结合， 学好程序的关键 是动手与动脑编写程序，。
 
8、 并亲自上机调试程序。 编写程序是上机 实践的第一步， 能够让学生将所学的知识有效运用起来， 逐步培 养学生编写程序的能力； 上机调试程序是上机实践的第二步， 实 际上机操作前， 教师需要由浅入深， 系统地为学生逐步设置上机 任务，让学生明确上机任务，编写好上机调试的程序，从而使每 次上机实践都有收获。在上机实践过程中， 需要老师演示一些程序改错与调试的基 本方法，引导学生自己动手调试程序，为程序改错。上机辅导必 须遵循“教师为主导、学生为主体”的原则。学生上机时，教师 细心观察学生在编写程序中容易出错的问题并加以重点记录， 对 学生容易出现的问题采取的做法是： 先给一定时间让学生自己去 思考。
 
9、，找出解决办法；对于有一定难度的问题，可以先挑出重点 部分进行提示， 鼓励学生动脑， 教师再针对学生容易犯错的地方 集中加以讲解，以引起学生的重视，避免今后犯类似错误。上机 课时，教师还可以随堂布置一些程序设计的练习， 让学生进行快 速设计，从而锻炼学生在限定时间内分析、解决问题的能力。实 践证明， 长期坚持这样的锻炼， 学生的动手能力和用脑能力都会 有很大的帮助。总之，对于中职学校的学生来说，学习语法不是学习 VB 语言程序设计的真正目的，应该在掌握语法的基础上，通过上 机实践， 真正学会使用程序设计语言来解决各种实际问题， 学以 致用。教师应在开学初就要让学生充分了解VB语言程序设计，然后在以后的教学过程中， 要使学生在学习中得到快乐、 尝试成 功的喜悦， 提高学习的积极性和主动性， 让程序设计语言真正成 为学生喜爱的课程。同时，在教学过程中应以学生为主体、教师 为主导， 采用符合学生认知规律的教学方法， 调动学生学习的主 动性，并采用综合评价方式， 使得课程的教学质量得到不断提高。