vb.net题目 vb语言题库

vb.net复选框及字体颜色问题 题目是图上的第十题，计算代码我会做，但是那个红字黄底的代码怎么写

TextBox1.ForeColor = Color.Red

创新互联建站专注于新城企业网站建设,成都响应式网站建设公司,商城网站制作。新城网站建设公司,为新城等地区提供建站服务。全流程定制网站制作，专业设计，全程项目跟踪，创新互联建站专业和态度为您提供的服务

TextBox1.BackColor = Color.Yellow

TextBox1.Text = 1234

如何在vb.net中实现单选题和多选题功能？

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面试题，请大家帮忙，谢谢。

我很喜欢这种题目

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

第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) 有错误，不能转换

注释掉objShape = CType(objShape, clsTriangle)

删除_后，得到结果

true

false

-330

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

第8题，就是以acc_grp_cust_tbl表为基础，查找cust_tbl并输出

一般的话使用涉及两个表的话使用SHAPE语句（以SQL为基础的语句）

虽然两者使用时差不多，但是理论比较难懂，我这里也不讲了，我使用ADO+SQL方法

先说明一下程序中的一个细节，也是问题比较容易忽略的

1400 0 1 2

1500 3 4

1600 5

说明一个问题Cust_id1 Cust_id2 Cust_id3 Cust_id4 字段不是数值，而是类似字符的东西（因为可能是

备注）

定义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