求VB编程达人帮忙。。。
小弟不懂编程，请问这里面有没有写到关于一个金额小数点后保留位数的信息？
<html>
<head>
<base target="_top" />
<title>报价新增</title>
<meta http-equiv="Content-Language" content="zh-cn"><meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<link rel="stylesheet" href="../Common/Main.css">
<script language="javascript" SRC="../Common/FunDefine.js"></script>
<script language="javascript" src="../Common/jquery.js"></script>
<link rel="stylesheet" href="../Common/Extra.css">
<script language='javascript' src='../Common/graspcrmcore.js'></script>
<script type="text/javascript" src="../Common/upload/swfobject.js"></script><script type="text/javascript" src="../Common/upload/jquery.uploadify.v2.1.0.min.js"></script><link href="../Common/upload/default.css" rel="stylesheet" type="text/css" /><link href="../Common/upload/uploadify.css" rel="stylesheet" type="text/css" />
<script LANGUAGE="javascript">
<!--
var isSave = true ;
function save(){
if (confirmForm1()&&GridSaveCheck()){
if (isSave == true){
document.Form1.IsPopOutOnError.value = 'No' ; //有错误发生时是否将URL出栈，用于区别【保存】和【保存继续】
isSave = false ;
document.all.ButtonSave.disabled = true;
document.Form1.submit() ;
}
}
}
function confirmForm1(){
if (document.Form1.SerialNumber.value == '' )
{
alert('【报价编号】不能为空，请正确输入！') ;
//document.Form1.SerialNumber.focus() ;
return false ;
}
if (document.Form1.Subject.value=='' || isNullStrCheck(document.Form1.Subject.value))
{
alert('【报价主题】不能为空，请正确输入！') ;
document.Form1.Subject.focus();
return
}
if (document.Form1.CoInterunitTypeID.value == '' || isNullStrCheck(document.Form1.CoInterunitTypeID.value)){
alert('【客户名称】不能为空，请正确输入！') ;
return false ;
}
//客户联系人
if (document.Form1.Field1.value == '' || isNullStrCheck(document.Form1.Field1.value)){
alert('【客户联系人】不能为空，请正确输入！') ;
return false ;
}
if (document.Form1.Description.value.length > 7000) {
alert('【报价条款】字数超过最大允许数（3500字）！') ;
//document.Form1.Description.focus() ;
return false;
}
if (document.Form1.CommodityDescription.value.length > 1000) {
alert('【备注】字数超过最大允许数（500字）！') ;
//document.Form1.Description.focus() ;
return false;
}
if (isNaN(document.Form1.Sum.value))
{
alert("报价金额必须为数字") ;
document.Form1.Sum.focus();
return false;
}
if (eval(document.Form1.Sum.value) <0){
alert("报价金额必须为大于0的数字") ;
document.Form1.Sum.focus() ;
return false ;
}
if (document.Form1.Sum.value.length>8)
{
alert("报价金额必须不能大于8位") ;
document.Form1.Sum.focus() ;
return false ;
}
return true ;
}
VB编程的题,达人进一下
1:首先,在窗体上新建一个按钮叫CmdEven，然后写入代码 sub CmdEven_Click()dim i dim sum sum = 0 for i=2 to 100 step 2 sum = sum + i next i print sum end sub 2:建立一个按钮，叫CmdOK，建立一个文本框，叫Text1，程序如下 sub CmdOK_Click()dim n n=val(Text1.text)print ...
求助VB编程达人帮忙编写一个程序嘛~
Private Function Fdhs(x As Single) As Single If x < 0 Then Fdhs = Cos(2 * x)ElseIf x <= 3 Then Fdhs = Int(6 * x * x - 5 * x + 1)Else: Fdhs = 2.71828 ^ (3 - x)End If End Function Private Sub Command1_Click()Dim x As Single Dim y As Single x = V...
跪求VB语言编程达人!!!
Dim i As Integer For i = 1 To 100 If i Mod 2 <> 0 Then tSum = tSum + i Else tSum = tSum - i End If Next i Debug.Print tSum (3) 在界面上设计5个文本框,输入5个数并存入一数组中,通过for语句求出最大值,最小值以及和数,并在另外的几个文本框中显示出来.Dim tempStr(4...
VB编程达人请进来一下,紧急求助
这种问题就不要在这儿问了，不会有结果的。如果你是打算做个真正能用的，你应该去猪八戒等地方挂100块钱，效果比这好多了。如果你是打算交个作业，那你更是来错了地方，你应该去找个教程看看，系统学习一下。这个地方适合解答一句话问题，比如：“公寓管理系统用Access数据库可行吗”之类的。凡是回答...
VB编程达人请速进,今晚必需,在线等【穷举法】
Private Sub Command1_Click()Dim i As Integer Dim j As Integer Dim k As Integer Dim Y As Integer Dim n69 As Integer Dim n39 As Integer Dim n29 As Integer Y = 600 For i = 1 To 8 '设截取69CM的有i根，600\/69 最多为8 For j = 1 To 15 '设截取39CM的有J根...
VB编程达人来~
timer控件+sendkey,很容易.设置timer一秒触发一次事件 定义静态变量 例如:static i as intger i=i+1 sendkey vbkeyF5 '忘记怎么用sendkey了,你查一下 if i>2 then sendkey vbkeyEsc i=0 end if 就是这个思路
vb同构数编程,请达人相助。图标没问题了,主要是第二小题,请问这段程序...
y Mod 100 = x 这样的话x不会是三位数，应该是y Mod 1000吧
编程达人进,求一VB程序代码
)Text1.Text = ""End Sub Private Sub Form_Load()Form1.Caption = "求1~30整合数"Text1.Text = ""Command1.Caption = "确定"Command2.Caption = "清除"'以上的是对窗体及界面中控件的属性设置，如果你会在属性窗口中设置，就不用这段了，呵呵，当然最好是加上label标签啦 End Sub ...
一个VB编程题 达人进
呵呵..自己刚好经常要需要在合同中输入大写金额,就编写了一个..写完后在网上搜索了一下, 反正比别人的代码短不少呵..如果去掉一些验证过程,而改在text输入时验证,那么代码就更短了..现在的Function不用对输入的文本,以及粘贴进来的数据进行任何的限制.. 可以转换任何形式的数字串:比如: 普通的10032....
我想学习编程请各位达人说说要怎么入手?
可以先学习C语言或者VB，懂得基本的编程语言是必须（C语言程序设计） 然后就可以用开发环境遍些程序，软件（用C++ 6.0 , VS2008） 不过都得一个个来
