vb 简单的问题

vb简单题~

A

在程序中i没有赋值，初始值是0
0/3=int(0/3)
t=t+1已经加了一次，变成了1
在循环之前加上i=1就行了。

显示的值是yesterday，原因见inputbox语说说明

一、InputBox函数
1、作用

显示一个输入框，并提示用户在文本框中输入文本、数字或选中某个单元格区域，当按下确定按钮后返回包含文本框内容的字符串。

2、语法

InputBox(Prompt[,Title][,Default][,Xpos][,Ypos][,Helpfile,Context])

参数说明：

(1) Prompt，必需的参数，作为输入框中提示信息出现的字符串，其最大长度约为1024个字符，由所使用字符的宽度决定。如果Prompt包含多个行，则可在各行之间用回车符(Chr(13))、换行符(Chr(10))或回车换行符的组合(Chr(13)&Chr(10))来分隔。

(2) Title，可选的参数，作为输入框标题栏中的字符串。若省略该参数，则在标题栏中显示应用程序名称。

(3) Default，可选的参数，作为输入框中默认的字符串，在没有其它输入时作为缺省值。若省略该参数，则文本框为空。

(4) Xpos，可选的参数，为数值，成对出现，指定输入框的左边与屏幕左边的水平距离。若省略该参数，则输入框在水平方向居中。

(5) Ypos，可选的参数，为数值，成对出现，指定输入框的上边与屏幕上边的距离。若省略该参数，则输入框在屏幕垂直方向距下边约三分之一的位置。

(6) Helpfile，可选的参数，为字符串，表示帮助文件，用该文件为输入框提供上下文相关的帮助。若有Helpfile，则必须有Context。

(7) Context，可选的参数，为数值，帮助文件中某帮助主题的上下文编号。若有Context，则必须有Helpfile。

作业自己做
谁TM知道为什么？微软就这么定的，有为什么么？

---

梧州市13966321740： VB的一个简单问题题目:请用VB编写一个函数,已知a、b两个数值(a 、b为正整数),比较大小,将较大者赋值给a,较小者赋值给b,并输出a与b的余数... - ？
於虹甲泼：[答案] 给你编写一段小程序吧,供你参考. 调用方法:Call GetNewABC(a, b, c) 变量定义:Dim a, b, c As Integer Sub GetNewABC(a, b, c As Integer) If a * b

梧州市13966321740： 非常简单的 VB问题？
於虹甲泼： 哇哦~~!!!这就多了... 最常用的就是文本框TextBox,标签Label和按钮Command,接着还有下拉框,列表框等等,这要一一说明估计我发10次也发不完啊~~~ 还是建议楼主要用到哪个控件不会的属性直接上网查下更快哦~~~~

梧州市13966321740： 一个简单的VB问题 - ？
於虹甲泼： if 89 >= a >= 80 Then要写成if 89 >= a And a>= 80 Then另外,还有一处也要做相应修改

梧州市13966321740： 十分简单的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

梧州市13966321740： 一些简单的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.至于正数,是一样的.

梧州市13966321740： 简单的vb问题 - ？
於虹甲泼： 过程级变量只生效于本过程内,要想用于其他过程,应该定义全局变量,这样,每个过程都可以使用这个变量.你可以在代码的最上面定义这个变量,这就是全局变量,例如:Dim mPrivate Sub Command1_Click()T...

梧州市13966321740： VB高手帮帮我,一些简单的VB问题？
於虹甲泼： Private Sub Command1_Click() Form1.Cls End Sub Private Sub Command2_Click() form2.Show End Sub

梧州市13966321740： vb简单的问题 - ？
於虹甲泼： 窗体内要放一个timer控件,其enabled设为false,interval设为一个非0整数. Private Sub Comma...

梧州市13966321740： 一个VB的简单问题 - ？
於虹甲泼： if contain(text1.text,12) thentext2.text=＂123＂end if

梧州市13966321740： 关于VB简单的问题？
於虹甲泼： Private Sub Form_Unload(Cancel As Integer) Dim s s = MsgBox(＂确定要退出吗?＂, vbYesNo) If s = vbNo Then Cancel = 1 End Sub 直接放在unload 中 如果你要在按钮上写的话 直接在按钮下面写 unload me 就行了