VBScript 做一个爱心
时间: 2023-10-07 17:06:53 浏览: 95
以下是一个简单的VBScript程序,可以在终端上输出一个爱心图案:
```vbscript
Option Explicit
Dim Heart, i, j
Heart = ""
For i = -10 To 10
For j = -20 To 20
Heart = Heart & IIf(((i * 0.04) ^ 2 + (j * 0.1) ^ 2 - 1) ^ 3 - (i * 0.04) ^ 2 * (j * 0.1) ^ 3 <= 0, "❤", " ")
Next
Heart = Heart & vbNewLine
Next
WScript.Echo Heart
```
将此代码复制到您的VBScript编辑器中并运行,就可以在终端上输出一个爱心图案了。
相关问题
vbscript 做一个爱心
以下是一个简单的VBScript程序,可以在终端上输出一个爱心图案:
```vbscript
Option Explicit
Dim Heart, i, j
Heart = ""
For i = -10 To 10
For j = -20 To 20
Heart = Heart & IIf(((i * 0.04) ^ 2 + (j * 0.1) ^ 2 - 1) ^ 3 - (i * 0.04) ^ 2 * (j * 0.1) ^ 3 <= 0, "❤", " ")
Next
Heart = Heart & vbNewLine
Next
WScript.Echo Heart
```
将此代码复制到您的VBScript编辑器中并运行,就可以在终端上输出一个爱心图案了。
用VBscript 写一个登录模块
我可以提供一些关于用VBScript编写登录模块的建议:首先,创建一个表单,让用户输入用户名和密码。然后,使用VBScript的InputBox函数,从用户那里获取用户名和密码,并将它们存储到变量中。最后,使用VBScript的IF语句,比较用户输入的用户名和密码与所存储的变量,如果两者匹配,则登录成功,否则登录失败。
相关推荐
![zip](https://img-home.csdnimg.cn/images/20210720083736.png)
![](https://csdnimg.cn/download_wenku/file_type_ask_c1.png)
![](https://csdnimg.cn/download_wenku/file_type_ask_c1.png)
![](https://csdnimg.cn/download_wenku/file_type_ask_c1.png)
![](https://csdnimg.cn/download_wenku/file_type_ask_c1.png)
![](https://csdnimg.cn/download_wenku/file_type_ask_c1.png)
![](https://csdnimg.cn/download_wenku/file_type_ask_c1.png)
![](https://csdnimg.cn/download_wenku/file_type_ask_c1.png)
![](https://csdnimg.cn/download_wenku/file_type_ask_c1.png)
![](https://csdnimg.cn/download_wenku/file_type_ask_c1.png)
![](https://csdnimg.cn/download_wenku/file_type_ask_c1.png)
![](https://csdnimg.cn/download_wenku/file_type_ask_c1.png)
![](https://csdnimg.cn/download_wenku/file_type_ask_c1.png)
![](https://csdnimg.cn/download_wenku/file_type_ask_c1.png)