编程粉

① 北3有几把+13绝刀或者+13以上的有图最好

13肯定是RMB收

只要才一把只要你有RMB也收的到

不知道要13绝刀干嘛，刷图为什么不选择45CC呢肯定比绝刀好用

PK流星，13绝刀都能收流星落了

② 油漆能和玻璃纤维复合

油漆的主要成分是氧化铁，玻纤的主要成分是二氧化硅

二氧化硅与氧化铁和其它含有少量碱性的物质在一起一般不会起反应，二氧化硅很稳定的。
事物是相对的。在高温锅炉炉水中，存在偏硅酸，通常在锅炉炉管内，高压以上锅炉水垢含酸性物质为偏硅酸40%左右（即二氧化硅）与氧化铁40%左右氧化铜，他们是以结合紧密的混合物存在的坚硬物。玻璃纤维短切丝

玻璃纤维（英文原名为：glass fiber或fiberglass ）是一种性能优异的无机非金属材料，种类繁多，优点是绝缘性好、耐热性强、抗腐蚀性好，机械强度高，但缺点是性脆，耐磨性较差。它是以玻璃球或废旧玻璃为原料经高温熔制、拉丝、络纱、织布等工艺制造成的，其单丝的直径为几个微米到二十几米个微米，相当于一根头发丝的 1/20-1/5 ，每束纤维原丝都由数百根甚至上千根单丝组成。玻璃纤维通常用作复合材料中的增强材料，电绝缘材料和绝热保温材料，电路基板等国民经济各个领域。原料及其应用：玻璃纤维比有机纤维耐温高，不燃，抗腐，隔热、隔音性好(特别是玻璃棉)，抗拉强度高，电绝缘性好（如无碱玻璃纤维）。但性脆，耐磨性较差。玻璃纤维主要用作电绝缘材料，工业过滤材料，防腐、 防潮、 隔热、隔音、减震材料。还可作为增强材料，用来制造增强塑料（见彩图）或增强橡胶、增强石膏和增强水泥等制品。用有机材料被覆玻璃纤维可提高其柔韧性，用以制成包装布、窗纱、贴墙布、覆盖布、防护服和绝电、隔音材料。作为补强材玻璃纤维具有以下之特点，这些特点使玻璃纤维之使用远较其他种类纤维来得广泛，发展速度亦遥遥领先

③ 联想昭阳K41A的笔记本的显示器白色的部分全部编程粉红色了

联系服务站检测下咱们的屏幕吧
服务站
[url]http://support1.lenovo.com.cn/lenovo/wsi/station/servicestation/default.aspx[/url]

④ 编程粉笔官网打不开了

地址错了

⑤ VB如何在一个Form里装多个小窗口，且窗口大小可以通过鼠标拖动改变

MDI窗体,然后在信件FORM
设置为
MDI子窗体
属性MDICHILD
修改为真即可.
不懂请网络:“编程粉笔”加入其中吧.我相信你会快速的成长.

⑥ 怎么用VB上传文件至ftp服务器 测试可以使用后再追加到50分！！！！！！

Option Explicit

Public Declare Function InternetOpen Lib "wininet.dll" Alias "InternetOpenA" _
(ByVal sAgent As String, ByVal LAccessType As Long, ByVal sProxyName As String, _
ByVal SProxyBypass As String, ByVal lFlags As Long) As Long

Public Declare Function InternetConnect Lib "wininet.dll" Alias "InternetConnectA" _
(ByVal hInternetSession As Long, ByVal sServerName As String, _
ByVal nServerPort As Integer, ByVal sUsername As String, _
ByVal sPassword As String, ByVal lService As Long, _
ByVal lFlags As Long, ByVal lContext As Long) As Long

Public Declare Function FtpGetFile Lib "wininet.dll" Alias "FtpGetFileA" _
(ByVal hFtpSession As Long, ByVal lpszRemoteFile As String, _
ByVal lpszNewFile As String, ByVal fFailIfExists As Boolean, _
ByVal dwFlagsAndAttributes As Long, ByVal dwFlags As Long, _
ByVal dwContext As Long) As Boolean

Public Declare Function FtpPutFile Lib "wininet.dll" Alias "FtpPutFileA" _
(ByVal hFtpSession As Long, ByVal lpszLocalFile As String, _
ByVal lpszRemoteFile As String, ByVal dwFlags As Long, _
ByVal dwContext As Long) As Boolean

Public Declare Function FtpDeleteFile Lib "wininet.dll" Alias "FtpDeleteFileA" _
(ByVal hFtpSession As Long, ByVal lpszFileName As String) As Boolean

Public Declare Function FtpRenameFile Lib "wininet.dll" Alias "FtpRenameFileA" _
(ByVal hFtpSession As Long, ByVal lpszExsiting As String, ByVal lpszNew As String) As Boolean

Public Declare Function InternetCloseHandle Lib "wininet.dll" (ByVal hInet As Long) As Integer

Public Declare Function FtpFindFirstFile Lib "wininet.dll" Alias "FtpFindFirstFileA" _
(ByVal hFtpSession As Long, ByVal lpszSearchFile As String, _
lpFindFileData As WIN32_FIND_DATA, ByVal dwFlags As Long, _
ByVal dwContent As Long) As Long

Public Declare Function InternetFindNextFile Lib "wininet.dll" Alias "InternetFindNextFileA" _
(ByVal hFind As Long, lpvFndData As WIN32_FIND_DATA) As Long

Public Type FILETIME
dwLowDateTime As Long
dwHighDateTime As Long
End Type
Public Type WIN32_FIND_DATA
dwFilAttributes As Long
ftCreationTime As FILETIME
ftLastAccessTime As FILETIME
ftLastWriteTime As FILETIME
nFileSizeHigh As Long
nFileSizeLow As Long
dwReserved0 As Long
dwReserved1 As Long
cFileName As String * 260
cAlternate As String * 14
End Type

Public Declare Function GetOpenFileName Lib "comdlg32.dll" Alias _
"GetOpenFileNameA" (pOpenfilename As OPENFILENAME) As Long

Type OPENFILENAME
lStructSize As Long
hwndOwner As Long
hInstance As Long
lpstrFilter As String
lpstrCustomFilter As String
nMaxCustFilter As Long
nFilterIndex As Long
lpstrFile As String
nMaxFile As Long
lpstrFileTitle As String
nMaxFileTitle As Long
lpstrInitialDir As String
lpstrTitle As String
flags As Long
nFileOffset As Integer
nFileExtension As Integer
lpstrDefExt As String
lCustData As Long
lpfnHook As Long
lpTemplateName As String
End Type
Private Sub Command1_Click()
lnginet = InternetOpen(vbNullString, INTERNET_OPEN_TYPE_PRECONFIG, _
vbNullString, vbNullString, 0&)
If lnginet Then
lnginetconn = InternetConnect(lnginet, "ip地址", 0, _
"用户名", "密码", 1, 0, 0)
If lnginetconn Then
blnRC = FtpGetFile(lnginetconn, "website/address.asp", "c:\address.asp", 0, 0, 1, 0)
If blnRC Then
MsgBox "download ok!!!"
End If
InternetCloseHandle lnginetconn
InternetCloseHandle lnginet
MsgBox "close ok!!!"
Else
MsgBox "can't connect"
End If
Else
MsgBox "ftp wrong"
End If
End Sub

Private Sub Command2_Click()
Dim pData As WIN32_FIND_DATA
Dim lngHINet As Long
Dim intError As Integer
Dim strTemp As String
Dim blnRC As Boolean
pData.cFileName = String(260, 0)
lnginet = InternetOpen(vbNullString, INTERNET_OPEN_TYPE_PRECONFIG, _
vbNullString, vbNullString, 0&)
If lnginet Then
lnginetconn = InternetConnect(lnginet, "IP地址", 0, _
"用户名", "密码", 1, 0, 0)
If lnginetconn Then
lngHINet = FtpFindFirstFile(lnginetconn, "*.*", pData, 0, 0)
strTemp = Left(pData.cFileName, InStr(1, pData.cFileName, String(1, 0), vbBinaryCompare) - 1)
Do
pData.cFileName = String(260, 0)
blnRC = InternetFindNextFile(lngHINet, pData)
If Not blnRC Then
Exit Do
Else
strTemp = Left(pData.cFileName, InStr(1, pData.cFileName, String(1, 0), vbBinaryCompare) - 1)
End If

Loop
Text1.Text = strTemp
End If
End If
InternetCloseHandle lngHINet

InternetCloseHandle lnginetconn
InternetCloseHandle lnginet

End Sub

⑦ 学VB编程入门

学JAVA，可以加 【8000我是扣扣号35450】
软件开发的学习，一定要有好的老师引导，加上由浅入深的教材，可以比较愉快的学习。
市面上和高校里的书，大部分都按照条条框框来写，学起来难，很容易让人失去兴趣。
没有名师指导，遇到困难也容易放弃。

所以，你要选个学校，看看师资力量（PS:必须是能教你的，别是什么荣誉教授类的，一辈子见不到两次）。同时看看有没有项目实战的机会，这样能帮助你熟练写代码，毕竟这个东西，还是需要大量练习的。熟能生巧嘛！

⑧ 米饭可以钓鱼为什么婴儿米粉不可以呢

米粉是可以钓鱼的，做诱饵（窝料）的话需要先行加少量水兑混成团状后即可（尤其可用来在水库打大窝，然后米粉可在爆炸团饵中占到50%比例），如做钓饵最好用蜂蜜水兑混成团，如付钩性太差可在米粉中加入小麦蛋白（拉丝粉）。但是，由于现在商品饵料技术上的成熟以及大量钓者的使用，人工塘里鱼的嘴一般都很刁，使得米粉饵料在人工塘中占绝对劣势，但在自然水域应该可用，特别是可以使用米饭施钓的钓场。