可以使用以下方法之一来创建string对象：通过给String变量指定一个字符串,所以：执行z = x + y ==》z=7x = CDbl(sr.ReadLine) ==》x=6 ’读第3行y = CDbl(sr.ReadLine) ==》y=8 ’读第4行执行循环 Do While x 《 5 If x = 4 Then sr.Close() sr = IO.File.OpenText(“data1.txt“) End If z = x + y x = CDbl(sr.ReadLine) y = CDbl(sr.ReadLine) Loop因为x = 6,将重新从文件第1行开始读取z = x + y ==》z=10x = CDbl(sr.ReadLine) ==》x=3 ’读第1行y = CDbl(sr.ReadLine) ==》y=4 ’读第2行执行循环 Do While x 《 5 If x = 4 Then sr.Close() sr = IO.File.OpenText(“data1.txt“) End If z = x + y x = CDbl(sr.ReadLine) y = CDbl(sr.ReadLine) Loop因为x = 3,所以：z = x + y ==》z=3x = CDbl(sr.ReadLine) ==》x=4 ’读第2行y = CDbl(sr.ReadLine) ==》y=6 ’读第3行执行循环 Do While x 《 5 If x = 4 Then sr.Close() sr = IO.File.OpenText(“data1.txt“) End If z = x + y x = CDbl(sr.ReadLine) y = CDbl(sr.ReadLine) Loop因为x = 4,所以：x = 3执行循环 Do While x 《 5 If x = 4 Then sr.Close() sr = IO.File.OpenText(“data1.txt“) End If z = x + y x = CDbl(sr.ReadLine) y = CDbl(sr.ReadLine) Loop因为x = 3,都是返回一个新的String类对象,String就是C等编程语言中的字符串,则表示不使用模板lpNewDirectory String 新目录的名字lpSecurityAttributes SECURITY_ATTRIBUTES。
CreateDirectory用法的完整代码
CreateDirectory, CreateDirectoryExVB声明Declare Function CreateDirectory& Lib “kernel32“ Alias “CreateDirectoryA“ (ByVal lpNewDirectory As String, lpSecurityAttributes As SECURITY_ATTRIBUTES)Declare Function CreateDirectoryEx& Lib “kernel32“ Alias “CreateDirectoryExA“ (ByVal lpTemplateDirectory As String, ByVal lpNewDirectory As String, lpSecurityAttributes As SECURITY_ATTRIBUTES)说明创建一个新目录返回值Long，非零表示成功，零表示失败。会设置GetLastError参数表参数 类型及说明lpTemplateDirectory String，指定一个模板目录的名字，从中复制默认属性（比如目录中文件 的默认压缩方式）。如设为vbNullString，则表示不使用模板lpNewDirectory String 新目录的名字lpSecurityAttributes SECURITY_ATTRIBUTES，这个结构定义了目录的安全特性——如果操作系统支持的话示例程序代码如下：‘定义结构Private Type SECURITY_ATTRIBUTES nLength As Long lpSecurityDescriptor As Long bInheritHandle As LongEnd Type‘函数声明Private Declare Function CreateDirectory& Lib “kernel32“ Alias “CreateDirectoryA“ (ByVal lpNewDirectory As String, lpSecurityAttributes As SECURITY_ATTRIBUTES)Private Declare Function CreateDirectoryEx& Lib “kernel32“ Alias “CreateDirectoryExA“ (ByVal lpTemplateDirectory As String, ByVal lpNewDirectory As String, lpSecurityAttributes As SECURITY_ATTRIBUTES)Private Sub form_load() Dim temp As SECURITY_ATTRIBUTES CreateDirectory “c:\test“, temp ‘创建文件夹End Sub
简单的VB代码
本题最后一行是说文本文件的9行数据为：346812593根据程序代码执行的流程，对变量x,y,z跟踪如下；首先：y = 0，x = CDbl(sr.ReadLine)这里读取文件的第一行，保存到变量x，所以：x = 3执行循环 Do While x 《 5 If x = 4 Then sr.Close() sr = IO.File.OpenText(“data1.txt“) End If z = x + y x = CDbl(sr.ReadLine) y = CDbl(sr.ReadLine) Loop因为x = 3，满足x 《 5，但是不满足x = 4，所以：z = x + y ==》z=3x = CDbl(sr.ReadLine) ==》x=4 ’读第2行y = CDbl(sr.ReadLine) ==》y=6 ’读第3行执行循环 Do While x 《 5 If x = 4 Then sr.Close() sr = IO.File.OpenText(“data1.txt“) End If z = x + y x = CDbl(sr.ReadLine) y = CDbl(sr.ReadLine) Loop因为x = 4，满足x 《 5，也满足x = 4，所以：执行sr.Close()sr = IO.File.OpenText(“data1.txt“)即：先关闭文件，再次打开文件；执行，将重新从文件第1行开始读取z = x + y ==》z=10x = CDbl(sr.ReadLine) ==》x=3 ’读第1行y = CDbl(sr.ReadLine) ==》y=4 ’读第2行执行循环 Do While x 《 5 If x = 4 Then sr.Close() sr = IO.File.OpenText(“data1.txt“) End If z = x + y x = CDbl(sr.ReadLine) y = CDbl(sr.ReadLine) Loop因为x = 3，满足x 《 5，但是不满足x = 4，所以：执行z = x + y ==》z=7x = CDbl(sr.ReadLine) ==》x=6 ’读第3行y = CDbl(sr.ReadLine) ==》y=8 ’读第4行执行循环 Do While x 《 5 If x = 4 Then sr.Close() sr = IO.File.OpenText(“data1.txt“) End If z = x + y x = CDbl(sr.ReadLine) y = CDbl(sr.ReadLine) Loop因为x = 6，不满足x 《 5，循环结束所以最后z的内容是 7 ，所以文本框显示7
xfire生成webservice客户端参数设置问题
CXF+Spring 配参考《jaxws:server id=“toolService“serviceClass=“com.toolServer.service.ToolService“address=“toolService“》《jaxws:server id=“userService“serviceClass=“com.toolServer.service.UserService“address=“/userService“》
string在c语言中是什么意思
string在c语言中的意思是System.Char对象的有序集合，用于表示字符串。
String就是C等编程语言中的字符串，用双引号引起来的几个字符。
在java、C#中，String类是不可变的，对String类的任何改变，都是返回一个新的String类对象。String对象是 System.Char 对象的有序集合，用于表示字符串。String对象的值是该有序集合的内容，并且该值是不可变的。
可以使用以下方法之一来创建string对象：
通过给String变量指定一个字符串。
通过使用String类构造函数。
通过使用字符串串联运算符（+）。
通过检索属性或调用一个返回字符串的方法。
通过格式化方法来转换一个值或对象为它的字符串表示形式。