图中的表达式为什么规范中没有，怎样才能知道参数是怎样取值的

1. 图中的表达式为什么规范中没有，怎样才能知道参数是怎样取值的

这个答案应该有问题，注意到他上面写的是桩基承载力设计值，这种提法好像是老规范的做法。JGJ94-2008采用的是桩基承载力设计值。
所以个人觉得不需要按照这个资料上的解法来做，按照规范做法即可。
（Qsk+Qpk）/2就是桩基承载力特征值了。

2. vb,不能赋值变量值到该表达式

改为
If Mid(CStr(i), j, 1)  Mid(CStr(i), Len(CStr(i)) - j + 1, 1) Then Exit For If Mid(CStr(s), m, 1)  Mid(CStr(s), Len(CStr(s)) - m + 1, 1) Then Exit For
另外你的代码有逻辑错误，改为：
Private Sub Command1_Click()Dim i As Integer, j As Integer, m As Integer, s As String, b As StringFor i = 1 To 10000    For j = 1 To Len(CStr(i)) \ 2        If Mid(CStr(i), j, 1)  Mid(CStr(i), Len(CStr(i)) - j + 1, 1) Then Exit For    Next j    If j > Len(CStr(i)) \ 2 Then        s = i ^ 2        For m = 1 To Len(s) \ 2            If Mid(s, m, 1)  Mid(s, Len(s) - m + 1, 1) Then Exit For        Next m        If m > Len(s) \ 2 Then            b = i & "^2=" & s            List1.AddItem b        End If    End IfNext iEnd Sub另外我再友情提供一个更简单的代码给你：
Private Sub Command1_Click()Dim i As IntegerFor i = 1 To 10000    If CStr(i) = StrReverse(i) And CStr(i ^ 2) = StrReverse(i ^ 2) Then        List1.AddItem i & "^2=" & i ^ 2    End IfNext iEnd Sub

3. vb完成Excel复制某一列，问题出在哪？

a/b没有定义，会默认为0
如果目的是复制
“A1:A6”
到
"B1:B6"
xlsheet.Cells(i,"B") = xlsheet.Cells(i,"A")
或者
xlsheet.Cells(i,2) = xlsheet.Cells(i,1)

4. vb excel 单元格赋值 定义变量

你这个情况应该是 不存在 sheet4 ,我测试了  如果存在的情况下， 代码是可以运行的
 你这个表里面的sheet4 跟你代码中的sheet4,其实不是一回事，  你改成 sheets("表名") 这种模式，应该就没问题了


你看这个图中， sheet4 实际是表里面的sheet1  这种表示方法是按照 表的排序来指定表的

5. vb调用excel某一列数据，然后给函数变量赋值，得出结果

'引用：
'添加对该对象的引用 工程菜单-->引用，找到 Microsoft Scripting Runtime
'引用microsoft Excel 14.0 object library
'
Dim elApp As Excel.Application
Dim elBooks As Excel.Workbook
Dim ekSheet As Excel.Worksheet
Dim TblMap_Card '创建一个变量

Private Sub Command1_Click()
Dim i As Integer
openEl
Set dic = CreateObject("Scripting.Dictionary")
'MsgBox ekSheet.Cells(Rows.Count, 1).End(3).Row
For i = 2 To ekSheet.Cells(Rows.Count, 1).End(3).Row
If dic.Exists(ekSheet.Cells(i, 2).Value) Then
dic(ekSheet.Cells(i, 1).Value) = dic(ekSheet.Cells(i, 1).Value) + ekSheet.Cells(i, 2).Value
Else
dic(ekSheet.Cells(i, 1).Value) = ekSheet.Cells(i, 2).Value
End If
Next i

ekSheet.Range("H:J").Clear

'ekSheet.Cells(1, 9).Resize(1, 2) = Array("商品", "售量")
ekSheet.Cells(2, 9).Resize(dic.Count, 1) = Application.Transpose(dic.Keys)
ekSheet.Cells(2, 10).Resize(dic.Count, 1) = Application.Transpose(dic.Items)

End Sub

Private Sub openEl()
Dim myPath As String
myPath = "\week.xlsx"
Set elApp = CreateObject("Excel.Application")
Set elBooks = elApp.Workbooks.Open(App.Path & myPath)
Set ekSheet = elBooks.Worksheets("Sheet1")
'Set ekSheet = elBooks.Worksheets(1)
elApp.Visible = True
End Sub

6. 可以在窗体模块的通用声明段中声明什么

VB可以在窗体模块的通用声明段中声明：
1）声明一个全局（非数组）变量。
Option Explicit    Public a As Double它可在其它窗体以该窗体名.变量名使用。

2）声明局部变量或数组变量，见下面代码。
Option Explicit    Public a As Double '声明全局变量    Dim b(10) As Single '声明局部数组变量    Dim C As String '声明局部变量    Const Pi = 3.141592654 '声明常量3）声明常量，见上述代码最后行。
4）声明Api函数，见以下代码。
Option Explicit    Private Declare Sub CopyMemory Lib "kernel32" Alias "RtlMoveMemory" (Destination As Any, Source As Any, ByVal Length As Long)5）声明Object 数据类型，Object 变量存储为 32 位（4 个字节）的地址形式，其为对象的引用。利用 Set 语句，声明为 Object 的变量可以赋值为任何对象的引用。见以下代码，可调用Excel电子表格对象。
Option Explicit    Dim xlapp As Object    Dim xlBook As Object    Dim xlSheet As ObjectPrivate Sub Command1_Click()    Set xlapp = CreateObject("excel.application")    xlapp.Visible = True    Set xlBook = xlapp.Workbooks.Add    Set xlSheet = xlBook.worksheets(1)End Sub

7. 用vba给Excel单元格赋值

材料/工具：Excel2010
1、打开一个Excel的文件，鼠标左键单击【开发工具】菜单标签。

2、接着，在表格中输入简单的表格，比如水果表格。

3、然后在VBA控件下拉菜单中，选择按钮控件。

4、接着在表格中绘制出按钮控件，并修改控件名称。

5、然后，鼠标左键单击【查看代码】按钮。

6、接着，在代码窗口中输入给单元格的赋值语句。

7、最后在设计窗口上，鼠标左键单击按钮，可以看到表格中的单元格中自动显示出数据了

8. vb中当赋值语句中变量的数据类型与表达式的数据类型不一致时,该语句一定出错吗

不一定，VB会自动转成合适类型，这叫隐式转换，不过不推荐这么做