有关VB的简单问题
1.print Val(a)+Val(text1.text),因为a和Text1.Text都是字符,+在字符中间表示两个字符连接在一起。Val()函数是将String型转化为Double型
的函数,可以完美解决这一问题
2.选择C,另一个分组控件是GroupBox
3:错,Variant 是一种特殊的数据类型,除了定长 String 数据及用户定义类型外,可以包含任何种类的数据。Variant 也可以包含Empty、Error、Nothing及Null等特殊值。可以用 VarType 函数或 TypeName函数来决定如何处理 Variant中的数据。
4.
Private Sub Command1_Click()
Dim a, b, c As Integer
a = Val(InputBox("输入第一个数", "输入"))
b = Val(InputBox("输入第二个数", "输入"))
c = Val(InputBox("输入第三个数", "输入"))
a = IIf(a > b, IIf(a b, c, b)), IIf(b c, a, c)))
Print a
End Sub
Update TableName Set 字段1='12345' Where ID='001'
把窗体的BorderStyle属性改一下就可以了Form 对象的 BorderStyle 属性设置值如下:
常数 设置值 描述
vbBSNone 0 无 (没有边框或与边框相关的元素)。
vbFixedSingle 1 固定单边框。可以包含控制菜单框,标题栏,“最大化”按钮,和“最小化”按钮。只有使用最大化和最小化按钮才能改变大小。
vbSizable 2 (缺省值)可调整的边框。可以使用设置值1列出的任何可选边框元素重新改变尺寸。
vbFixedDouble 3 固定对话框。可以包含控制菜单框和标题栏,不能包含最大化和最小化按钮,不能改变尺寸。
vbFixedToolWindow 4 固定工具窗口。不能改变尺寸。显示关闭按钮并用缩小的字体显示标题栏。窗体在 Windows 95 的任务条中不显示。
vbSizableToolWindow 5 可变尺寸工具窗口。可变大小。显示关闭按钮并用缩小的字体显示标题栏。窗体在 Windows 95 的任务条中不显示
Private sub form_onresize()
//Constant= 你自己定
form1.width= Constant
form1.height=Constant
end sub
把Form 对象的 BorderStyle 属性设置为1
wubc的方法也可以,不过在最大化和最小化时会出错,且用户在拖动边框来改变窗体大小时窗体会闪烁的
最好把Form 对象的 BorderStyle 属性设置为1
vb 简单的问题
显示的值是yesterday,原因见inputbox语说说明 一、InputBox函数 1、作用 显示一个输入框,并提示用户在文本框中输入文本、数字或选中某个单元格区域,当按下确定按钮后返回包含文本框内容的字符串。2、语法 InputBox(Prompt[,Title][,Default][,Xpos][,Ypos][,Helpfile,Context])参数说明:(1) ...
有关VB编程的问题
一、With MSFlexGrid1 Do While Not mrc.EOF n = n + 1 .Rows = n + 1 问题出在上面的部分:.CellAlignment = 4 .TextMatrix(.Rows - 1, 0) = mrc.Fields(0).TextMatrix(.Rows - 1, 1) = mrc.Fields(1).TextMatrix(.Rows - 1, 2) = mrc.Fields(2).TextMatrix(.Rows - 1, ...
关于vb的一个小问题,希望有人解答
第一次:k=0,a(1)=1,b(3)=1 第二次:k=1,a(2)=3,b(2)=3 第三次:k=2,a(3)=5,b(1)=5 For循环结束,k=3,Print b(3),因此结果是a。为什么For循环结束后k=3?因为每次循环完成执行Next语句k值增加步长值,然后重新开始与条件(0 to 2)进行比较,如果条件符合则执行循环,...
...找出一个可以用VB语言编程解决的实际问题,并介绍解决问题的思路...
水手分椰子问题 5个水手在椰岛上发现拉一堆椰子:先由第一名水手把椰子分成等量的5堆,还剩下一个 给猴子,自己藏一堆,然后,第二个水手把剩下4堆混合后重新分成等量的5堆。还剩下一个 个猴子,自己藏起一堆,以后第3,4个水手依此办理,最后第5个水手把剩下的椰子分成等量 的5堆后同样剩下一...
关于vb的小问题
setmynum是一个变量。val表示把括号后面的数转化为10进制的数值形式 &H是16进制数字的开头。写在" "里面表示加上&H这两个字符窜。如加号后面的数值=5的话,setmynum就等于val(&H5)这个意思 +号后面的mid(sur,11+4*1,4)是取值的函数,sur表示从sur这个变量里面取值,中间的表示从第几项开值...
关于一个简单VB大问题,拜托各位帮我解释一下!
1.你这个程序的主要问题是在这行 For i = 1 To Len(s)所以不能显示正确率,应该改为For i = 1 To Len(s1)还有就是Private Sub Text1_KeyPress(KeyAscii As Integer)事件改为Private Sub Text1_KeyUp(KeyCode As Integer, Shift As Integer)事件,否则你刚输入的这个字符不会计算到正确率里...
急求助几个关于计算机VB程序的问题!!谢谢大家希望大家可以帮帮我...
解:1.16 2.①sum+i ②sum=n 3.s*6 4.①b*b-4*a*c ②d=0 5.①s+1 ②s>0 6.16 7.①s+1 ②s>0 8.11
想求助几个关于VB方面的问题。
我也是刚学,不太懂 3 : X是5或7的倍数,意味着整除,可以表示成X mod 5=0 or X mod 7=0 4: 将两个数对换可以用倒序函数strreverse 即,strreverse(87) 就可以得到78了 6: 四舍五入的话要用四舍五入函数 round ,括号里面有两个参数,参数之间用逗号分割,其中第一个...
vb题目是啥 有啥简单易懂的过程
计算并打印1+2+3+……+9+10的和。更简单一点的程序:private sub form_click()dim i as integer,sum as integer for i=1 to 10 sum=sum+i next print “sum=”;sum end sub
VB中的一个小问题
Long(长整型)变量存储为 32 位(4 个字节)有符号的数值形式,其范围从 -2,147,483,648 到 2,147,483,647。Long 的类型声明字符为和号 (&)你在代码中有一个1279*140,溢出是因为VB在运算时遇到这样的数都会按最匹配的类型计算,这里因为1279和140都是整型,所以它会以整型进行运算,整型的 ...
畅隶博力:[答案] 给你编写一段小程序吧,供你参考. 调用方法:Call GetNewABC(a, b, c) 变量定义:Dim a, b, c As Integer Sub GetNewABC(a, b, c As Integer) If a * b
永康市15969947848: 关于VB简单的问题?
畅隶博力: Private Sub Form_Unload(Cancel As Integer) Dim s s = MsgBox("确定要退出吗?", vbYesNo) If s = vbNo Then Cancel = 1 End Sub 直接放在unload 中 如果你要在按钮上写的话 直接在按钮下面写 unload me 就行了
永康市15969947848: 关于VB代码简单问题?代码如下:for i = 1 to 3 for j = 1 to i for k = j to 3 a = a + 1 next k next jnext i执行上面3重循环后 a的值是多少:要的是说明计算方法:具... - ?
畅隶博力:[答案] 三重循环就是三个循环体,例如代码中的三个for循环 最终a的值为14 解析: for循环的默认step 是 1 就是每次循环都对循环变量进行自动加1 第一层for循环执行三次 ,第二层得for循环次数用到了第一层for循环的循环变量i,第三层循环的循环变量K得...
永康市15969947848: 非常简单的 VB问题?
畅隶博力: 哇哦~~!!!这就多了... 最常用的就是文本框TextBox,标签Label和按钮Command,接着还有下拉框,列表框等等,这要一一说明估计我发10次也发不完啊~~~ 还是建议楼主要用到哪个控件不会的属性直接上网查下更快哦~~~~
永康市15969947848: 一些简单的VB问题??
畅隶博力: Exp(n)是e的n次方,Log(n)是取n以e为底的对数;Exp 函数的作用和 Log 的作用互补,所以有时也称做反对数. 常数 e 的值大约是 2.718282. Int 和 Fix 都会删除 number 的小数部份而返回剩下的整数.Int 和 Fix 的不同之处在于,如果 number 为负数,则 Int 返回小于或等于 number 的第一个负整数,而 Fix 则会返回大于或等于 number 的第一个负整数.例如,Int 将 -8.4 转换成 -9,而 Fix 将 -8.4 转换成 -8.至于正数,是一样的.
永康市15969947848: 简单的vb问题 - ?
畅隶博力: 过程级变量只生效于本过程内,要想用于其他过程,应该定义全局变量,这样,每个过程都可以使用这个变量.你可以在代码的最上面定义这个变量,这就是全局变量,例如:Dim mPrivate Sub Command1_Click()T...
永康市15969947848: 十分简单的VB问题?
畅隶博力: '不排序连冒泡都可以省掉 Private Sub Form_Click() Dim arr, i As Integer, j As Integer, t As Integer, max As Integer Cls arr = Array(1, 2, 2, 1) max = arr(0) For i = 0 To UBound(arr) If max < arr(i) Then max = arr(i) Next For i = 0 To UBound(arr) If max = arr(i) Then Print max, Next End Sub
永康市15969947848: VB高手帮帮我,一些简单的VB问题?
畅隶博力: Private Sub Command1_Click() Form1.Cls End Sub Private Sub Command2_Click() form2.Show End Sub
永康市15969947848: VB编程的几个简单问题?
畅隶博力: 第2个会首先form1 跟屏幕保护程序的 设置一样,然后用个用个窗体总在前 的那个API再用个 透明 API 把form1透明处理.答案补充 form1 属性窗口中设置controlbox=false '隐藏控制菜单windowstate=2 '最大化 显示窗体Private Declare Function ...
永康市15969947848: 关于VB简单问题?
畅隶博力: 很简单 采用定时器 在定时器事件内加载鼠标点击事件 如果仅仅只是为了按键 鼠标点击的应用 从0开始学4小时足以