vb.net復選框及字體顏色問題 題目是圖上的第十題，計算代碼我會做，但是那個紅字黃底的代碼怎么寫

TextBox1.ForeColor?=?Color.Red

創(chuàng)新互聯(lián)建站專注于新城企業(yè)網(wǎng)站建設,成都響應式網(wǎng)站建設公司,商城網(wǎng)站制作。新城網(wǎng)站建設公司,為新城等地區(qū)提供建站服務。全流程定制網(wǎng)站制作，專業(yè)設計，全程項目跟蹤，創(chuàng)新互聯(lián)建站專業(yè)和態(tài)度為您提供的服務

TextBox1.BackColor?=?Color.Yellow

TextBox1.Text?=?1234

如何在vb.net中實現(xiàn)單選題和多選題功能？

asp:RadioButton ID="RadioButton1" runat="server" Text="A." GroupName="group1"/

asp:RadioButton ID="RadioButton2" runat="server" Text="B." GroupName="group1" /

asp:RadioButton ID="RadioButton3" runat="server" Text="C." GroupName="group1" /

asp:RadioButton ID="RadioButton4" runat="server" Text="D." GroupName="group1" /

div

asp:CheckBox ID="CheckBox1" runat="server" Text ="A." /

asp:CheckBox ID="CheckBox2" runat="server" Text ="B." /

asp:CheckBox ID="CheckBox3" runat="server" Text ="C." /

asp:CheckBox ID="CheckBox4" runat="server" Text ="D." /

/div

還有兩道vb.net面試題，請大家?guī)兔Γx謝。

我很喜歡這種題目

-------------------------------------------------------------------------

第7題，問題出在兩方面

Public Function CalculateArea(ByVal SideBase As Double, ByVal Height As Double, _ Optional

ByVal AssignToArea As Boolean = False) As Double

Dim Area As Double = (SideBase * Height) / 2

中間的 _ 有問題，應該去掉

還有objShape = CType(objShape, clsTriangle) 有錯誤，不能轉(zhuǎn)換

注釋掉objShape = CType(objShape, clsTriangle)

刪除_后，得到結(jié)果

true

false

-330

--------------------------------------------------------------------------

第8題，就是以acc_grp_cust_tbl表為基礎，查找cust_tbl并輸出

一般的話使用涉及兩個表的話使用SHAPE語句（以SQL為基礎的語句）

雖然兩者使用時差不多，但是理論比較難懂，我這里也不講了，我使用ADO+SQL方法

先說明一下程序中的一個細節(jié)，也是問題比較容易忽略的

1400 0 1 2

1500 3 4

1600 5

說明一個問題Cust_id1 Cust_id2 Cust_id3 Cust_id4 字段不是數(shù)值，而是類似字符的東西（因為可能是

備注）

定義rsgrp對應acc_grp_cust_tbl ，rscust對應cust_tbl

預先設置好rsgrp和rscust的連接(使用VB的方法，可以移植到VB.NET上）

do until rscust.eof

strline=rscust(0) " "

strSQL="SELECT * FROM CUST_TBL WHERE cust_id='" RSGRP(1) "' OR CUST_ID='" RSGRP(2) "' OR CUST_ID='" RSGRP(3) "' OR CUST_ID='" RSGRP(4) "'"

RSGRP.OPEN STRSQL

if rsgrp.recordcount0 then

rsgrp.movefirst

do until rsgrp.eof

strLine=strline rscust(3) " " rscust(2) "/"

rsgrp.movenext

loop

end if

rscust.close

strline=left(strline ,len(strline)-1)

'去除最后一個"/"

console.writeline(strline)

loop

VB.NET listbox 題目

For Each i In ListBox1.Items

If ListBox2.Items.Contains(i) = False Then

ListBox3.Items.Add(i)

End If

Next

文章標題：vb.net題目 vb語言題庫
文章鏈接：http://chinadenli.net/article12/hipegc.html

成都網(wǎng)站建設公司_創(chuàng)新互聯(lián)，為您提供網(wǎng)站設計、商城網(wǎng)站、面包屑導航、做網(wǎng)站、網(wǎng)站設計公司、企業(yè)網(wǎng)站制作

廣告

聲明：本網(wǎng)站發(fā)布的內(nèi)容（圖片、視頻和文字）以用戶投稿、用戶轉(zhuǎn)載內(nèi)容為主，如果涉及侵權請盡快告知，我們將會在第一時間刪除。文章觀點不代表本網(wǎng)站立場，如需處理請聯(lián)系客服。電話：028-86922220；郵箱：631063699@qq.com。內(nèi)容未經(jīng)允許不得轉(zhuǎn)載，或轉(zhuǎn)載時需注明來源： 創(chuàng)新互聯(lián)