1000 Rem This program demonstrates the IRI computation.
1010 Rem A number of recommended modifications are described in
1020 Rem the accompanying text.
1030 Rem Initialize constants
1040 Dim Y(26), Z(4), Z1(4), ST(4, 4), PR(4)
1060 K = Int(0.25 / DX + 0.5) + 1
1070 If K < 2 Then K = 2
1080 BL = (K - 1) * DX
1090 For I = 1 To 4
1100 For J = 1 To 4
1120 Next J
1140 Next I
1150 Rem Initialize variables.
1160 Input #"profile elevation 11 m from start:", Y(K)
1170 Input #"X=0.Elevation=", Y(1)
1180 Z1(1) = (Y(K) - Y(1)) / 11
1190 Z1(2) = 0
1200 Z1(3) = Z1(1)
1210 Z1(4) = 0
1220 RS = 0
1230 IX = 1
1240 I = 0
1250 Rem Loop to input profile and Calculate Roughness
1260 I = I + 1
1270 Print "X="; IX * DX,
1280 IX = IX + 1
1290 Input #"Elev.=", Y(K)
1300 Rem Compute slope input
1310 If IX < K Then Y(IX) = Y(K)
1320 If IX < K Then GoTo 1270
1330 YP = (Y(K) - Y(1)) / BL
1340 For J = 2 To K
1350 Y(J - 1) = Y(J)
1360 Next J
1370 Rem Simulate vehicle response
1380 For J = 1 To 4
1390 Z(J) = PR(J) * YP
1400 For JJ = 1 To 4
1410 Z(J) = Z(J) + ST(J, JJ) * Z1(JJ)
1420 Next JJ
1430 Next J
1440 For J = 1 To 4
1450 Zi(J) = Z(J)
1460 Next J
1470 RS = RS + Abs(Z(1) - Z(3))
1480 Print "disp="; RS * DX, "IRI="; RS / I
1490 GoTo 1260
1500 End
1510 Data 0.25
1520 Data 0.966071, 0.01091514, -0.002083274, 0.0003190145, 0.005476107
1530 Data -0.5563044, 0.9438768, -0.8324718, 0.0064701, 1.388776
1540 Data 0.02153176, 0.002126763, 0.7508714, 0.008221888, 0.2275968
1550 Data 3.335013, 0.3376467, -39.12762, 0.4347564, 35.79262
End Sub

1个回答

1510 Data 0.25
1520 Data 0.966071, 0.01091514, -0.002083274, 0.0003190145, 0.005476107
1530 Data -0.5563044, 0.9438768, -0.8324718, 0.0064701, 1.388776
1540 Data 0.02153176, 0.002126763, 0.7508714, 0.008221888, 0.2275968
1550 Data 3.335013, 0.3376467, -39.12762, 0.4347564, 35.79262

Public Sub Textbox1_KeyDown(ByVal sender As System.Object, ByVal e As System.Windows.Forms.KeyEventArgs) Handles TextBox1.KeyDown If e.KeyCode = Keys.Enter Then Dim p As String = InputBox("请输入") Dim WDAPP As Object WDAPP = CreateObject("Word.Application") WDAPP.Documents.Add(TextBox1.Text) WDAPP.Selection.Find.ClearFormatting() With WDAPP.Selection.Find.Text = p Dim i As String i = WDAPP.Selection.Information(3) WDAPP.Selection.TypeText(text:=p) WDAPP.documents.add(TextBox2.Text) **WDAPP.Selection.MoveDown(Unit:=WDAPP.wdParagraph, Count:=1)** WDAPP.Selection.EndKey() WDAPP.Selection.ParagraphFormat.TabStops.Add(Position:=WDAPP.CentimetersToPoints(15.24), Alignment:=WDAPP.wdAlignTabRight, Leader:=WDAPP.wdTabLeaderDashes) WDAPP.Selection.TypeText(Text:=vbTab) WDAPP.Selection.TypeText(Text:=i) WDAPP.Selection.TypeText(Text:=vbCrLf) End With End If 两个textbox分别是读的文件地址，和写的文件地址。 写上去是没错的，执行的时候粗体的那行![图片说明](https://img-ask.csdn.net/upload/201501/02/1420168623_867857.jpg)就是图片的报错 应该怎么修改，还有我打开那个被写的文件时候说是被绑定了不能操作，这是什么情况 ![图片说明](https://img-ask.csdn.net/upload/201501/02/1420168660_496589.jpg)

VB.NET中UPDATE语句执行后没有报错，数据库也没有更新

VB中一个过程最多包含多少行代码

VB6无法远程连接SQL2008数据库

WSDLReader:Loading of the WSDL file failed HRESULT=0x80070057 - WSDLReader:XML Parser failed at linenumber 0, lineposition 0, reason is: 所需资源没有可用数据。 HRESULT=0x1 WSDLREADER:LOADING OF THE WSDL FILE FAILED HRESULT=0X80070057:参数不正确。 CLIENT:ONE OF THE PARAMETERS SUPPLIED IS INVALID. HRESULT=0X80070057:参数不正确 1、不定期出现 2、关掉VB程序重新开启恢复正常 3、防火墙已经关闭，信任列表已经添加 4、请高手给予指点

vb运行时错误429怎么解决

VB运行时错误429怎么解决 ActiveX 部件不能创建对象 在别人电脑上运行时出现这个错误怎么解决？ 求大神指点

Process调用bat文件，执行了，但是报错了

VB6和.net2012关于变体类型Variant差异。

vb如何连接sql数据库？用代码

VB调用C++动态链接库

vb遇到一个问题，提示实时错误9，下标越界，请高手帮忙分析下

Private Sub Command3_Click() Dim n, m As Integer m = Val(InputBox("几名嫌疑人", "嫌疑人数量")) Dim A(1 To 10, 1 To 5) As String Do A(n, 1) = InputBox("输入嫌疑人名字", "嫌疑人信息") A(n, 2) = InputBox(A(n, 1) & "的性别", "嫌疑人信息", "男") A(n, 3) = InputBox(A(n, 1) & "的籍贯", "嫌疑人信息") A(n, 4) = InputBox(A(n, 1) & "的籍贯详址", "嫌疑人信息") A(n, 5) = InputBox(A(n, 1) & "的住址/暂住地址", "嫌疑人信息") ' MsgBox "姓名：" & A(n, 1) & Chr(10) & "性别：" & A1 & Chr(10) & "籍贯详址：" & A2 & Chr(10) & "住址/暂住地址：" & A3 & Chr(10) & "姓名：" & A4, 0, "嫌疑个人信息" n = n + 1 Loop While n > m

vb调用DLL转成DELPHI出错？

1．原来VB的程序，经执行可以通过 VB 数据类型定义 'Profile infomation Public Type LJIF_PROFILE_INFO fXStart As Single fXPitch As Single End Type 定义 Public Declare Function LJIF_GetProfileData Lib "LJIF.dll" (ByVal ProfileTarget As Long, ByRef pProfileInfo As LJIF_PROFILE_INFO, ByRef pProfile As Single, ByVal nCount As Long) As Long 条用 rc = LJIF_GetProfileData(LJIF_HEAD_INDEX(GetProfileParam1.ListIndex), ProfileInfo, pBuffer(0), GetProfileParam2) 'Get Profile Data 2．改成DELPHI后，就这个函数提示参数错误 DELPHI 定义 Type pLJIF_PROFILE_INFO=^LJIF_PROFILE_INFO; LJIF_PROFILE_INFO=record fXStart : Single; fXPitch : Single; End ; /Get Profile Data Function LJIF_GetProfileData ( ProfileTarget:LongInt; var pProfileInfo: LJIF_PROFILE_INFO;var pProfile:array of Single; nCount :LongInt): LongInt;external 'LJIF.dll'; 调用： rc := LJIF_GetProfileData(0, ProfileInfo, pBuffer, GetProfileParam2.Value) ; 始终报参数错误？ 求大侠指点！

vb编写长方体的面积和体积的代码怎么写？

vb编写长方体的面积和体积的代码怎么写？求大神帮忙谢谢，真的很感谢你们

VB开发，GDI+错误提示，如何解决

vb 二进制转十进制代码

vb 二进制转十进制代码 不懂如何转换，求详细的过程。大神求带，大神求带，大神求带，大神求带，大神求带，

Vb中如何编码撤销功能，也就是返回上一步的操作！求代码

Vb中如何编码撤销功能，也就是返回上一步的操作！求代码！求解答！

VB.net 程序运行一段时间就退出？

vb.net编写的一个工业监控软件，运行一段时间后就退出，而且这个时间不一定是多长时间，试过多台电脑都出现这种问题，无任何错误提示（已经把程序中不用的dll文件均已删除），程序中有串口操作，哪位大侠指导指导？哪里出的问题？

vb.net 除以0.5 报错 试图除以零。

Dim a As single = 1 \ 0.2 报错，试图除以零，这是为什么

VB中long型转Bytes型代码求解

MySQL数据库面试题（2020最新版）

HashMap底层实现原理，红黑树，B+树，B树的结构原理 Spring的AOP和IOC是什么？它们常见的使用场景有哪些？Spring事务，事务的属性，传播行为，数据库隔离级别 Spring和SpringMVC，MyBatis以及SpringBoot的注解分别有哪些？SpringMVC的工作原理，SpringBoot框架的优点，MyBatis框架的优点 SpringCould组件有哪些，他们...

Python爬虫，高清美图我全都要（彼岸桌面壁纸）

6年开发经验女程序员，面试京东Java岗要求薪资28K

Java岗开发3年，公司临时抽查算法，离职后这几题我记一辈子