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

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常用内部函数练习题加答案
Vb常用内部函数练习题加答案_其它课程_高中教育_教育专区。1、 编写一个计算器,在 text1 和 text2 中输入数字,text3 中输出结果。实现的功能为“加、 减、乘...
初二函数练习题与答案
初二函数练习题答案_数学_初中教育_教育专区。初二函数练习题答案一、选一选,慧眼识金(每小题 3 分,共24分) 1.下列函数关系式:① y ? ?2 x, ② y...
常用内部函数
常用内部函数 (1)数学运算函数 1)绝对值函数 语法:abs(x) 结果:得到 x 的...实验3 表达式常用内部... 2页 免费 喜欢此文档的还喜欢 VB常用内部函数大全...
常用内部函数
VB 常用内部函数数学函数 函数 Abs(x) Exp(x) 功能 绝对值 自然指数 取整(...执业医师实践技能考试模拟试题20份文档 乘机安全小贴士 安全乘机指南 如何选择安全...
练习题参考答案
图 A.5 2 Form3 设计界面 附录 练习题参考答案 ...'调用函数过程后,进行累加 运行本窗体,输入 n 为 ..._ MyBase.Load 19 VB.NET 2005 程序设计教程 End...
一次函数练习题及答案(六较难)
一次函数练习题及答案(六较难)_数学_初中教育_教育专区 暂无评价|0人阅读|0次下载|举报文档一次函数练习题及答案(六较难)_数学_初中教育_教育专区。初中数学...
VB习题及习题解答
VB习题及习题解答_IT认证_资格考试/认证_教育专区。...3-109 习题一 参考答案一、简答题 1.答:Visual ...一些特殊函数或过程,利用对象内部 自带的函数或过程,...
一次函数的定义练习题及答案
一次函数的定义练习题及答案_数学_初中教育_教育专区。一次函数的定义 1、判断正误: (1)一次函数是正比例函数; () (2)正比例函数是一次函数; (3)x+2y=5 ...
vb函数练习题
vb函数练习题_IT认证_资格考试/认证_教育专区。1. Rnd 函数不可能为下列( )...D.Instr( ) 和__ _。 18.用于获得字符串 S 从第 5 个字符开始的 3 个...
VB练习题及答案
VB练习题及答案_理学_高等教育_教育专区。第一套题...7、假定 X 是一个数值型变量,那么由函数组成的...A)使用顺序、选择和重复(循环)三种基本控制结构表示...
更多相关标签: