没有合适的资源?快使用搜索试试~ 我知道了~
上机实验3 使用VBScript语言编程上机实验3 使用VBScript语言编程
资源推荐
资源详情
资源评论
上机实验 3 使用 VBScript 语言编程
1. 编写一个网页,在其HEAD部分编写一段脚本代码,当该页被加载时显示一个输入对话
框,提示让访问者输入姓名,单击“确定”按钮后,在对话框中显示对该访问者的欢迎信
息。
提示:在网页的 HEAD 部分编写一个过程(如名称为 Welcome),通过 InputBox 函
数输入用户信息,通过 MsgBox 函数显示欢迎信息,并将 BODY 标记的 onLoad 属性设置为
该过程名称,以便该页被加载时执行该过程。
<html>
<head><title>欢迎</title>
<script language="VBScript">
msgbox "来自"&inputbox("请问哪里人士?")
</script>
</head>
<body>
</body>
</html>
2. 编写一个网页,其显示效果如图 3.18 所示。在上面两个文本框中分别输入一个整数,
要求两者大小不相等。当单击“显示结果”按钮时,在最下面的文本框中显示两者中的较小
数;当单击“清除结果”按钮时,将三个文本框中的内容清空;如果未同时在上面两个文本
框中输入内容而单击“显示结果”按钮,则显示一个对话框,提示用户在上面两个文本框中
分别输入一个整数。
提示:“显示结果”按钮为普通按钮,在其 onClick 事件过程中编写脚本,以实现所需
操作;“清除结果”按钮为重置按钮。为了保证比较结果的正确性,应使用 CInt 或 CLng 函数
转换文本框的值。
3. 编写一个网页,用于求解一元二次方程 ax2 + bx + c = 0,页面效果如图 3.19 所示。
在文本框中分别输入二次项系数 a、一次项系数 b 和常数项 c 的值,然后单击“求解”按钮,
此时根据二次项系数 a 和判别式 Δ= b2 - 4ac 的取值情况分别进行不同的处理:如果 a = 0,
则在“求解情况”框中显示“二次项系数不能等于 0。”;如果 Δ> 0,则“求解情况”框中显示
“方程有两个相异的实数根。”,并在“x1 =”和“x2 =”框中显示这两个根;如果 Δ= 0,则在“求
解情况”框中显示“方程有两个相等的实数根。”,并在“x1 =”和“x2 =”框中显示此根;如果
Δ< 0,则在“求解情况”框中显示“方程没有实数根。”。如果单击“重置”按钮,则清除所有文
本框的内容。
提示:为了便于安排表单控件的布局,可以考虑将控件放置在表格中;“求解”按钮为
一普通按钮,在其 onClick 事件过程中编写脚本来实现所需操作;“重置”按钮的 TYPE 属性
应为 submit。
4. 编写一个网页,该页上部列出一些专业的编号和名称,下部有一个文本框和一个按
钮,显示结果如图 3.20 所示。如果在文本框中输入一个专业编号(1-6)并单击“确定”按
钮,则出现一个对话框,显示当前所选择的专业名称;如果输入的专业编号大于 6,则显
示所选择的是其他专业。
提示:专业列表用一个有序列表来显示;“确定”按钮为一普通按钮,在其 onClick 事件
过程中编写脚本,并使用 Select Case 语句来实现所需操作。
资源评论
johnsonlm
- 粉丝: 4
- 资源: 155
上传资源 快速赚钱
- 我的内容管理 展开
- 我的资源 快来上传第一个资源
- 我的收益 登录查看自己的收益
- 我的积分 登录查看自己的积分
- 我的C币 登录后查看C币余额
- 我的收藏
- 我的下载
- 下载帮助
最新资源
- vidstream-3-0.0.1.tar.gz
- 基于FPGA深度学习的SPI 驱动 HC595 点亮数码管
- 2023-2024学年教材费结算明细(公示) -V2.xls
- 129197954513812WPS.apk
- 1_2.cpp
- logxianshidddd
- 细胞的奇迹:吃出来的免疫力(美亚畅销书!作者的TED演讲播放量超300万次!《谷物大脑》作者、《三联生活周刊》推荐!吃下对的食物,改善你的... (Z-Library).azw3
- 智能手机产品拆解,使用mindmaster打开
- 11111111111111
- 统信系统ARM64依赖openssl-1.0.2版本的libssl.so.10和libcrypto.so.10文件
资源上传下载、课程学习等过程中有任何疑问或建议,欢迎提出宝贵意见哦~我们会及时处理!
点击此处反馈
安全验证
文档复制为VIP权益,开通VIP直接复制
信息提交成功