当前位置:首页 >> 其它课程 >>

Vb常用内部函数练习题加答案


1、 编写一个计算器,在 text1 和 text2 中输入数字,text3 中输出结果。实现的功能为“加、 减、乘、除、绝对值、符号函数、平方根函数、取余、乘方、负号、整除”

2、 编写一个程序,在 text1 中输入,text2 中输出结果。实现的功能为“int(x) 、asc(x) 、 chr(x) 、val(s) 、str(s) ”

3、 编写一个程序,在 text1 中输入一个身份证号码,先去除该数字前的空格(ltrim(s) ) 从该身份证号码中截取此身份证号码的出生年月日

4、 编写以一下程序,实现如下的效果

5、 编写一个程序, 在 text1 和 text2 中输入一串字符开始查找, 如果 text2 中找到 text1 中的 字符,text3 返回位置,如果找不到 text3 则返回 0

6、 编写一个程序,在 text1 中输入一段英文语句,text2 中返回其大写或小写

7、 编写一个程序,获取当前系统时间

8、 编写一个随机函数,产生 1-20 之间的 5 组随机函数,且第二次初始化时不能重复出现

答案
1、Private Sub Command1_Click() Dim a As Single Dim b As Single a = Text1.Text b = Text2.Text Text3.Text = a + b End Sub Private Sub Command10_Click() Text3.Text = Sgn(Text3.Text) End Sub Private Sub Command11_Click() Text3.Text = Sqr(Text3.Text) End Sub

Private Sub Command2_Click() Dim a As Single Dim b As Single a = Text1.Text b = Text2.Text Text3.Text = a - b End Sub Private Sub Command3_Click() Dim a As Single Dim b As Single a = Text1.Text b = Text2.Text Text3.Text = a * b End Sub Private Sub Command4_Click() Dim a As Single Dim b As Single a = Text1.Text b = Text2.Text Text3.Text = a / b End Sub Private Sub Command5_Click() Dim a As Single Dim b As Single a = Text1.Text b = Text2.Text Text3.Text = a Mod b End Sub Private Sub Command6_Click() Dim a As Single Dim b As Single a = Text1.Text b = Text2.Text Text3.Text = a \ b End Sub Private Sub Command7_Click() Dim a As Single Dim b As Single a = Text1.Text

b = Text2.Text Text3.Text = a ^ b End Sub Private Sub Command9_Click() Dim a As Single Text3.Text = Abs(Text3.Text) End Sub 2、Private Sub Command1_Click() Dim a As Single a = Text1.Text Text2.Text = Int(a) End Sub Private Sub Command2_Click() Dim a As String a = Text1.Text Text2.Text = Asc(a) End Sub Private Sub Command3_Click() Dim a As String a = Text1.Text Text2.Text = Chr(a) End Sub Private Sub Command4_Click() Dim a As Single a = Text1.Text Text2.Text = Str(a) End Sub Private Sub Command5_Click() Dim a As String a = Text1.Text Text2.Text = Val(a) End Sub 3、Private Sub Command1_Click() Dim a As String Dim b As String a = Text1.Text b = LTrim(a) Text2.Text = Mid(b, 7, 6) End Sub

4、Private Sub Form_Click() Print String(1, "*") Print String(2, "*") Print String(3, "*") Print String(4, "*") Print String(5, "*") Print String(6, "*") Print String(6, "*") Print String(5, "*") Print String(4, "*") Print String(3, "*") Print String(2, "*") Print String(1, "*") End Sub 5、Private Sub Command1_Click() Dim a As String Dim b As String a = Text1.Text b = Text2.Text Text3.Text = InStr(a, b) End Sub 6、Private Sub Command1_Click() Dim a As String a = Text1.Text Text2.Text = LCase(a) End Sub Private Sub Command2_Click() Dim a As String a = Text1.Text Text2.Text = UCase(a) End Sub 7、Private Sub Command1_Click() Dim a As String Text1.Text = Now() End Sub 8、Private Sub Form_Click() Dim a As Integer Dim b As Integer a=1 b = 20 Randomize Print Int((b - a) * Rnd + a); Int((b - a) * Rnd + a); Int((b - a) * Rnd + a); Int((b - a) * Rnd + a); Int((b a) * Rnd + a)

End Sub


相关文章:
VB常用内部函数
5 VB 常用内部函数 Visual Basic 提供的内部函数可分为数学函数、转换函数、字符 串函数、时间/日期函数、随机函数等五类,每个函数可带有一 个或几个自变量(又称...
VB常用内部函数
Vb 常用内部函数 一、 类型转换函数 1、 Int(x):求不大于自变量 x 的最大整数 2、 Fix(x):去掉一个浮点数的小数部分,保留其整数部分 3、 Hex$(x):把...
VB常用内部函数
VB常用内部函数_计算机软件及应用_IT/计算机_专业资料。VB常用内部函数 VB 常用内部函数类别 转换 函数 Int(x) Fix(x) Hex$(x) Oct$(x) Asc(x) Chr$(x...
VB常用内部函数
VB的内部函数大体上分为四大类: 数学函数、 字符串函数、 日期与时间函数和转换函数。 4.5.1 数学函数表4-5列出了VB提供的10种常用数学函数。表4–5 常用...
VB常用内部函数
VB常用内部函数_IT/计算机_专业资料。Vb 常用内部函数请单击要查看的函数组: 请单击要查看的函数组:类型转换函数数学函数日期与时间函数随机数函数字符串函数文件...
VB常用内部函数
VB常用的一些内部函数VB常用的一些内部函数隐藏>> vb 常用函数一览表 常用内部函数...(3) "AAA" " " 找不到则返回 0 日期和时间函数 函数 Date Time Now ...
vb常用控件习题(含答案)
vb常用控件习题(含答案)_职高对口_职业教育_教育专区。中职VB控件习题 ...为了让学生能更好的理解和 掌握双重循环及 Tab(x)格式函数的运用,本人结合平时...
vb常用控件__练习题(含答案)
vb常用控件__练习题(含答案)_IT认证_资格考试/认证...13. 除了在程序使用 LoadPicture 函数装载图形外,还...VB常用内部控件 34页 免费 VB常用控件1 35页 免费...
vb常用控件__练习题(含答案)
vb常用控件__练习题(含答案)_语文_高中教育_教育专区。第九章控件综合试题 一...13.除了在程序使用 LoadPicture 函数装载图形外,还可以在设计阶段通过修改(...
vb练习题及答案
vb练习题及答案_财会/金融考试_资格考试/认证_教育...*b*c*(d+e) 38.不属于程序的三种基本结构的是...D、对象原来就包含的内部函数或程序。 9.VB 在...
更多相关标签: