求一个vb程序代码（尽量简单）

求一个vb程序代码（尽量简单）

Private Sub Form_Load()
MsgBox "Hello VB!"
End Sub弹出对话框显示Hello VB!"

下面这张表格列出了 Internet Transfer 控件的可捕获的错误及常数：常数值描述icOutOfMemory7“内存溢出”icDisconnected10该计算机已经从网络上断开。icTypeMismatch13“类型不匹配”icInvalidPropertyValue380无效属性值icInetOpenFailed35750不能打开 internet 句柄icOpenFailed35751“不能打开 URL”icBadUrlL35752“URL 格式不正确”icProtMismatch35753“该方法不支持的协议”icConnectFailed35754“不能连接到远程主机”icNoRemoteHost35755“没有指定远程计算机”icRequestFailed35756“不能完成请求”icNoExecute35757“检索数据前必须执行一个操作”icBlewChunk35758“不能检索数据”icFtpCommandFailed35759“FTP 命令失败”icUnsupportedType35760“不能强制类型”icTimeOut35761“请求超时”icUnsupportedCommand35762“无效的或不支持的命令”icInvalidOperation35763“无效的操作参数”icExecuting35764“还在执行上一个请求”icInvalidForFtp35765“该调用对一个 FTP 连接是无效的”icOutOfHandles35767“句柄用尽”icInetTimeout35768超时icExtendedError35769外部错误icIntervalError35770内部错误icInvalidURL35771无效的 URL.icUnrecognizedScheme35772 未知的时间表icNameNotResolved35773未保留的名称icProtocolNotFound35774协议未找到icInvalidOption35775 无效的选项icBadOptionLength35776错误选项长度icOptionNotSettable35777不可设置选项icShutDown35778关闭icIncorrectUserName35779错误的用户名icLoginFailure35781登录失败icInetIvalidOpertation35782无效操作icOperationCancelled35783操作取消icIncorrectHandleType35784错误句柄类型icIncorrectHandleState35785错误句柄状态icNotProxyRequest35786不是代理icRegistryValueNotFound35787未找到注册值icbadRegistryParameter35788错误注册参数icNoDirectAccess35789 无直接访问icIncorrectPassword35780错误密码icNoContext35790无上下文icNoCallback35791无回调icRequestPending35792请求挂起icIncorrectFormat35793错误格式icItemNotFound35794项目未找到icCannotConnect35795不能连接icConnectionAborted35796连接中止icConnectionReset35797连接复位icForceEntry35798强迫输入icInvalidProxyRequest35799无效代理请求icWouldBlock35800 将阻塞icHandleExists35802句柄存在icSecCertDateInvalid35803安全身份验证日期无效icSecCertCnInvalid35804安全身份验证号无效icHttpsToHttpOnRedir35806HTTPS 直接到 HTTPicMixedSecurity35807复合安全性icChgPostIsNotSecure35808改变邮局不安全icHttpToHttpsOnRedir35805HTTPS 直接到 HTTPicPostIsNonSecure35809非安全邮局icClientAuthCertNeeded35810需要客户身份验证icInvalidCa35811无效的客户身份icClientAuthNotSetup35812未设置客户身份验证icAsyncThreadFailed35813异步线程失败icRedirectSchemeChange35814重定向时间表改变icDialogPending35815该操作被挂起，直到您关闭一个打开的对话框。icRetryDialog35816重新尝试该操作。icHttpsHttpSubmitRedir35818您必须重新尝试该操作，因为安全带区检查失败。icInsertCdrom35819可安装的 CD 缓存要求在驱动器中有一个 CD-ROM。icFtpTransferInProgress35876FTP: 传输进行中icFtpDropped35877连接放下icFtpNoPassiveMode35878试图进行一个 PASSIVE 模式的连接（也就是说，原始的连接需要指定的 INTERNET_FLAG_PASSIVE），但是服务器不允许这种模式。icGopherProtocolError35896Gopher: 协议错误icGopherNotFile35897Gopher: 不是一个文件icGopherDataError35898Gopher: 数据错误icGopherEndOfData35899Gopher: 数据结束icGopherInvalidLocator35900Gopher: 无效的定位器icGopherIncorrectLocatorType35901Gopher: 错误的定位器类型icGopherNotGopherPlus35902Gopher: 不是 Gopher plusicGopherAttributeNotFound35903Gopher: 属性未找到icGopherUnknownLocator35904Gopher: 未知的定位器icHeaderNotFound35916HTTP: 头部未找到icHttpDownlevelServer35917HTTP: 低级服务器icHttpInvalidServerResponse35918HTTP: 无效的服务器响应icHttpInvalidHeader35919HTTP: 无效头部icHttpInvalidQueryRequest35920HTTP: 无效查询请求icHttpHeaderAlreadyExists35921HTTP:头已存在icHttpRedirectFailed35922HTTP:重定向失败icSecurityChannelError35923安全通道错误icUnableToCacheFile35924 不能缓存文件icHttpCookieNeedsConfirmation35927在下载能够继续进行之前，您必须确认一个服务器提供的 cookie。icHttpCookieDeclined35928服务器提供的 cookie 不能被接受。icServerUnreachable35930不能连接到请求的服务器。这是由 WinSock 的 WSAEHOSTUNREACH 错误接收者来决定的。icProxyServerUnreachable35931无法到达请求的代理服务器。icBadAutoProxyScript35932在代理自动配置脚本中由一个错误，因此不能运行脚本。icUnableToDownloadScript35933不能检索请求的代理自动配置文件icHttpRedirectNeedsConfirmation35934在下载能够进行之前，您必须确认一个协议级的重新定向。icSecInvalidCert35935该证书无效。icSecCertRevoked35936该证书已经被调用。icFailedDueToSecurityCheck35937您试图进行的操作失败，因为它不能通过安全性检查。

文本框输入数字，求根号Private Sub Command1_Click()
Text1.Text = Sqr(Val(Text1.Text))
End Sub

如以上回答内容为低俗、色情、不良、暴力、侵权、涉及违法等信息，可以点下面链接进行举报！

点此我要举报以上问答信息