R min①’实现区间内木块的整体翻转Do While L Rt1 cd(L):cd(L)cd(R):cd(R)=tlt2 hd(L):hd(L)=hd(R):hd(R)=t2L=L+1②LoopNext iList2.AddItem"长度(cm)”+””+"厚度(cm)”For i =1 To nList2.AddItem Str(cd(i))+"”+Str(hd(i)Next iEnd Sub16.小明编写VB程序实现有限小数、纯循环小数、混循环小数转化成最简分数。三种类型的小数转化方法如下表所示:类型计算公式结果有限格式a.b(a*x+b)/x小数示例3.14(3*10^2+14)/10^2157/50纯循环格式a.(b)(a*(x-1)+b)/(x-1小数示例3.(14)(3*(10^2-1)44)1(10^2-1)311/99混循环格式a.b(c)(a*(t-1)s+(b*t+c-b)/(t-1)*x)小数示例3.14(159)(3*(10^3-1)*10^2+(14*10^3+159-14)/(10^3-1)*10^2)20923/6660说明:0内的数字串表示循环节x=l0^Len(b)t=10^Len(c)程序运行时,在文本框Text1中输入小数,单击“转化”按钮,输出对应的分数,界面如第16题图所示。(1)在文本框中输入“0.0(6)”,转化成分数为(2)实现上述功能的部分VB程序如下,请在划线处填入合适代码。Private Sub Command1_Click()Dim s As String,xs As String,zs As StringDim fz As Long,fm As Long白小数转化器Dim i As IntegerDim x As Integer,y As Integer输入一个小数:3.14(159)s Textl.Text对应分数为:20923/6660i=1Do While Mid(s,i,1)<>"."转化i=i+1Loop第16题图技术试题卷第7页共14页