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);
}
}