个人中心
我的提问
我的回答
今日任务
我的设置
退出
文档资料
电脑网络
体育运动
医疗健康
游戏
社会民生
文化艺术
电子数码
娱乐休闲
商业理财
教育科学
生活
烦恼
资源共享
其它
歪果仁看中国
爱问日报
精选问答
爱问教育
爱问公益
爱问法律
注意变量数据类型定义!如: Dim a As Double Dim b As Double Dim c As Double a = 3.26 b = 1.78 c = a * b MsgBox c
1个回答
用冒泡法即可。 X[a,b,c,d,e](数组赋值) || || TEMP>OR || MAX = TEMP MIN = TEMP || 故意写成这样地,希望你能看懂伪代码。 还有更好的方法,自己琢磨吧,努力把
dim?a?as?double a?=10.2566225 math.round(A,2)'得到的a?=?10.26
3个回答
四舍五入 不是取整 取整是去点小数点后面的 楼上不是正解
Dim?a,?b,?c Private?Sub?Command1_Click() 'c?=?Text1.Text?,这里C等于要转换的小数 If?Not?Left(c,?1)?=?0?Then Print?Val(c) Else a?=?Val(c) b?=?Str(a) Print?Replace...
5个回答
你要用Format函数将其格式化,不然不到1的小数是不会显示小数点前面那个0的,比如 s=0.015 label1=s %结果就是 .015 label1=format(s,"0.000") %结果就是 0.015
谢谢楼下兄弟指正!!!不知这样改对否?? 首先在窗体上放一个Command(名字为Command1) 和两个Label(名字分别为Label1,Label2) Dim aNum(1 To 3) As Single Private Sub Command1_Click() aNum(1) = Inpu...
2个回答
在窗口中添加一个 CommandButton 控件,起名为 Command1,在代码窗口中复制以下代码: Private Sub Command1_Click() Dim s As Single, str As String str = InputBox("输入实数:", "输入") If IsNu...
Option Explicit Private Sub Form_click() Dim n$, ns() As Byte, temp%, i%, j% n = InputBox("请输入一个不超过9位的正整数", , Int(1000000000 * Rnd)) If L...