A. 用vb语言编写asp.net 中购物车代码
我觉得你的思路不太对，你最好还是用vbscript脚本写访问数据库的，这样嵌入asp.net要好些，网上找找，有很多例子
B. vb购物车程序，有list1和list2，点击按钮1，将列表一的东西加入到列表2，一里的那个消失，
代码如下：
PrivateSubForm_Load()
OnErrorResumeNext
List1.Clear
Fori=1To10
List1.AddItem"商品"&i
Nexti
List2.Clear
EndSub
PrivateSubList1_Click()
OnErrorResumeNext
List2.AddItemList1.List(List1.ListIndex)
List1.RemoveItem(List1.ListIndex)
EndSub
PrivateSubList2_Click()
OnErrorResumeNext
List1.AddItemList2.List(List2.ListIndex)
List2.RemoveItem(List2.ListIndex)
EndSub
界面如内下：容
C. VB各种常用的各种代码
??"hello word!"
D. 求VB编程常用代码大全
1.数值型函数：
abs(num):
返回绝对值
sgn(num):
num>0
1;
num=0
0;
num<0
-1;判断数值正负
hex(num):
返回十六进制值
直接表示：&Hxx
最大8位
oct(num):
返回八进制值
直接表示：&Oxx
最大8位
sqr(num):
返回平方根
num>0
int(num):
取整
int(99.8)=99;
int(-99.2)=100
fix(num):
取整
fix(99.8)=99;
fix(-99.2)=99
round(num,n):
四舍五入取小数位
round(3.14159,3)=3.142
中点数值四舍五入为近偶取整
round(3.25,1)=3.2
log(num):
取以e为底的对数
num>0
exp(n):
取e的n次幂
通常用
num^n
sin(num):
三角函数，以弧度为值计算
(角度*Pai)/180=弧度
con(num);
tan(num);
atn(num)
2.字符串函数：
len(str)：计算字符串长度
中文字符长度也计为一！
mid(str,起始字符,[读取长度])：截取字符串中间子字符串
left(str,nlen)：从左边起截取nlen长度子字符串
right(str,nlen)：从右边起截取nlen长度子字符串
Lcase(str)：字符串转成小写
Ucase(str)：字符串转成大写
trim(str)：去除字符串两端空格
Ltrim(str)：去除字符串左侧空格
Rtrim(str)：去除字符串右侧空格
replace(str,查找字符串,替代字符串,[起始字符,替代次数,比较方法])：替换字符串
注：默认值：起始字符
1；替代次数
不限；比较方法
区分大小写（0）
InStr([起始字符,]str,查找字符串[,比较方法])：检测是否包含子字符串
可选参数需同时选
返回起始位置
InStrRev(str,查找字符串[,起始字符][,比较方法])：反向检测是否包含子字符串
返回起始位置
space(n)：构造n个空格的字符串
string(n,str)：构造由n个str第一个字符组成的字符串
StrReverse(str)：反转字符串
split(str,分割字符串[,次数][,比较方法])：以分割字符串为分割标志将字符串转为字符数组
可选参数需同时选
3.数据类型转换函数：
Cint(str)：转换正数
True
-1；False
0；日期
距离1899/12/31天数；时间
上午段
0；下午段
1；
Cstr(str)：日期
输出格式
yyyy/mm/dd；时间
输出格式
Am/Pm
hh:mm:ss
Clng(str)：与Cin()类似
Cbool(num)：num不为零
True；反之
False
Cdate(str)：转换日期格式
0：#Am
12:00:00#；正数
距离1899/12/31天数的日期；浮点数
日期＋小数时间
Cbyte(num)：num<255
转换为字节
Csng(str)：转换为单精度数值
Cdbl(str)：转换为双精度数值
Ccur(str)：转换为现金格式
4.时间函数：
date：取系统当前日期
time：取系统当前时间
now：取系统当前时间及日期值
Datetime类型
timer：取当前时间距离零点秒值，计时器，可计算时间差
DateAdd(间隔单位,间隔值,日期)：推算相邻日期
DateDiff(间隔单位,日期一,日期二)：计算时间差
日期二-日期一
Datepart(间隔单位,日期)：计算日期的间隔单位值
Dateserial(date)：输出日期值（按序列计算）
Timeserial(time)：输出时间值（按序列计算）
Datevalue(datetime)：取出字符串中日期值
Timevalue(datetime)：取出字符串中时间值
weekday(date)：计算星期几
MonthName(date)：输出月分名
year(datetime)：截取年份
month(datetime)：截取月份
day(datetime)：截取日
hour(datetime)：截取小时
minute(datetime)：截取分钟
second(datetime)：截取秒
5.其它函数：
Array(unit,..)：动态生成数组
Asc(str)：输出字符串第一个字符的ASCII码
Chr(asc)：转换ASCII为字符
Enter：Chr(13)&Chr(10)
Filter(数组名称,关键字符串,[,包含][,比较方法])：
将字符串数组中含有关键字符串的元素存成新的数组（默认）
[包含]为false则取不包含的元素
oin(ArrayName)：将数组中元素连成字符串
Ubound(ArrayName[,维数])：取得数组相应维数的上界
Lbound(ArrayName[,维数])：取得数组相应维数的下界
一般为0
Randmize
n：启动随机数种子
Rnd(n)：取得随机数，n>0或为空，取序列下一随机值，n<0，随机值相同，n=0，生产与上一随机值相同的数
取介于A和B之间的随机正数C，公式：C=Int((B-A+1)*Rnd+A)
条件（B>A）
子程序和自定义函数
Sub
StrSubName
Function
StrFunName(arg[1],..)
子程序体
函数体
Exit
Sub
中途跳出
Exit
Function
中途跳出
End
Sub
StrFunName＝value
返回值
End
Function
[call]
StrSubName
引用子程序
Var=StrFunName(arg[1],..)
引用函数
E. （vb程序设计）求代码：设计一个运行界面如下图所示的程序。单击列表框中的商品计算购物金额……
以下给你思路：
第一，要确定你的商品列表中，价格是否都在商品名称的最前面版？目前也不能确定你的列表权框是哪个控件。
第二，在列表选择事件中，编写项目循环，判断项目为选择状态后，再获取其价格并累加到“总价格”中。
第三，在“总价格”的 Changed 事件中，编写判断语句，以确认“总价格”满足的折扣级别，或不折扣，并计算折扣结果输出到折后价中。
第四，在复选框 Check1 单击事件中，编写判断勾选状态，再给折扣价格增加10元。
F. 请教用VB编写将网页上的商品放入购物车程序，乃至抢票软件，该选什么教材入门
您好，尿酸高主要症状有以下几点：尿酸偏高的症状一：无症状期，患者仅有血尿酸持续增高或波动性增高，而无临床表现。从血尿酸增高至出现症状的时间可长达数年、十多年，有些甚至终生不出现症状。尿酸偏高的症状二、急性关节炎期。患者常在半夜突然发病，因关节疼痛而惊醒。初为单侧关节炎，偶有双侧或先后发作，以第一跖趾关节为多见，其次为踝、手、腕、膝、肘及足部其他关节，病情反复，可发展为多关节炎，出现红、肿、热、痛和活动受限，大关节腔亦可有渗出，出现有发热、疲倦、厌食、头痛、白血球增，血沉加快，经1-2周后症状缓解。间歇期数月或数年，亦有不再发作，多数在一年内复发。受寒、劳累、感染、关节创伤、手术、饮酒、食物过敏或进食嘌呤含量高的食物、精神剌激等为诱发因素。尿酸偏高的症状三、慢性关节炎期。表现为多关节受累，发作较频，缓解期短，疼痛加剧，可出现痛风石、关节畸形或活动受限。尿酸偏高的症状四、肾结石。有10%-20%原发性痛风的患者合并肾结石。可有肾绞痛、血尿。尿酸偏高的症状五、肾脏病变。出现肾间质性炎症和肾血管损害导致肾功能不全。可有高血压、间歇蛋白尿、尿比重降低、血尿素氮及肌酸升高等。只有尿酸浓度过高，但尚未得到痛风者几乎都不需要药物治疗，只要控制饮食即可。但最重要的还是找出尿酸升高的原因，以便针对原因治疗。提醒尿酸高患者，一定要治疗，控制尿酸高，特别是引起痛风疾病的时候，说明还是早期，治疗痊愈不是难题，找准治疗彻底治愈才是关键。如您还有任何的疑问，可以点击咨询。
病情分析：
尿酸的合成增加或排出减少，造成高尿酸血症，高尿酸血症如长期存在，尿酸将以尿酸盐的形式沉积在关节、皮下组织及肾脏等部位，引起关节炎、皮下痛风结石、肾脏结石或痛风性肾病等一系列临床表现。
指导意见：
一般发作部位为大拇指关节，踝关节，膝关节等。长期痛风患者有的发作于手指关节，甚至耳廓含软组织部分。急性痛风发作部位出现红、肿、热、剧烈疼痛，一般多在子夜发作，可使人从睡眠中惊醒。痛风初期，发作多见于下肢。痛风可也以出现肾脏损害。
病情分析：
尿酸碱反应受食物成分和代谢情况影响。尿酸偏高不一定有症状表现。
指导意见：
尿酸增高多见于多食肉类、蛋白质、代谢性酸中毒、痛风等。
G. 求vb代码
Private Sub Command1_Click()
Select Case Val(Text1.Text)
Case Is < 500
Text2.Text = Val(Text1.Text)
Case Is < 1000
Text2.Text = Val(Text1.Text) * (1 - 0.05)
Case Is < 2000
Text2.Text = Val(Text1.Text) * (1 - 0.1)
Case Is < 3000
Text2.Text = Val(Text1.Text) * (1 - 0.15)
Case Is >= 3000
Text2.Text = Val(Text1.Text) * (1 - 0.2)
End Select
End Sub
H. vb代码 详细完整
ExecuteSQL这是自定义函数啊，这个函数你怎么写的？？？
从sql语句来看，数据库应该有一个admin的表，表里面一定有一个text类型的“admin”字段、、、
I. 用VB怎么编写购物车的程序
用Vector 或者是HashMap去装
<下面有部分代码你去看吧>
import sql.Connection;
import com.aptech.restrant.bean.FoodBean;
public class CartModel {
private Connection conn;
public CartModel(Connection conn) {
this.conn=conn;
}
/**
* 得到订餐列表
*
* @return
*/
public List changeToList(Map carts) {
// 将Set中元素转换成数组，以便使用循环进行遍历
Object[] foodItems = carts.keySet().toArray();
// 定义double变量total，用于存放购物车内餐品总价格
double total = 0;
List list = new ArrayList();
// 循环遍历购物车内餐品，并显示各个餐品的餐品名称，价格，数量
for (int i = 0; i < foodItems.length; i++) {
// 从Map对象cart中取出第i个餐品，放入cartItem中
CartItemBean cartItem = (CartItemBean) carts
.get((String) foodItems[i]);
// 从cartItem中取出FoodBean对象
FoodBean food1 = cartItem.getFoodBean();
// 定义int类型变量quantity，用于表示购物车中单个餐品的数量
int quantity = cartItem.getQuantity();
// 定义double变量price，表示餐品单价
double price = food1.getFoodPrice();
// 定义double变量，表示单个餐品总价
double subtotal = quantity * price;
// // 计算购物车内餐品总价格
total += subtotal;
cartItem.setSubtotal(subtotal);
cartItem.setTotal(total);
list.add(cartItem);
}
return list;
}
/**
* 增加订餐
*/
public Map add(Map cart, String foodID) {
// 购物车为空
if (cart == null) {
cart = new HashMap();
}
FoodModel fd = new FoodModel(conn);
FoodBean food = fd.findFoodById(foodID);
// 判断购物车是否放东西(第一次点餐)
if (cart.isEmpty()) {
CartItemBean cartBean = new CartItemBean(food, 1);
cart.put(foodID, cartBean);
} else {
// 判断当前菜是否在购物车中，false表示当前菜没有被点过。。
boolean flag = false;
// 得到键的集合
Set set = cart.keySet();
// 遍历集合
Object[] obj = set.toArray();
for (int i = 0; i < obj.length; i++) {
Object object = obj[i];
// 如果购物车已经存在当前菜，数量+1
if (object.equals(foodID)) {
int quantity = ((CartItemBean) cart.get(object))
.getQuantity();
quantity += 1;
System.out.println(quantity);
((CartItemBean) cart.get(object)).setQuantity(quantity);
flag = true;
break;
}
}
if (flag == false) {
// 把当前菜放到购物车里面
CartItemBean cartBean = new CartItemBean(food, 1);
cart.put(foodID, cartBean);
}
}