在赋值语句中怎样强制转换对象类型
急 急 急，在线等 
Imports ESRI.ArcGIS.ADF.ArcGISServer 
Imports System.Drawing 
Dim point As New ESRI.ArcGIS.ADF.Web.Geometry.Point 
point.X = x 
point.Y = y 
Dim symbol As New ESRI.ArcGIS.ADF.Web.Display.Symbol.SimpleMarkerSymbol 
symbol.Type = 2 
symbol.Color = Color.FromArgb(r, g, b) 
symbol.Width = 10 
在红色“color”处提示错误：“color”不明确，从命名空间或类型“ESRI.ArcGIS.ADF.ArcGISServer、System.Drawing”导入 
比如说此处的color是ESRI.ArcGIS.ADF.ArcGISServer命名空间的，我该如何说明？ 
__________________________________________________________________________
symbol.Color = ESRI.ArcGIS.ADF.ArcGISServer.Color.FromArgb(r, g, b) 
__________________________________________________________________________
我也想知道，正在找這方面的資料~~~~~
__________________________________________________________________________

1、输入语句
变量名 = InputBox(“请输入变量的值”)
2、输出语句
Print 表达式
3、声明语句
Dim 变量名 As 数据类型
Dim 变量名1 As 数据类型，变量名2 As 数据类型，…
Dim 数组名（1 To n） As 数据类型
4、赋值语句
变量名 = 表达式
5、注释语句
‘注释文字
6、分支语句
①单分支语句
If 条件 Then
语句组
EndIf
②双分支语句
If 条件 Then
语句组A
Else
语句组B
EndIf
7、循环语句
①Do循环语句
Do While 循环条件
语句组
Loop
②For循环语句
For 循环变量 = 初值 to 终值 Step 步长
语句组
Next 循环变量

	

在VB编程中，数组占据着非常重要的地位。
而数组的知识点又很多，让初学者非常容易混淆与难于掌握。比如数组的定义、数组的初始化、多维数组、动态数组、控件数组、数组排序、插入、交换等。
今天，从数组的定义、数组赋值、求最大值、交换的内容出发，帮助大家理解数组的实际应用。
有数组的地方，必会用到数组的定义与控制结构(多为循环和条件语句)知识的应用。
接下来是一个VB的实际应用题目，我们共同来学习如何解决、实现它。
实现功能
1、首先定义一个包含10个元素的数组，通过随机数的方式为其中每个元素赋值，并且输出到窗体上;
2、得到数组中的最大值，并且输出;
3、将数组中的最大值与位置是10的元素值交换，并输出。
如何用vb编程实现此效果？
VB代码实现
Dim a(1 To 10) As Integer '定义数组
Dim max As Integer, xb As Integer '定义最大值、最大值对应下标
Private Sub Form_click()
Me.FontSize = 16Me.FontName = "楷体"Print Tab(2); "产生的数组元素值为："max = 0For i = 1 To 10a(i) = Int(Rnd * 900 + 100)Me.FontSize = 12Me.ForeColor = vbRedPrint Tab(2); a(i)Next iFor j = 1 To 10If a(j) > max Then max = a(j): xb = jNext jMe.ForeColor = vbBlackPrint Tab(2); "数组元素最大值为：" & maxPrinthm = a(10)Print Tab(2); "顺序交换后数组元素值为："For k = 1 To 10a(xb) = hma(10) = maxMe.FontSize = 12Me.ForeColor = vbBluePrint Tab(2); a(k)Next k
End Sub
正在学VB的你赶快实际运行一下吧~
VB学习中有遇到问题或者需要VB视频教程可添加下图小编微信，学习问题在线答疑。
点分享点点赞点在看

	

在VB编程中，数组占据着非常重要的地位。
而数组的知识点又很多，让初学者非常容易混淆与难于掌握。比如数组的定义、数组的初始化、多维数组、动态数组、控件数组、数组排序、插入、交换等。
今天，从数组的定义、数组赋值、求最大值、交换的内容出发，帮助大家理解数组的实际应用。
有数组的地方，必会用到数组的定义与控制结构(多为循环和条件语句)知识的应用。
接下来是一个VB的实际应用题目，我们共同来学习如何解决、实现它。
实现功能
1、首先定义一个包含10个元素的数组，通过随机数的方式为其中每个元素赋值，并且输出到窗体上;
2、得到数组中的最大值，并且输出;
3、将数组中的最大值与位置是10的元素值交换，并输出。
如何用vb编程实现此效果？
VB代码实现
Dim a(1 To 10) As Integer '定义数组
Dim max As Integer, xb As Integer '定义最大值、最大值对应下标
Private Sub Form_click()
Me.FontSize = 16Me.FontName = "楷体"Print Tab(2); "产生的数组元素值为："max = 0For i = 1 To 10a(i) = Int(Rnd * 900 + 100)Me.FontSize = 12Me.ForeColor = vbRedPrint Tab(2); a(i)Next iFor j = 1 To 10If a(j) > max Then max = a(j): xb = jNext jMe.ForeColor = vbBlackPrint Tab(2); "数组元素最大值为：" & maxPrinthm = a(10)Print Tab(2); "顺序交换后数组元素值为："For k = 1 To 10a(xb) = hma(10) = maxMe.FontSize = 12Me.ForeColor = vbBluePrint Tab(2); a(k)Next k
End Sub
正在学VB的你赶快实际运行一下吧~
VB学习中有遇到问题或者需要VB视频教程可添加下图小编微信，学习问题在线答疑。
点分享点点赞点在看