【图片】vb一些问题_vb吧

格式：for i=初值 to 终值！ step 步长。为什么可以避免误差?
如
For i = 1.05 To 1.95! Step 0.1
Print i
Next i

而下面这个不行
For i = 1.05! To 1.95! Step 0.1
Print i
Next i

这个又可以了，但循环次数减少了
For i = 1.05! To 1.95! Step 0.1!
Print i
Next i

新手为什么都不喜欢声明变量，正常写法就可以
Dim i As Single
For i = 1.05 To 1.95 Step 0.1
Print i
Next

原因是i没声明类型是可变类型Variant，for 中 1.05强制转成了Double型

楼主你的三段代码，第三段中i的类型跟2楼代码一样是Single，因为其中三个常数都是Single，而前两段代码都是Single和Double混合，因此i也是更大的Double类型
至于前两段代码的差异，第一段的初始值是Double类型，因此更精确，误差没有显现出来（也就是你说的“避免误差”），而第二段的初始值是Single类型，赋值给Double类型的i，Single较大的误差就被放大显现出来了
然后，关于循环次数的问题，1.95减去1.05比9个0.1要小（前提是三个数类型一致），所以会少循环一次，而单精度的1.95减去任意类型的1.05比9个双精度的0.1要大，就可以多循环一次了

Vb的安装包楼主能给个链接吗

第二问：VB怎么修改初始窗体的Font属性默认大小（如在窗体上创建Label，它的caption属性字体大小），不是代码的字体大小。每次新建窗体都要调，烦死了。

第三问：创建一个文件，把text1.text的内容作为文件名
要求①在当前工程所在文件夹下，②创建一个文本文件
③删除刚才创建的所有文件（某一同种类型的）
我的代码是
Open App.Path & "\" & Text1.Text & ".txt" For Output As #1
Close #1
删除怎么做？

第四问，①有些控件的属性很奇怪，分明是只读属性，为什么在代码窗口中写出控件名后加"."还能出现对应的属性，如command1.name，如Text1.MultiLine等等，
“控件名.”后出现这些只读属性有什么用呢？是不是VB设计上的失误？
②创建控件数组后，在控件名后按下"."后会出现4个属性（Count、Item、LBound、UBound）其中Item属性是什么意思，总不会是下标吧？count是长度，lbound是下界，ubound是上界
③打开一个已经建好的工程，没有经过任何改动，点击右上角的“关闭按钮”后为什么会出现如下对话框

第五问，求大数据怎么操作，已经超过精度限制了
求圆周率前100位各数字出现次数
或则给个思路，求圆周率的详细步骤

第六问
为什么Print 50*1000会出现“溢出”错误，它又不是变量。难道常量也有个范围限制？①
②Dim t As Single
t = 50 * 1000
Print t
也会出现“溢出”错误

第七问：加载Picturebox中某一点的坐标怎么表示
该点横坐标设为XX，纵坐标设为YY
①Picture1的left、top、height、width确定，Picture1上的某一点（XX,YY）XX=?,YY=?
② 如果有如下三行
Picture1.ScaleMode = 0
Picture1.ScaleMode = 3
Picture1.Scale (-100, 100)-(100, -100)
如果我想找它的中心（0,0），XX=?,YY=?
我想在Picture上画一个石英钟，需要找到它的中心。画一个line控件（秒针）（x2，y2）怎么表示

回复12楼：
感觉你自己都不知道自己想问啥……前两个小问题都毫无意义，我只回答你最后一个问题（实际上应该算两个）
1.如何表示图片框中心点的坐标？
无论你是否用Scale自定义了坐标系，都可以用如下坐标表示中心点：
x = Picture1.ScaleLeft + Picture1.ScaleWidth / 2
y = Picture1.ScaleTop + Picture1.ScaleHeight / 2
在非自定义坐标系中（ScaleMode不为0），ScaleLeft和ScaleTop都是0，因此以上式子可以简化为：
x = Picture1.ScaleWidth / 2
y = Picture1.ScaleHeight / 2
而如果你自定义了坐标系，把原点(0,0)定义在了中心点，然后你问中心点的坐标是什么？这不废话么，你自己都说了中心点的坐标是(0,0)了，还用问？
2.想画一个钟表的秒针，如何表示末端坐标？
这里我只打算说这个末端坐标(x2,y2)相对于中心点的坐标，因为Line有个Step功能，就是用相对前一个点的坐标来表示后一个点
设秒针长度为r，与12点的夹角为a，当前秒数为s，用s表示a就是：a=s*6*pi/180，其中pi为圆周率（请自行定义）
然后用r和a即可表示出x2与y2：
x2 = r * Sin(a)
y2 = r * Cos(a)
这里需要注意一下方向，当x轴正方向向右、y轴正方向向上时，才可以用以上关系式，此时需要自定义坐标系；如果不自定义坐标系，y轴的正方向默认为向下，则y2需要改成-r*Cos(a)，即加个负号
然后这个秒针就可以这样画出来了：（以下ScaleMode不为0）
Picture1.Line (Picture1.ScaleWidth / 2, Picture1.ScaleHeight / 2)-Step(x2, y2)

第八问，怎么实现图片的水平翻转和垂直翻转
Picturebox可以用Paintpicture方法实现，image却不能。
①image怎么实现图片的翻转
②当图片过大时，PictureBox只能看到部分图片，但autosize设置为true时，PictureBox控件又变大了，有没有好方法，可以在不改变PictureBox控件大小的同时又能加载全部图片？（不用image）

Rem 在PictureBox中加载一个同样大小的Image
Command5和Command6只能实现一次翻转，不能实现多次翻转
Private Sub Form_Load()
Image1.Picture = LoadPicture(App.Path & "\狗狗.jpg")
With Image1
.Width = 6000: .Height = 3000
End With
Picture1.PaintPicture Image1.Picture, 0, 0, Image1.Width, Image1.Height, 0, 0, Picture1.ScaleWidth, Picture1.ScaleHeight
End Sub
Private Sub Command1_Click() '放大
Picture1.Width = 2 * Picture1.Width
Picture1.Height = 2 * Picture1.Height
Image1.Width = 2 * Image1.Width
Image1.Height = 2 * Image1.Height
End Sub
Private Sub Command2_Click() '缩小
Picture1.Width = 0.5 * Picture1.Width
Picture1.Height = 0.5 * Picture1.Height
Image1.Width = 0.5 * Image1.Width
Image1.Height = 0.5 * Image1.Height
End Sub
Private Sub Command3_Click() '居中
Picture1.Left = (Me.ScaleWidth - Picture1.Width) / 2
Picture1.Top = (Me.ScaleHeight - Picture1.Height) / 2
End Sub
Private Sub Command4_Click() '还原
With Picture1
.Width = 6000: .Height = 3000
.Left = 2300: .Top = 240
End With
With Image1
.Width = 6000: .Height = 3000
End With
End Sub
Private Sub Command5_Click() '水平翻转
Picture1.PaintPicture Image1.Picture, Picture1.Width, 0, -Picture1.Width, Picture1.Height
End Sub
Private Sub Command6_Click() '垂直翻转
Picture1.PaintPicture Image1.Picture, 0, Picture1.Height, Picture1.Width, -Picture1.Height
End Sub

日	一	二	三	四	五	六

vb一些问题

扫二维码下载贴吧客户端